A sütunundaki verileri ilk on sırasına göre sıralama

[ersoyalan]

Ustalar merhaba,

A1 stünundaki numaraları 1.on 2.on 3.on.4. on gibi makro ile sıralıyabiliyorum fakat benim sorunum şu ben bu işlemleri daha önce makro kaydet ile yapıyorum bu sebepden dolayı çok uzun kod oluşuyor.Daha basit bir yöntemi varmıdır.

A1 stunünundaki veriler oldukça fazla oluyor.Yaklaşık olarak 5000 satır kadar.

Kullandığım dosyada renklama yoktur sadece örnek olması için renkleme yaptım.
İstediğim aslında şu düğmeye tıkladığımda C ile L arasına yukarıdaki örnek gibi olması.
.
Yardımcı olursanız sevinirim.
Syg,
E.ALAN

 

[ersoyalan]

Hocalarım merhaba,

Yardımcı olurmusunuz.Gerçekten benim için önemli.

Syg,

 

[Zeki Gürsoy]

Sanırım istediğiniz dağıtım bu şekilde.

Sub sortA()
Dim i&, s%, j As Byte
 
    For i = 1 To Sheets("liste").[a65000].End(3).Row Step 10

        s = s + 1

        For j = 1 To 10

            Sheets("sayfa1").Cells(s, j) = _
                Sheets("liste").Cells(i + j, 1)

        Next

    Next
 
End Sub

 

[Orion1]

Dosyanız ekte.

Sub listele()
Dim sut As Byte, sat As Long
Application.ScreenUpdating = False
Range("C2:L65536").Clear
sut = 3: sat = 2
For i = 2 To Cells(65536, "A").End(xlUp).Row
    If sut > 12 Then sut = 3: sat = sat + 1
    Cells(sat, sut).Value = Cells(i, "A").Value
    sut = sut + 1
Next i
Application.ScreenUpdating = True
MsgBox "Gruplandırma yapıldı."
    
End Sub

 

[Orion1]

Zeki hocam pardon ben cevabı yazana kadar siz yazmışsınız görmedim.

 

[ersoyalan]

Zeki hocam merhaba,

verdiğiniz kodu denedim fakat ekteki mesajı verdi.

Evren haocam beni ne kadar büyük bir dertten kurtardınız çok teşekkürederim.

Saygılarımla

E.ALAN

:dua2:

 

[Orion1]

Zeki hocam merhaba,

verdiğiniz kodu denedim fakat ekteki mesajı verdi.

Evren haocam beni ne kadar büyük bir dertten kurtardınız çok teşekkürederim.

Saygılarımla

E.ALAN

:dua2:

Rica ederim.
iyi çalışmalar.