Hücredeki Değişken Değeri Label'e Aktarmak

[Seyit Tiken]

Herkese Selamlar,
A1 hücresinde değişken sayısal bir veri var. Sayısal formatı : "#.##0,00" şeklindedir. Bunu UserForm üzerinde bulunan Label'e bağlanması gerek. Yani A1 hücresindeki değer değiştiğinde Label'deki değerinde değişmesi gerekir. Ã?rnek olarak Label'de gözükmesi gereken biçim : "Genel Toplam : 1.120,30 TL." şeklinde. Saygılarımı sunuyorum.

 

[Ali]

Private Sub UserForm_Initialize()
Label1.Caption = "Genel Toplam :" & Sayfa1.Cells(1, 1) & " TL"
End Sub

 

[Seyit Tiken]

Ellinize sağlık. Teşekkür ediyorum. Kod gayet güzel çalışıyor. Ancak ufak bir pürüz söz konusu. Sayı biçimi ile ilgili. Tutar olarak Türk Lirasını yazarken, kuruş olsun olmasın son iki rakamdan önce virgül olması gerek. Ve binlik ayracı için de nokta konulması gerek.
İstenilen sayı biçimi : "#.##0,00"(tırnaklar yok). Bu sayı biçimi koda eklenebilir mi? Teşekkürlerimi sunuyorum.

 

[Haluk]

Label1.Caption = "Genel Toplam : " & Format(Range("A1"), "#,##0.00 YTL")

 

[veyselemre]

[vb:1:61a06f0028]
Label1.Caption = "Genel Toplam : " & Format(Sayfa1.Cells(1, 1), "#,##0.00") & " YTL"
'Virgülü ondalık simgesi olarak göstermek için
sayi = Replace(Format(Sayfa1.Cells(1, 1), "#,##0.00"), ".", "|")
sayi = Replace(sayi, ",", ".")
sayi = Replace(sayi, "|", ",")
Label2.Caption = "Genel Toplam : " & sayi & " YTL"
[/vb:1:61a06f0028]

 

[Seyit Tiken]

Ellerinize sağlık. Allah razı olsun. Süper oldu. Teşekkür ediyorum.