Hücre ile sütun metnini kod ile birleştirmek...

[blackmonkey]

Ekli örnekte de belirtildiği gibi "B1 hücresindeki metni, A2:A13 sütunundaki metinlerle B2:B13 sütununda kod ile birleştirmek istiyorum... Formül olayını zaten bildiğimi örnekte gösterdim... Kodunu çözemedim... Herkese kolay gelsin...

 

[Recep İpek]

Aşağıdaki kodları kullanabilirsiniz.

Sub birlestir()
For i = 2 To [a65536].End(3).Row
Cells(i, "b").Value = Cells(i, "a").Value & [b1]
Cells(i, "c").Value = Cells(i, "a").Value & [c1]
Next i
End Sub

 

[blackmonkey]

Teşekkürler Sayın Ripek... Sağolun...