Oluşturulmuş Bir Tabloyu Farklı Formatta Tekrar OLuşturma

[muhammedakkas]

Merhaba Örnek dosyayı ekliyorum.
Elimde örnekte yazan analiste gibi bir listem bulunuyor. Bu listeyi istenendeki hale çevirmem gerekiyor. Bunun için nasıl bir yöntem izleyebilirim?

 

[Ziynettin]

Sub kod()
Set s1 = Sheets("ANA LİSTE")
Set s2 = Sheets("İSTENEN")
son = s1.Cells(Rows.Count, 1).End(3).Row
a = s1.Range("A1:H" & son).Value
s = UBound(a)
ReDim b(1 To s * 5, 1 To 5)
For j = 1 To 5
    For i = 2 To s
        say = say + 1
        b(say, 1) = a(i, 1)
        b(say, 2) = a(i, 2)
        b(say, 3) = a(i, 3)
        b(say, 4) = a(1, j + 3)
        b(say, 5) = a(i, j + 3)
    Next i
Next j
s2.[B2].Resize(say).NumberFormat = "dd.mm.yyyy"
s2.[A2].Resize(say, 5) = b
MsgBox "İşlem tamam.", vbInformation
End Sub

 

[muhammedakkas]

Çok teşekkür ederim İnanılmaz işimi gördü

 

[PriveT]

Merhaba,
Bu da formüllü alternatif olsun.
Ama tabiki makronun yerini tutmaz.

 

[muhammedakkas]

Ellerinize sağlık hocam çok güzel bu da

 

[PriveT]

Geri dönüş için teşekkürler.
Ama dediğim gibi tavsiyem makrodan yana.