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 Resume Next
If Intersect(Target, [b:b]) Is Nothing Then Exit Sub
Set s1 = Sheets("" & Target)
son = WorksheetFunction.CountA(s1.[a:a]) + 1
s1.Range("a" & son & ":f" & son) = Range("a" & Target.Row & ":f" & Target.Row).Value
End Sub