Altalta Listeleme

[cimcoz]

Merhabalar,

Ekteki dosyama göre, solda buluna 3 sütunda yazılı değerleri, sağdaki 3'erli gruplar halinde altalta listeletmek istiyorum. Buhale getirecek macro veya formüle ihtiyacım bulunuyor. (örneği aşağıda da belirtiyorum)

Mevcut Liste:
Test 1 Kadıköy Başarılı
Test 2 Suadiye Başarılı
Test 3 Kadıköy Başarısız

İstenen Hali
Test 1
Kadıköy
Başarılı
Test 2
Suadiye
Başarılı
Test 3
Kadıköy
Başarısız



Yardımlarımız için şimdiden teşekkür ederim.

Saygılarımla,

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir Module kopyalayıp deneyiniz.

E sütununa kopyalar.

Sub Makro1()
    
    Dim i   As Long, _
        j   As Long
        
    Application.ScreenUpdating = False
    
    j = 1
    
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        Range("A" & i & ":C" & i).Copy
        Range("E" & j).PasteSpecial Transpose:=True
        j = j + 3
    Next i
    
    Application.ScreenUpdating = True
    
    MsgBox "bitti...."
    
End Sub

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub ters()
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        Range("A" & i & ":C" & i).Copy: Cells(i * 3 - 2, "G").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Next
End Sub

 

[kulomer46]

Dosyanız Ek ' tedir.

Selamlar...

 

[yanginci34]

Buyrun.

 

[Merhum İdris SERDAR]

.

Kullanılan formüller:

=INDEX(Tablo;1+INT((ROW(A1)-1)/COLUMNS(Tablo));MOD(ROW(A1)-1+COLUMNS(Tablo);COLUMNS(Tablo))+1)

=OFFSET(Tablo;TRUNC((ROW(A1)-ROW($A$1))/COLUMNS(Tablo));MOD(ROW(A1)-ROW($A$1);COLUMNS(Tablo));1;1)

=INDEX(Tablo;ROUNDUP(ROW(A1)/3;0);IF(MOD(ROW(A1);3)=0;3;MOD(ROW(A1);3)))

=OFFSET($A$1;TRUNC((ROW(A1)-1)/3);MOD(ROW(A1)-1;3))

=INDEX(Tablo;ROUNDUP(ROW(A1)/3;0);IF(MOD(ROW(A1);3)=0;3;MOD(ROW(A1);3)))

Hepsi de aynı sonucu verir. Buradaki Tablo tanımlanmış alan adıdır.

Dosya ekte.


.

 

[cimcoz]

Tüm yardımcı olanlara teşekkür ederim. Macro ve fonksiyon seçenekeleri de çalışıyor.

Saygılarımla..