Gruplu Transpoze yapmak

[ofisci]

Merhaba Değerli Üstadlarım,

Ekte vermiş olduğumexcel dosyasında içerisindede açıkladığım gibi A ve B sütunlarında binlerce veri mevcut. Bu verileri A ve B sütunlarından 30 satıra kadar olanları alıp D sütunundan itibaren 1. satıra yatay olarak sırasıyla yazmak istiyorum. 31 satırdan itibaren tekrar aynı şekilde yazan bir makro yazılabilirmi? Örnek:
A B C D E F G H I J K
1 2 1 2 3 4 5 . . .
3 4
5 6
. .
. .

Şeklinde yazdırmak istiyorum. Yardımcı olanlara şimdiden teşekkürler ederim....

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub YATAY_OLARAK_DÜZENLE()
    Dim X1 As Long, X2 As Long, X3 As Byte, Sütun As Byte
    
    Application.ScreenUpdating = False
    
    Range("D1:" & Cells(Rows.Count, Columns.Count).Address(0, 0)).ClearContents
    Sütun = 4
    
    For X1 = 1 To Cells(Rows.Count, 1).End(3).Row Step 30
        For X2 = X1 To X1 + 30
            For X3 = 1 To 2
                Cells(X1, Sütun) = Cells(X2, X3)
                Sütun = Sütun + 1
            Next
        Next
        Sütun = 4
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[ofisci]

Korhan Bey,

Çok Teşekkürler ederim. Eline, beynine sağlık....