Farklı hücredeki metinlerin kod ile birleştirimi

[blackmonkey]

Sanırım başlık ve ekteki notum yeterince anlaşılır olmuştur.. Formül ile biliyorum ama kod daha sağlıklı dosya için..

 

[N.Ziya Hiçdurmaz]

yanıt

A1 hücresinde b1 & c1 hücresini birleştirir.

Sub test()
Range("a1") = Range("b1") & Range("c1")
End Sub

 

[Necdet]

Merhaba,

Ekli dosyayı inceleyebilirsiniz, A ve B sütunları C sütununda birleştirilir.

Public Sub Birlestir()
For i = 1 To [A65536].End(3).Row
     Cells(i, "C") = Cells(i, "A") & " " & Cells(i, "B")
Next i
End Sub

 

[blackmonkey]

Öncelikle teşekkürler.. Sub test() kısmını anlayamadım.. Nereye yazacağım..

 

[N.Ziya Hiçdurmaz]

yanıt

ALT + F11 Tıklayıp resme bakınız.

 

[blackmonkey]

Sayın Yeşertener

Örnek dosyama uygulayabilirsiniz..

 

[N.Ziya Hiçdurmaz]

yanıt

Sub test()
For sut = 1 To [d65536].End(3).Row
Range("r" & sut) = Range("d" & sut) & "  " & Range("e" & sut)
Next
End Sub

 

[blackmonkey]

Yeni veri girdiğimde formüllü sütun o an birleşmeyi gösteriyor.. Ben kodla ilgili sütuna da düğmesiz, o an yazmasını istiyorum.. Saygılarımla

 

[N.Ziya Hiçdurmaz]

yanıt

Dosyanız ekte.

 

[blackmonkey]

Öncelikle teşekkürler.. D sütununa veriyi enter'ladığımda F sütununda o an çıkıyor ve E sütununa da veriyi enter'layınca F sütununda birleşmiş çıkıyor (formüllü sütun işliyor). Fakat R sütununa kod ile yazılacak bölümün aktif olması için enter yetmiyor, diğer sayfaya gidip gelmek gerekiyor... Sayfa ve verinin her an aktif olması hatayı önler.. Saygılarımla..

 

[N.Ziya Hiçdurmaz]

yanıt

Dosyanız ekte.

 

[blackmonkey]

Çok çok teşekkürler... Sevgi ve saygılarımla...

 

[N.Ziya Hiçdurmaz]

Bişey değil.