Satırları Kolonlara Dökme

[xbonds]

Merhabalar,

Basit bir sorum olacak, Excel 2013 İngilizce versiyonu kullanmaktayım. Elimde aşağıdaki gibi bir data var. Bu data 10 satırda bir kendini tekrarlıyor ve 2 kolondan oluşuyor, toplamda da 18 bin satır var. Amacım bu tekrarlayan 10 satırı kolona çevirmek ama bu datayı bir türlü o şekilde transpose edemedim. Yardımcı olabilirseniz çok sevinirim.

Saygılarımla.

Ad / Soyad asdasd
Lisans Tipi asdasd
Lisans Tarihi 21.02.2012
Lisans No 123
Yazışma Adresi ist
GSM 54433
E-Posta a@b.c
E-Posta (Diğer) -
Kurum asdasd
İş Telefonu 433

Ad / Soyad asdasd
Lisans Tipi asdasd
Lisans Tarihi 21.02.2012
Lisans No 123
Yazışma Adresi ist
GSM 54433
E-Posta a@b.c
E-Posta (Diğer) -
Kurum asdasd
İş Telefonu 433

Ad / Soyad asdasd
Lisans Tipi asdasd
Lisans Tarihi 21.02.2012
Lisans No 123
Yazışma Adresi ist
GSM 54433
E-Posta a@b.c
E-Posta (Diğer) -
Kurum asdasd
İş Telefonu 433

Amacım :

Ad Soyad | Lisans Tipi | Lisans Tarihi | Lisans No | Yazışma Adresi | GSM | Eposta | Eposta (Diğer) | Kurum | İş Telefonu kolonlarının altında bu datayı toplamak.

 

[Erdem Akdemir]

Örnek dosya ekleyebilir misiniz?

 

[xbonds]

Örnek dosya ekleyebilir misiniz?

Merhaba, örnek excel ekleyemiyorum ancak resim olarak şöyle gösterebilirim.

İstediğim data da şu şekilde :

Hızlı yanıtınız için ayrıca teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

İNDİR - Kitap1_02.rar

Sub kod()
    Application.ScreenUpdating = False
    Dim S1 As Worksheet: Set S1 = Sheets("Sayfa1")
    Dim S2 As Worksheet: Set S2 = Sheets("Sayfa2")
    
    S1.Range("A2:J" & Rows.Count).ClearContents
    Sat = 2
    For i = 1 To S2.Cells(Rows.Count, "A").End(3).Row Step 10
        S2.Range("B" & i & ":B" & i + 9).Copy
        S1.Cells(Sat, "A").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
        Sat = Sat + 1
    Next i
    
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox "B i t t i "
    
End Sub

. . .

 

[esahin1907]

Merhaba,
Hüseyin bey zaten yazmış fakat alternatif olsun diye transpose incelemenizi öneririm yada örnek bir dosya paylaşırsanız yardımcı olacak çıkacaktır.
Kopyala
Özel Yapıştır
İşlemi Ters Çevir

 

[xbonds]

Merhabalar,

Hüseyin Bey, paylaşımınız için çok teşekkür ederim. Çok işime yaradı, tamamen istediğim gibi data şekillendi.

esahin1907, transpose işlemi tam olarak işimi çözmüyordu çünkü transpose esnasında gruplama yapılması gerekiyor.

Yardımlarınız, yanıtlarınız için teşekkür ederim.

Saygılarımla.