Sütunu satıra çevir

[nadirornek]

Kod yardımı ile B sütununa bakarak A sütununu satıra çevirebilirmiyiz.
Örnek;F,G,H sütunlarındadır.Bu olayı tüm tabloya yaptırtabilirmiyiz.

 

[ÖmerBey]

Aşağıdaki kodu deneyiniz.

Sub kod()
Range("F:Z").ClearContents
For a = 2 To Range("A65500").End(3).Row
    If Cells(a, "B") <> "" Then
        süt = 6
        sat = a
    Else
        Cells(sat, süt) = Cells(a, "A")
        süt = süt + 1
    End If
Next
End Sub

 

[nadirornek]

Teşekkürler güzel olmuş