Sütunları birleştirme

[crackerdent]

Arkadaşlar örnekte göreceğiniz gibi benim F ve G sütünlarında verilerim var bu verileri bir satır F sütunundan bir satır da G sütunundan olmak üzere H sütununda tek sütun haline getirmek istiyorum. Yardımcı olursanız çok sevinirim.

 

[veyselemre]

Sub dene()
For x = 1 To [G65536].End(3).Row
    For y = 6 To 7
        sat = sat + 1
        Cells(sat, "H") = Cells(x, y)
    Next y
Next x
End Sub

 

[crackerdent]

dostum ellerine sağlık, çok teşekkür ederim.