Grup listeleri, yatay tabloya aktarmak..

[EKREM1661]

Saygıdeğer arkadaşlar.. Ekli dosyada daha iyi anlaşılacağı üzere, takvim tarihleri altına listelenen isimler, bir diğer sayfada yan hizalarına aktarılacak.. Fakat bunda formül başvuruları kullanışlı olmuyor, (sürükleme ve kes yapıştır gibi durumlarda formüller bozuluyor).. Bu işi makrolarla yapabilir miyiz..?

 

[veyselemre]

Sub test()
    Set s1 = Sheets("sayfa1")
    Set s2 = Sheets("sayfa2")
    sat = 4
    s2.Range("c4:P34").ClearContents
    For i = 3 To 35 Step 8
        For ii = 3 To 15 Step 2
            If IsDate(s1.Cells(i, ii).Value) Then
                For iii = 1 To 7
                    s2.Cells(sat, iii * 2 + 1).Value = s1.Cells(i + iii, ii).Value
                    s2.Cells(sat, iii * 2 + 2).Value = s1.Cells(i + iii, ii + 1).Value
                Next iii
                sat = sat + 1
            End If
        Next ii
    Next i
End Sub

 

[EKREM1661]

Veysel hocam..! Harika olmuş.. Elinize sağlık ve her halükarda başarılar dileğiyle..