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)
Application.EnableEvents = False
If Target.Address = "$A$1" Then
Target.Copy
Range("A2").PasteSpecial
'Başka sayfaya kopyalamak için
Sheets("Sayfa2").Range("A2").PasteSpecial
End If
Application.EnableEvents = True
End Sub