Açık olan diğer çalışma sayfasına veri kopyalama

[Crazy Drake]

aktif olan çalışma sayfasındaki a1 hücresini açık olan diğer çalışma sayfasındaki a1 hücresine kopyalayabilecek kod lazım. yardımcı olabilirmisiniz.
işin içinden çıkamadım

 

[janveljan]

Aşağıdaki kodları bir modüle ekleyin, ekteki dosyayı da incelebilirsiniz.

Sub aktar()
For i = 1 To 2
If ActiveWorkbook.Name <> Workbooks(i).Name Then
Workbooks(i).ActiveSheet.Cells(1, 1) = ActiveWorkbook.ActiveSheet.Cells(1, 1)
End If
Next
End Sub