Her 20 satırda bir yeni sayfaya kopyala

[AKTAY27]

merhaba arkadaşlar

ana sayfada bulunan verileri her 20 satırda bir şablon sayfası kopyalanıp içine kopyalamak istiyorum.

 

[Muhammet Okumuş]

Merhaba,
Kodu deneyiniz.

Sub Kopyala()
x = WorksheetFunction.RoundUp(Range("C10000").End(3).Row / 20, 0)
Range("f1") = x
For i = 1 To x
ilk = i * 20 - 18
son = i * 20 + 1
Sheets("Şablon").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = i
Range("B221") = Sheets("ANA SAYFA").Range("B" & ilk & "" & son).Value
Next
End Sub

 

[AKTAY27]

ilginize teşekkürler
kırmızı renkli olan yer hata veriyor


Sub Kopyala()
x = WorksheetFunction.RoundUp(Range("C10000").End(3).R ow / 20, 0)
Range("f1") = x
For i = 1 To x
ilk = i * 20 - 18
son = i * 20 + 1
Sheets("Şablon").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = i
Range("B221") = Sheets("ANA SAYFA").Range("B" & ilk & "" & son).Value
Next
End Sub

 

[Muhammet Okumuş]

R ow Row olacak
siteden kaynaklı hata.
Range("f1") = x
kısmını siliniz.

 

[AKTAY27]

syntax error
hatası veriyor yine

 

[AKTAY27]

elinize sağlık
istediğim oldu
teşekkürler

 

[Muhammet Okumuş]

Dosyayı inceleyiniz.