DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub KOD()
For i = 2 To Sheets.Count
Sheets(1).Range("A1:A6").Copy Sheets(i).Range("A1")
Next i
End Sub
. . .
Küçük bir örnek yüklerseniz daha net çözümler sunulabilir.
Kod:Sub KOD() For i = 2 To Sheets.Count Sheets(1).Range("A1:A6").Copy Sheets(i).Range("A1") Next i End Sub
. . .