Bir kolondaki her satıra otomatik aynı rakam atama

[korayduruhan]

Merhaba

Ben sigorta işi yapıyorum.
Bulunduğum şehir Antalya olduğu için araçların hemen hepsi 07 plaka ile başlıyor.
Bir kolon komple plakalara ait ve bu kolonda açacağım her yeni satıra plaka gireceğim zaman otomatik olarak 07'yi ve bir boşluğu kendi yazmasını istiyorum

Örnek

Ahmet 07 XXX 99
Mehmet 07 XXX 98
Mustafa ....

Mustafa'nın plakasını gireceğim zaman boş olan hücreye tıkladığımda ya da yazmak istediğimde 07_ rakamını otomatik olarak benim yerime yazar mı?

 

[muygun]

Merhaba;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
süt = Selection.Cells.Column
sat = Selection.Cells.Row
If süt <> 2 Or sat < 2 Or sat > 20 Or s1.Cells(sat, süt) <> "" Then Exit Sub
s1.Cells(sat, süt) = "07_"
End Sub

"Sayfa1" sayfasında çalıştığınızı , 2. kolon (yani B sütununda B2 : B20 aralığında) bu işlemi yapacağınızı varsayarsak üstteki kodları Sayfa1 in kod bölümüne yerleştirin.
İyi çalışmalar

 

[korayduruhan]

Merhaba;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
süt = Selection.Cells.Column
sat = Selection.Cells.Row
If süt <> 2 Or sat < 2 Or sat > 20 Or s1.Cells(sat, süt) <> "" Then Exit Sub
s1.Cells(sat, süt) = "07_"
End Sub

"Sayfa1" sayfasında çalıştığınızı , 2. kolon (yani B sütununda B2 : B20 aralığında) bu işlemi yapacağınızı varsayarsak üstteki kodları Sayfa1 in kod bölümüne yerleştirin.
İyi çalışmalar

Ben biraz yeniyim de, bu kodu tam olarak nereye yapıştıracağız?
Ayrıca B kolonu için yazdığın bu formülü TÜM G kolonuna nasıl çevirebilirim?

 

[sametozyavuz]

Merhaba;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
süt = Selection.Cells.Column
sat = Selection.Cells.Row
If süt <> 2 Or sat < 2 Or sat > 20 Or s1.Cells(sat, süt) <> "" Then Exit Sub
s1.Cells(sat, süt) = "07_"
End Sub

"Sayfa1" sayfasında çalıştığınızı , 2. kolon (yani B sütununda B2 : B20 aralığında) bu işlemi yapacağınızı varsayarsak üstteki kodları Sayfa1 in kod bölümüne yerleştirin.
İyi çalışmalar

sayın muygun
kod hücreye tıklandığında çalışıyor ve yazılmış plakayı da siliyor.
bu yüzden sadece boş hücre seçildiğinde ekleme yapan bir makro yazarsanız daha kullanışlı olabilir.

 

[muygun]

Syn. korayduruhan;

Sorunuzu örnek dosya ile destekleyin.
Eki deneyin.

Syn. sametozyavuz;
Yeni eki tekrar deneyin.

İyi çalışmalar.

 

[korayduruhan]

istediğim böyle bir şeydi, ancak sizin verdiğiniz makroyu kendi çalışmama nasıl entegre edeceğimi bilmiyorum.

 

[sametozyavuz]

Syn. sametozyavuz;
Sorunuzu örnek dosya ile destekleyin.
Eki deneyin.
İyi çalışmalar.

çok güzel olmuş. teşekkürler.
banada bazen böyle bir kod lazım oluyordu.
dolu hücreleri değiştirmediği için hataların da önüne geçmiş.

sadece "07_" yi "07 " olarak değiştirdim. ve G sütünunu hücre biçimlendirden metin olarak seçtim. böylece _ işareti yerine boşluk kullanılabilir hale geldi.

 

[sametozyavuz]

istediğim böyle bir şeydi, ancak sizin verdiğiniz makroyu kendi çalışmama nasıl entegre edeceğimi bilmiyorum.

Yapmanız gerekenleri fotoğrafladım.

kendi çalışmanızı açınız.
sıra ile fotoğrafları yapmaya çalışınız.
yapıştırmanız gereken kod aşağıda olacak.
G Sütünunu hücre biçimlendirden metin olarak biçimlendirin.


işlemleri başarı ile bitirdiğinizde kendi çalışmanızı kapatırken
farklı kaydet deyip makro içeren excel çalışma kitabını seçmelisiniz.
aksi takdirde tekrar açtığınız zaman makro çalışmaz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
süt = Selection.Cells.Column
sat = Selection.Cells.Row
If süt <> 7 Or s1.Cells(sat, süt) <> "" Then Exit Sub
s1.Cells(sat, süt) = "07 "
End Sub