Vba ile data ve metni birleştirip metin olarak saklama

[Antiochos02]

Talebim aslında belki de çok çok basit bir kod. Ama araştırmalarıma rağmen çözüm bulamadım.

txt1="KIYAS: "
veri1=WorksheetFunction.Min(Columns("AM")) - 30 + Range(AB13).Value
txt=txt1 & veri1

basit mantıkla yazılmış yukarıdaki kod parçası haliyle hata veriyor. veri1'i metne dönüştürüp birleştirme yapmam gerekiyor. Yardımcı olursanız sevinirim..

 

[Asri]

Talebim aslında belki de çok çok basit bir kod. Ama araştırmalarıma rağmen çözüm bulamadım.

txt1="KIYAS: "
veri1=WorksheetFunction.Min(Columns("AM")) - 30 + Range(AB13).Value
txt=txt1 & veri1

basit mantıkla yazılmış yukarıdaki kod parçası haliyle hata veriyor. veri1'i metne dönüştürüp birleştirme yapmam gerekiyor. Yardımcı olursanız sevinirim..

AB13 ü "AB13" olarak yazıp dener misiniz?

 

[Antiochos02]

Hayır bu yöntem çözüm sağlamıyor. Autocadde ekranın bir bölümüne
KIYAS: 864,68
gibi bir ifade yazdırmaya çalışıyorum. Başka fikirler bekliyorum.

 

[Asri]

Hayır bu yöntem çözüm sağlamıyor. Autocadde ekranın bir bölümüne
KIYAS: 864,68
gibi bir ifade yazdırmaya çalışıyorum. Başka fikirler bekliyorum.

yazmış olduğunuz AB13 ü program değişken olarak görmektedir.
tırnak içinde "AB13" olarak yazmanız gerekiyor.

Bir de aşağıdaki şekilde deneyin. str string e çevirecek, trim de başında ve sonunda boşluk oluşur ise silecektir.

Bu da olmaz ise, autocad in vba referans kitabına bakınız.

txt=txt1 & trim(str(veri1))

 

[Antiochos02]

Çok teşekkürler asri arkadaşım. İlk mesajınızı algılayamamışım ve uzun uğraşlarıma rağmen bildiğim halde çift tırnak ifadesini farkedememişim. Ancak 2. mesajınızla uyandım.
Ve ilginçtir str ifadesini kullandığımızda autocad ortamına virgül yerine nokta yazıyor. Sanırım bu olay basamak smgesinin Autocadde nokta olmasından kaynaklı.

 

[Korhan Ayhan]

Aşağıdaki gibi deneyiniz.

Sub Makro()
    txt1 = "KIYAS: "
    veri1 = WorksheetFunction.Min(Columns("AM")) - 30 + Range("AB13").Value
    veri1 = Format(veri1, "#,##0.00")
    veri1 = Replace(veri1, ",", "+")
    veri1 = Replace(veri1, ".", ",")
    veri1 = Replace(veri1, "+", ".")
    txt = CStr(txt1 & veri1)
    MsgBox txt
End Sub