Sütun bilgilerini yazdırma

[mferenlerm]

Arkadaşlar merhaba,

Benim ekteki gibi bir sorum var. Elimde bir sutündan ve satırlardan oluşan değerlerim var. Satırdaki değerleri sırasıyla, açtığım yeni 3 sütuna (sarı ile boyalı) yazdırmak istiyorum. Yardımcı olursanız çok sevinirim. Örneği linkteki gibidir.

Örnek

 

[bmutlu966]

B2 den başlayan değerleri istediğiniz şekilde E,F,G kolonlarına yazar.

Sub degistir()

son = [B65000].End(3).Row
k = 2

For t = 2 To son Step 3
    Cells(k, "E") = Cells(t, "B")
    Cells(k, "F") = Cells(t + 1, "B")
    Cells(k, "G") = Cells(t + 2, "B")
    k = k + 1
Next
End Sub

 

[bmutlu966]