Hücredeki değer

[MERDAG]

Merhaba;
Ben hücrede yazan biçimlendirilmiş olan sayısal değerin textboxta aynen görünmesini istiyorum.

Mesela hücrede 56,265845 yazılı hücre biçimlendirme ile 56,27 yapıyorum ama hücre değerini textbox'a alırken 56,265845 olarak alıyor
değişik textbox formatları denedim ama olmadı...

Nasıl bir kod yazmam gerekir...

Teşekkürler...

 

[Ömer]

Merhaba,

TextBox1.Text = Format([A1], "#,##0.00")

Bu şekilde deneyiniz..

.

 

[MERDAG]

bu şekilde tamam ama bu kodu F sütununa nasıl uyarlarız.
Kullandığım kod
TextBox6 = WorksheetFunction.SumIf([stok!C5:C10000], ListBox1.List(ListBox1.ListIndex), [stok!F5:F10000]) bu şekilde değeri textbox'a aldırıyorum...

 

[Ömer]

#2 nolu mesajdaki [A1] yerine WorksheetFunction...... yazmanız yeterli olacaktır.

.

 

[MERDAG]

Malesef olmadı
Private Sub ListBox1_Click()
TextBox2 = WorksheetFunction.SumIf([stok!C5:C10000], ListBox1.List(ListBox1.ListIndex), [stok!N5:N10000])
TextBox3 = WorksheetFunction.SumIf([stok!C5:C10000], ListBox1.List(ListBox1.ListIndex), [stok!E5:E10000])
TextBox4 = WorksheetFunction.SumIf([stok!C5:C10000], ListBox1.List(ListBox1.ListIndex), [stok!H5:H10000])
TextBox5 = WorksheetFunction.SumIf([stok!C5:C10000], ListBox1.List(ListBox1.ListIndex), [stok!K5:K10000])
TextBox6 = WorksheetFunction.SumIf([stok!C5:C10000], ListBox1.List(ListBox1.ListIndex), [stok!F5:F10000])
TextBox7 = WorksheetFunction.SumIf([stok!C5:C10000], ListBox1.List(ListBox1.ListIndex), [stok!I5:I10000])
TextBox8 = WorksheetFunction.SumIf([stok!C5:C10000], ListBox1.List(ListBox1.ListIndex), [stok!L5:L10000])
TextBox6.Text = Format(WorksheetFunction, "#,##0.00")End Sub
kodu bu şekilde ekledim ama hata veriyor...

 

[MERDAG]

Maalesef olmadı
Private Sub ListBox1_Click()
TextBox2 = WorksheetFunction.SumIf([stok!C5:C10000], ListBox1.List(ListBox1.ListIndex), [stok!N5:N10000])
TextBox3 = WorksheetFunction.SumIf([stok!C5:C10000], ListBox1.List(ListBox1.ListIndex), [stok!E5:E10000])
TextBox4 = WorksheetFunction.SumIf([stok!C5:C10000], ListBox1.List(ListBox1.ListIndex), [stok!H5:H10000])
TextBox5 = WorksheetFunction.SumIf([stok!C5:C10000], ListBox1.List(ListBox1.ListIndex), [stok!K5:K10000])
TextBox6 = WorksheetFunction.SumIf([stok!C5:C10000], ListBox1.List(ListBox1.ListIndex), [stok!F5:F10000])
TextBox7 = WorksheetFunction.SumIf([stok!C5:C10000], ListBox1.List(ListBox1.ListIndex), [stok!I5:I10000])
TextBox8 = WorksheetFunction.SumIf([stok!C5:C10000], ListBox1.List(ListBox1.ListIndex), [stok!L5:L10000])
TextBox6.Text = Format(WorksheetFunction, "#,##0.00")
End Sub
kodu bu şekilde ekledim ama hata veriyor...

 

[Ömer]

Fonksiyonun tamamını yazmanız gerekir. Ben ... ile kısaltarak yazmıştım.

TextBox6.Text = Format(WorksheetFunction.SumIf([stok!C5:C10000], ListBox1.List(ListBox1.ListIndex), [stok!F5:F10000]), "#,##0.00")

.

 

[MERDAG]

Teşekkürler Ömer bey
Noktaları fark ettimde ama ne kadar yazılacak onu çıkaramadım
Yardımlarınız için tekrar teşekkürler...