Herkese merhaba,
İşle ilgili bir durum yüzünden bir grup veriyi sayfalara dağıtmam gerekiyordu, aşağıdaki gibi bir makro buldum ve işimi çok güzel gördü.
Fakat yine benzer bir iş yapmam gerekiyor ve bu kez sayfalara dağılacak olan satır sayılarını kısıtlayabilmem lazım. (Mesela Sayfa1 - 30 satır, Sayfa2 - 20 satır, Sayfa3 - 50 satır). Bu örnekteki gibi olup benim belirlediğimden daha fazla satırın dağılmaması gerekiyor sayfalara.
Aşağıdaki makroyu kullanıyorum, yukarıda belirttiğim şekilde çalışabilmem için nasıl bir değişiklik/ekleme yapmam gerekir?
Çok teşekkürler.
İşle ilgili bir durum yüzünden bir grup veriyi sayfalara dağıtmam gerekiyordu, aşağıdaki gibi bir makro buldum ve işimi çok güzel gördü.
Fakat yine benzer bir iş yapmam gerekiyor ve bu kez sayfalara dağılacak olan satır sayılarını kısıtlayabilmem lazım. (Mesela Sayfa1 - 30 satır, Sayfa2 - 20 satır, Sayfa3 - 50 satır). Bu örnekteki gibi olup benim belirlediğimden daha fazla satırın dağılmaması gerekiyor sayfalara.
Aşağıdaki makroyu kullanıyorum, yukarıda belirttiğim şekilde çalışabilmem için nasıl bir değişiklik/ekleme yapmam gerekir?
Çok teşekkürler.
Kod:
Sub kTest()
Dim a, w(), i As Long, n As Long, h As Long, c As Byte
a = Sheets("RawData").[A1].CurrentRegion.Value
h = Int((UBound(a, 1) + 1) / 5) + 1
ReDim w(1 To h, 1 To UBound(a, 2))
n = 1
For i = 1 To UBound(a, 1)
For c = 1 To UBound(a, 2): w(n, c) = a(i, c): Next
If n = h Then
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.[A1].Resize(h, UBound(a, 2)) = w: n = 0
End If: n = n + 1
Next
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.[A1].Resize(n - 1, UBound(a, 2)) = w
End Sub