guruplara ayırma

[ankara34]

selamlar kolay gelsin

elimde 1000 satır olan veri seti var bunları sıradan 10 lı satır gurupları halinde yazdırmak istiyorum

yani 1 den başlayıp 10 a kadar her 10 tanede araya 2 satır boşluk koymak istiyorum.

mümkünmüdür yardımcı olursanız sevinirim

 

[Muzaffer Ali]

Merhaba.

Aşağıdaki kodu bir modüle kopyalayıp çalıştırın.

Sub Test()
    Dim Bak As Long
    Dim Say As Long
    Say = Cells(Rows.Count, "A").End(xlUp).Row
    Say = (Int(Say / 10) * 10) + 1
    For Bak = Say To 10 Step -10
        Rows(Bak).Insert
        Rows(Bak).Insert
    Next
End Sub

 

[ankara34]

Merhaba.

Aşağıdaki kodu bir modüle kopyalayıp çalıştırın.

Sub Test()
    Dim Bak As Long
    Dim Say As Long
    Say = Cells(Rows.Count, "A").End(xlUp).Row
    Say = (Int(Say / 10) * 10) + 1
    For Bak = Say To 10 Step -10
        Rows(Bak).Insert
        Rows(Bak).Insert
    Next
End Sub

çok teşekkür ederim
tam istediğim gibi

 

[ankara34]

Merhaba.

Aşağıdaki kodu bir modüle kopyalayıp çalıştırın.

Sub Test()
    Dim Bak As Long
    Dim Say As Long
    Say = Cells(Rows.Count, "A").End(xlUp).Row
    Say = (Int(Say / 10) * 10) + 1
    For Bak = Say To 10 Step -10
        Rows(Bak).Insert
        Rows(Bak).Insert
    Next
End Sub

@Muzaffer Ali bey ,
esasında kendim deneme yanılma yöntemi ile yapmak istiyorum öğrenmek için ama yarın ptesi yetiştirmem gereken bir dosya var,
müsaitseniz ilk 5 satırın bölmelerini dondurdum, onu nasıl saydırmada göstermeyebiliriz ?

 

[ankara34]

@Muzaffer Ali bey ,
esasında kendim deneme yanılma yöntemi ile yapmak istiyorum öğrenmek için ama yarın ptesi yetiştirmem gereken bir dosya var,
müsaitseniz ilk 5 satırın bölmelerini dondurdum, onu nasıl saydırmada göstermeyebiliriz ?

sanırım yaptım.
Say = (Int(Say / 10) * 10) + 5
yaptım oldu,

kolay gelsin iyi çalışmalar