listeyi Gruplandır

[unalh]

S.a Arkadaşlar,

Ekteki dosyada Sayfa 1 de liste mevcut yapmak istediğim açılan formda gruplandır dediğimde sayfa 2 ye 25 li şekliye gruplandırması ve kaç grup olduğunu form üzerine yazması.

Örnek dosyada uygulanmış şekli mevcut.

İlginize şimdiden teşekkür ederim.

 

[hamitcan]

Private Sub CommandButton1_Click()
    Sayfa3.Select
    Cells.Clear
    c = 1
    d = 1
    With Sayfa1
        For i = 2 To .[a65536].End(3).Row
            c = c + 1
            Sayfa3.Range(Cells(c, d), Cells(c, d + 4)) = .Range("a" & i & ":e" & i).Value
            If c = 26 Then c = 1: d = d + 6: e = e + 1
        Next
    End With
    Sayfa3.Columns.AutoFit
    TextBox1 = e
End Sub

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim sh As Worksheet, sat As Long, say As Long, i As Long, sut As Long
Sheets("Sayfa1").Select
Set sh = Sheets("Sayfa2")
sat = Cells(65536, "B").End(xlUp).Row
sut = 1
Application.ScreenUpdating = False
For i = 2 To sat Step 25
    Range("A" & i & ":E" & i + 24).Copy sh.Cells(1, sut)
    say = say + 1
    sut = sut + 6
Next i
sh.Select
Application.ScreenUpdating = True
TextBox1.Text = say
End Sub

 

[unalh]

Hocam ilginize teşekkürler fakat sayma olayında birinci grubu saymıyor diğer bir husus 4 grup olunca 5 olarak sayıyor.

 

[unalh]

Evren hocam dosya istediğim gibi olmuş çok teşekkür ederim.

Hayırlı akşamlar.

 

[Orion1]

Evren hocam dosya istediğim gibi olmuş çok teşekkür ederim.

Hayırlı akşamlar.

Rica ederim
İyi çalışmalar.