Döngü Kodu İsteği

[erhanngunn]

Merhaba,

Ekteki excel dosyamda A sayfasındaki verilen B sayfasındaki sıralaycak bir makro koduna ihtiyacım var, şimdiden teşekkür ederim.

 

[dEdE]

Merhaba,
Aşağıdaki kodu dener misiniz?

Sub Sırala()
Set s1 = Sheets("A")
Set s2 = Sheets("B")
For i = 5 To s1.Range("A" & Rows.Count).End(3).Row
For k = 5 To 21
    ss = s2.Range("A" & Rows.Count).End(3).Row + 1
    If s1.Cells(i, k).Value = "" Then GoTo Atla
    s2.Cells(ss, 5).Value = s1.Cells(i, k).Value
    s1.Range("A" & i & ":D" & i).Copy s2.Range("A" & ss & ":D" & ss)
Atla:
Next
Next
End Sub