Farklı Sayfalarda Belli Bir Hücre Değerini Artırma

[blaster2005]

Merhaba;
elimde bir şablon var ve bu şablonda normalde 10986 satır var.ekte ki dosyada ben bunu ikiye düşürdüm. sormak istediğim şu. şablondaki seri no sütunundaki değer sheet1 de "1" sheet2 de ise "2". seri no sutunu haricindeki satırların değerlerinin hiçbirini bozmadan sadece seri no yu bir sayı artırarak sheet 3 ün otomatik oluşmasını nasıl sağlayabilirim yada sağlayabilir miyim.yani tüm değerler aynı şekilde sheet 3 te yer alacak sadece 2 olan seri no 3 olacak.umarım anlatabilmişimdir :redface:

 

[Muhammet Okumuş]

Sub Aktar()
Sheets("Sheet1").Copy AFTER:=Sheets(Sheets.Count)
ActiveSheet.Name = "Sheet" & Sheets.Count
son = Range("F50000").End(3).Row
Range("F2:F" & son) = Sheets.Count
ActiveSheet.DrawingObjects.Delete
Sheets("Sheet1").Select
End Sub

Kodunu deneyiniz.

 

[blaster2005]

oldu teşekkür ederim.peki kodu çalıştırdığımda bunun 20bin kere otomatik olarak çalışmasını sağlayabilirmiyim . ayrıca bu oluşan sheetleri ikinbin'erli satırlara bölerek ayrı dosyalar oluşturabilirmiyim. yani 10986 satırın ilk ikibin satırını alıp bir dosya ikinci ikibin satırı alıp ikinci dosya gibi bir uygulama yapabilirmiyim.

 

[Muhammet Okumuş]

20000 sayfa olmaz. Verilerininzi tek bir sayfada toplayınız.

 

[blaster2005]

20000 değilde 1000 sayfa olarak kabul edebilirmiyiz. bu şekilde olabilir mi ? yada ne kadar olabilir.

 

[blaster2005]

Peki, sayfa sayfa kopyalamak yerine. bunları dosya dosya atma imkanım var mı?