makro ile veri yazdırma

[desıgner1]

İyi akşamlar arkadaşlar.
Aşağıdaki makro için yardımlarınızı bekliyorum lütfen.

Siyah verilerden Kırmızı verileri elde deceğiz.
Yani her satırda son 3 veriyi yazdıracağız.

 

[Korhan Ayhan]

Deneyiniz.

Sub AKTAR()
    Range("C3:E5").ClearContents
    For X = 3 To 5
        Sütun = 5
        Say = 0
        For Y = 13 To 8 Step -1
            If Say >= 3 Then GoTo 10
            If Cells(X, Y) <> "" Then
                Cells(X, Sütun) = Cells(X, Y)
                Sütun = Sütun - 1
                Say = Say + 1
            End If
        Next
10  Next
End Sub

 

[desıgner1]

Çok teşekkür ederim Korhan Hocam.
Elinize sağlık. İyi ki varsınız.