HER 50 ADET SATIRDAN SONRAKİLERİ BİR SONRAKİ SAYFAYA AKTARMAK

[smhvet]

MERHABALAR ELİMDE 4000 ADET SATIR VAR. A VE B SÜTÜNLARI DOLU SADECE. BUNLARI 50 ADET OLARAK SAYFALARA KOYMAK İSTİYORUM. BUNUN İÇİN NE YAPMALIYIM?

 

[YUSUF44]

Aşağıdaki makroyla yapabilirsiniz. Makro yeni sayfa ekleyerek kopyalama yapar:

Sub parcala()
Set s1 = ActiveSheet
son = s1.Cells(Rows.Count, "A").End(3).Row
Application.ScreenUpdating = False
    For i = 1 To son Step 50
        s1.Range("A" & i & ":B" & i + 49).Copy
        Sheets.Add
        ActiveSheet.Paste
    Next
Application.ScreenUpdating = True
End Sub

 

[smhvet]

Çok sağolun hocam büyük sevaba girdiniz.

 

[smhvet]

Mesela sayfa isimlerini de A sütünündaki ilk sayı - son sayı olarak ayarlama şansımız varmı ?

 

[YUSUF44]

Activsheet.Paste satırından sonra aşağıdaki satırları ekleyip deneyin:

        sonB = ActiveSheet.Cells(Rows.Count, "A").End(3).Row
        ActiveSheet.Name = ActiveSheet.[A1] & "-" & ActiveSheet.Cells(sonB, "B")

 

[smhvet]

SAĞOLUN HOCAM BAŞTACISINIZ