DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 13 Then Exit Sub
Cells(Target.Row, 2).Resize(, 22).Copy Sayfa2.Range("B65536").End(3)(2, 1)
End Sub
Merhaba, Murat beyin yaptığı dosya kullanılır şekilde ektedir. Veri girildiğinde otomatik olarak diğer sayfaya veriyi yazmaktadır.