Birleştirilen hücre Sayıya dönüşüyor!

[vol1237]

Merhaba arkadaşlar aşağıdaki makrodan sonra oluşan birleştirilmiş değer bir sayı gibi oluşuyor ve böyle olunca formüllerde sorun çıkıyor bunun direkt metin biçiminde oluşturulmasını nasıl sağlayabiliriz? Tek tek metne çevir değip f2 ile yenilemek mümkün değil çünkü. Saygılar

Sub Birleştir()
son = Range("A" & Rows.Count).End(3).Row
dz = Range("I1:J" & son)
For a = 2 To son
    dz(a, 2) = Cells(a, "A") &[COLOR="Red"] " "[/COLOR] & Cells(a, "E")
    dz(a, 1) = Cells(a, "K") & [COLOR="red"]" "[/COLOR] & dz(a, 2)
Next
Range("I1:J" & son) = dz
End Sub

[/QUOTE]

 

[Orion1]

I:J sütunlarını metin olarak biçimlendirin.
Deneyiniz.

For a = 2 To son
    dz(a, 2) = CStr(Cells(a, "A")) & " " & CStr(Cells(a, "E"))
    dz(a, 1) = CStr(Cells(a, "K")) & " " & CStr(dz(a, 2))
Next

 

[vol1237]

I:J sütunlarını metin olarak biçimlendirin.
Deneyiniz.

For a = 2 To son
    dz(a, 2) = CStr(Cells(a, "A")) & " " & CStr(Cells(a, "E"))
    dz(a, 1) = CStr(Cells(a, "K")) & " " & CStr(dz(a, 2))
Next

Teşekkürler Üstad..

 

[Orion1]

Teşekkürler Üstad..

Rica ederim.
İyi çalışmalar.