Veri Girişi

[yahaci]

Sevgili Arkadaşlar sayfa 1 deki taploya girilen bilgilerin sayfa 2 de bulunan formdaki karşılıklarına yazılması gerekiyor yardımcı olursanız sevinirim

 

[hamitcan]

Sub YediSayfayaAktar()
    For i = 1 To 7
      Sheets("sayfa" & i).[B3:F103] = Sheets("GİRİS").[B3:F103].Value
    Next
End Sub

 

[yahaci]

hamitcan hocam teşekkür ederim sağolun tam istediğim gibi olmuş ama size zahmet giriş yapıldıktan sonra otamatik olarak bilgileri diğer sayfaya atacak şekilde düzenleye bilirmisiniz