belirli satırları yan sayfaya geçirme

[striker12]

arkadaşlar excel de yaklaşık 250 satırlık bir veri dosyam var . Bunun bastan baslamak üzere her 40 satırı 2. , 3. ve 4. sayfalara sırasıyla aktarmasını istiyorum bu mumkun mu acaba ?

 

[ÖmerBey]

Mümkündür...
Nasıl olacağını soruyorsanız bir örnek dosya paylaşınız.

 

[Asri]

arkadaşlar excel de yaklaşık 250 satırlık bir veri dosyam var . Bunun bastan baslamak üzere her 40 satırı 2. , 3. ve 4. sayfalara sırasıyla aktarmasını istiyorum bu mumkun mu acaba ?

1. sayfa haricindeki sayfaların tamamını siler.

1. sayfayı 40 ar satırlı 1,2,3,4,5 sayfalarına aktarır.
1. sayfada A kolunu dolu olmak zorundadır.

 Sub sayfa_ayir()
 Application.ScreenUpdating = False
 Application.DisplayAlerts = False
 
  Sheets(1).Select
  sonsatir = Cells(Rows.Count, "A").End(3).Row
  For i = Sheets.Count To 2 Step -1
    Sheets(i).Delete
  Next i
  sayfasayisi = sonsatir / 40
  For i = 1 To sayfasayisi + 1
    satirlar = "1:40"
    Rows(satirlar).Select
    Selection.Cut
    Set NewSh = Sheets.Add(After:=Sheets(Sheets.Count))
    NewSh.Name = i
    Cells(1, 1).Select
    Selection.Insert Shift:=xlDown
    Sheets(1).Select
    Rows(satirlar).Select
    Selection.Delete Shift:=xlUp
    Range("A1").Select
  Next i
  Application.DisplayAlerts = True
  Application.ScreenUpdating = True
  Sheets(1).Select
  Cells(1, 1).Select
End Sub