HATA KODU

[yamahato]

Ustalarım merhaba, hata nerede yardımcı olur musunuz?

 

[Ömer]

Merhaba,

TextBox5 değerini Kasa defteri sayfası B sütununda bulamıyor.

 

[yamahato]

Merhaba,

TextBox5 değerini Kasa defteri sayfası B sütununda bulamıyor.

Sayın hocam çözdüm sayenizde teşekkür ederim. müsaadenizle 1 soru daha sorabilirmiyim.

KODLAIM BUNLAR
Private Sub ListBox2_Change()
If IsNull(ListBox2.Value) = True Then TextBox5.Text = "": Exit Sub '<-------------------
Set s1 = Sheets("KASA DEFTERİ")
son = s1.Cells(Rows.Count, "I").End(3).Row
sat = WorksheetFunction.Match(ListBox2.Value, s1.Range("I1:I" & son), 0)
TextBox2.Text = s1.Cells(sat, "H")
TextBox3.Text = s1.Cells(sat, "I")
TextBox4.Text = s1.Cells(sat, "C")
TextBox5.Text = s1.Cells(sat, "G")
TextBox6.Text = s1.Cells(sat, "B")
TextBox7.Text = s1.Cells(sat, "D")
TextBox8.Text = s1.Cells(sat, "F")
TextBox9.Text = s1.Cells(sat, "J")
TextBox10.Text = s1.Cells(sat, "K")
TextBox11.Text = s1.Cells(sat, "L")
TextBox12.Text = s1.Cells(sat, "M")
TextBox13.Text = s1.Cells(sat, "M")
TextBox14.Text = s1.Cells(sat, "N")
TextBox15.Text = s1.Cells(sat, "O")
TextBox16.Text = s1.Cells(sat, "P")
Set s1 = Sheets("CARİ")
son = s1.Cells(Rows.Count, "A").End(3).Row
sat = WorksheetFunction.Match(TextBox5.Value, s1.Range("A1:A" & son), 0)
Label25 = Format(xxxx, "0.00")
Label25 = s1.Cells(sat, "P")

 

[Ömer]

Örnek olarak yazıyorum. Kendinize uyanı değiştirerek kullanırsınız.

TextBox1 = Format(Range("D5"), "#,##0.00 TL")

TextBox1 = Format(Range("D5"), "#,##0.00000000 TL")

 

[yamahato]

Hallettim hocam teşekkür ederim