Soru excel sayfasına TL olarak atma

[yamahato]

Aşağıda ki TextBoxlara girdiğimiz sayısal değerleri Excel satırında ki ilgili sütüna TL OLARAK GÖNDERMESİ İÇİN NE YAPMALIYIZ.

Set s1 = Sheets("MASRAFLAR")
SiraNo = s1.[A65536].End(3).Row + 1

s1.Range("G" & SiraNo) = TextBox9.Value
s1.Range("I" & SiraNo) = TextBox11.Value
s1.Range("J" & SiraNo) = TextBox12.Value

 

[Orion1]

s1.Range("G" & SiraNo) = cdbl(TextBox9.Value)

Bu şekilde yazın kodunuzu.
TL olarak görünmesi için biçimlendirme yapınız önceden o sütunu.Manuel.

 

[yamahato]

s1.Range("G" & SiraNo) = cdbl(TextBox9.Value)

Teşekkür ederim oldu.