Dökülen Sonucun Tersini Oluşturmak

[hakki83]

Merhaba

örnek1 dosyası kullandığım bir dosyadır.

örnek2 dosyasındaki gibi tam tersini dökecek şekilde kodları düzenleyebilir miyiz?

(örnek2'deki A sütunundakiler, K sütunundan itibaren dökülecek dosyadaki gibi)

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodları modüle kopyalayın.
Dönüştür adlı kodu çalıştırın.

Sub Dönüştür()
    Dim Bak As Long
    Dim Isim As Long
    Isim = 1
    For Bak = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        If IsNumeric(Cells(Bak, "A")) = False Then
            Kopyala Isim, Bak
            Isim = Bak
        End If
    Next
    Kopyala Isim, Bak
End Sub

Sub Kopyala(Isim As Long, Bak As Long)
    Dim Say As Long
    Range("A" & Isim & ":A" & Bak - 1).Copy
    Say = Cells(Rows.Count, "K").End(xlUp).Row + 1
    Cells(Say, "K").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub

 

[hakki83]

Muzaffer Ali hocamız emeğinize sağlık. Bilgisayara geçer geçmez hemen deneyeceğim.