A Sütununa Veril Girildiğinde B Sütununa Kopyala

[baydeniro]

Merhaba arkadaşlar. Excel bir dosyanın A sütununa veri girildiğinde aynı verinin sağındaki B sütununa makro yolu ile kopyalanması mümkün mü ?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. İşlemi yapmak istediğiniz sayfanın kod bölümüne uygulayınız.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target <> "" Then Target.Next = Target
    If Target = "" Then Target.Next = ""
    Exit Sub
Son:
End Sub

 

[baydeniro]

Sayın Korhan Ayhan, ilginize çok teşekkür ederim. Çok yararlı bir kod oldu, çok işimizi çözecek. Sağolun, var olun.

 

[baydeniro]

Sayın Korhan Ayhan bu kod için tekrar çok teşekkür ederim. Peki bunun bir de 1. kayıttan sonra 2. kayıtta işlem yapmaması mümkün mü ?