"B" hücresine en son girdiğim veriyi "A" Hücresindeki son dolu hücreye kadar Yazmak

[programer]

"B" hücresine en son girdiğim veriyi "A" Hücresindeki son dolu hücreye kadar Yazmak

Merheba arkadaşar,

Ekteki dosyada yapmak istediğim "B" hücresine en son girdiğim veriyi "A" Hücresindeki son dolu hücreye kadar "B" hücresine yazmak. Bunu yaparken buton kullanmak istemiyorum. Aktif sayfanın Worksheet_Change olayını denedim ama beceremedim. Yani "B" hücresine yazıp enter'e bastığım zaman işlem yapsın.

 

[YUSUF44]

Aşağıdaki kodları kullanabilirsiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
Application.EnableEvents = False
son = Cells(Rows.Count, "A").End(3).Row
Range(Cells(Target.Row + 1, "B"), Cells(son, "B")) = Target
Application.EnableEvents = True
End Sub

 

[programer]

Sayın YUSUF44,

Yardımınız için çok teşekkür ederim. Kod gayet Güzel çalışıyor. Yalnız "If Intersect(Target, [A:A]) Is Nothing Then Exit Sub" satırını sildikten sonra çalıştı bilginiz olsun. İyi çalışmalar.

 

[YUSUF44]

Pardon o B:B olacaktı.

 

[YUSUF44]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
Application.EnableEvents = False
son = Cells(Rows.Count, "A").End(3).Row
Range(Cells(Target.Row + 1, "B"), Cells(son, "B")) = Target
Application.EnableEvents = True
End Sub

 

[programer]

Sayın YUSUF44,

İlgi ve alakanız için çok teşekkürler. İyi çalışmalar.