Merhaba
Elimde sql den aldığım bir çalışma kitabı var 250 ayrı sayfa bunları aşğıdaki macroyla alt alta toplayabiliyorum bana lazım olan sayfaları alt alta getirken örneğin 1.sayfadan sonra 5 satır boşluk ver 2.sayfadan sonra 7 satır boşluk ver 3.sayfadan sonra 4 satır boşluk ver şeklinde bir ilaveye ihtiyacım var eğer yardımcı olursanız sevinirim
Sub topla()
Dim YeniSayfa As Worksheet
Dim SayfaSay
SayfaSay = Worksheets.Count
Set YeniSayfa = Worksheets.Add(After:=Worksheets(SayfaSay))
With YeniSayfa
For i = 1 To SayfaSay
Worksheets(i).UsedRange.Copy .Range("A" & IIf(i = 1, 1, .UsedRange.Rows.Count + 5))
Next
End With
End Sub
Elimde sql den aldığım bir çalışma kitabı var 250 ayrı sayfa bunları aşğıdaki macroyla alt alta toplayabiliyorum bana lazım olan sayfaları alt alta getirken örneğin 1.sayfadan sonra 5 satır boşluk ver 2.sayfadan sonra 7 satır boşluk ver 3.sayfadan sonra 4 satır boşluk ver şeklinde bir ilaveye ihtiyacım var eğer yardımcı olursanız sevinirim
Sub topla()
Dim YeniSayfa As Worksheet
Dim SayfaSay
SayfaSay = Worksheets.Count
Set YeniSayfa = Worksheets.Add(After:=Worksheets(SayfaSay))
With YeniSayfa
For i = 1 To SayfaSay
Worksheets(i).UsedRange.Copy .Range("A" & IIf(i = 1, 1, .UsedRange.Rows.Count + 5))
Next
End With
End Sub
