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)
On Error GoTo Son
If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
If Target.Row = 1 Then Exit Sub
Range("A" & Target.Row & ":D" & Target.Row).Copy Sheets("Sayfa2").Range("A" & Target.Row)
Target.Offset(1, -2).Select
Son:
End Sub