HATA KODU

yamahato

Altın Üye
Katılım
20 Mayıs 2009
Mesajlar
231
Excel Vers. ve Dili
excel 2007
230767

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

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

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

yamahato

Altın Üye
Katılım
20 Mayıs 2009
Mesajlar
231
Excel Vers. ve Dili
excel 2007
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.
230788
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

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,196
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Ö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

Altın Üye
Katılım
20 Mayıs 2009
Mesajlar
231
Excel Vers. ve Dili
excel 2007
Hallettim hocam teşekkür ederim
 
Üst