Bir sayfadaki Veriyi Diğer Sayfaya Aktarma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub aktarma()
Dim i As Integer
For i = 1 To Worksheets.Count
Worksheets(i).Range("A1").Value = Sayfa1.Range("A1")
Next i
End SubAçıklama
Bu kodun işlevi, çalışma kitabınızdaki tüm sayfaları otomatik olarak bulan bir döngü sonucunda, gezdiği sayfalardaki A1 hücresine, Sayfa1 isimli sayfanın A1 hücresindeki veriyi aktarmasıdır.Faydalanılması temennisiyle