Soru KOD ATAMA

[ofisci]

Merhaba Sayın üstadlarım,
Bir excel sayfam var, bu sayfada A sütunu sabit, B:U sütunları arasında dağınık vaziyette tanımlar var. Bu tanımların sağ tarafında kod sütunları mevcuttur. Bu sütunlara V:AE sütunları arasındaki kodları B:U sütunları arasında dolu olan her hücrenin sağındaki kod sütununa getirip yapıştırmasını istiyorum. bunu yapacak MAKRO yapılabilir mi? yardımcı olabilirseniz çok sevinirim. Çünkü bu şekilde 30 bin satır data var. Manuel yapma imkanım yok. Örnek dosyayı ekliyorum. Güzel haberlerinizi bekliyorum. Şimdiden yardımcı olan üstadıma çok teşekkür ediyorum. İyi çalışmalar dilerim.

 

[veyselemre]

Sub test()
    son = Cells(Rows.Count, 1).End(3).Row
    veri = Range(Cells(1, 22), Cells(son, 31)).Value
    For sat = 2 To son
        say = 1
        For sut = 2 To 20 Step 2
            If Cells(sat, sut) <> "" Then
                For i = say To 10
                    If veri(sat, i) <> "" Then
                        Cells(sat, sut + 1) = veri(sat, i)
                        say = i + 1
                        Exit For
                    End If
                Next i
            End If
        Next sut
    Next sat
End Sub

 

[ofisci]

Veysel Hocam çok teşekkür ederim. Beynine ve ellerine sağlık, işimi gördü. Allah razı olsun.