textbox da kuruş değerleri sorunu

[ulutanas]

arkadaşlar merhaba öncelikle ilgilendiğiniz için teşekkür ederim.

sorun çok basittir mutlaka ama halledemedim.

kayıt gir formunu açtığımızda birim fiyatı ve miktar bölümünde kuruşlu değerler girdiğim zaman toplam,kdv ve genel toplam bölümünde yanlış sonuçlar veriyor forum umuzda bu konuyla ilgili araştırmalar yaptım fakat örnek dosyalardaki formülleri kopyalayıp denedim yine olmadı nerede yanlış yaptım bilmiyorum. yardımcı olursanız sevinirim.

teşekkürler

 

[Necdet]

Merhaba,

Aşağıdaki şekilde dener misiniz?

Private Sub TextBox3_Change()
'If TextBox3 <> "" Then Exit Sub
TextBox5.Text = Format(CDbl(TextBox3.Text) * CDbl(TextBox4.Text), "#,##0.00")
End Sub

 

[ulutanas]

necdet bey teşekkür ederim uyguladım fakar kdv bölümünde hala yanlış sonuç veriyor.

 

[Necdet]

necdet bey teşekkür ederim uyguladım fakar kdv bölümünde hala yanlış sonuç veriyor.

KDV ye bakmadım ki, sonuçta yukarıda verilen örneğe göre orayı da siz yapacaksınız.

 

[ulutanas]

ilk yaptığımda tutar ve genel giderlere dediğiniz gibi kodları girmiştim kdv yi unutmuşum şimdi oldu teşekkür ederim.

 

[ulutanas]

necdet hocam şimdi başka bir hata verdi mesela birim fiyatını 123,55 miktar ı 2 diye girdiğimizde sonuçları net veriyor fakat miktar ı değiştirmek için miktar ı silmeden direk rakam girersek hata yok ama sildiğimiz anda aşağıdaki gibi hata veriyor. bu hata ile ilgili bir bilginiz varmı acaba. teşekkürler.

Private Sub TextBox3_Change()
'If TextBox3 <> "" Then Exit Sub
TextBox5.Text = Format(CDbl(TextBox3.Text) * CDbl(TextBox4.Text), "#,##0.00")
End Sub

 

[leumruk]

Merhaba,
Kodu aşağıdaki gibi deneyin.

Private Sub TextBox3_Change()
If TextBox3 = "" Then Exit Sub
TextBox5.Text = Format(CDbl(TextBox3.Text) * CDbl(TextBox4.Text), "#,##0.00")
End Sub

 

[ulutanas]

mustafa hocam çok teşekkür ederim.

 

[ulutanas]

mustafa hocam son yazdığınız kodla işlemler işimi gördü fakat işlemi kaydettiğim zaman kdv bölümündeki rakamları virgülleri ayırmadan kaydediyor sayfadaki kayıt görünümü aşağıdaki gibi oluyor. bununla ilgili ne yapmam gerekir acaba.

adet birim fiyatı tutar kdv g.toplam
1 123,55 123,55 22.239 TL 145,79

teşekkürler.

 

[Ergün Güler]

Selam,
Bende de aynı problem olmuştu. Sayın Evren Gizlen Sayesinde aşağıdaki gibi çözüldü.
Aşağıdaki kodu kendinize göre uyarlayarak dener misiniz?

Private Sub UserForm_Initialize()
TextBox1.Value = Sheets("[COLOR="Red"][B]Sayfanız[/B][/COLOR]").Range("[COLOR="Red"][B]Hücreniz[/B][/COLOR]").Value
TextBox1.Text = Format(Range("[COLOR="Red"][B]Hücreniz[/B][/COLOR]").Value, "#,##0.000 TL")
End Sub

 

[Ergün Güler]

Selam bir kod daha sayın Halit3'den;

TextBox1.Text = Format(Round(Cells(5, "g"), 3), "#,##0.000 TL")

g hücreniz
5 hücre satır sayısı
3 virgülden sonraki görünmesi gereken basamak sayısı

iyi çalışmalar.

 

[ulutanas]

ergunguler kardeş bilgi paylaşımın için teşekkür ederim fakat sorun hala çözülmedi sanırım olay ListView1 den kaynaklanıyor diycem ama tutar ve genel toplamda hata vermeyip kdv de vermesi kafamı karıştırıyor. sorun üzerinde çalışıyorum sonuç bulursam burayada yazcam inş. başka arkadaşlarda aynı sorunla karşılaşırsa yardımcı olur maksatıyla. ilgin için tekrar teşekkür ederim.

 

[Ergün Güler]

1.sıradaki ek dosyanız aynı sorun için geçerli mi?

 

[ulutanas]

evet 1. eklediğim dosyada aynı sorun var

 

[halit3]

bunu denermisiniz.

Private Sub CommandButton4_Click()
yer = "KAYIT_DEFTERİ"
sat1 = Worksheets(yer).[a65536].End(3).Row + 1
For r = 1 To ListView1.ListItems.Count + 1
Sheets(yer).Cells(sat1, 1).Value = ListView1.ListItems(r)
On Error Resume Next
For i = 0 To ListView1.ColumnHeaders.Count - 1
If IsNumeric(ListView1.ListItems(r).ListSubItems(i).Text) = False Then
Sheets(yer).Cells(sat1, i + 1).Value = ListView1.ListItems(r).ListSubItems(i).Text
Else
If IsDate(ListView1.ListItems(r).ListSubItems(j).Text) = True Then
Sheets(yer).Cells(sat1, i + 1).Value = ListView1.ListItems(r).ListSubItems(i).Text
Else
Sheets(yer).Cells(sat1, i + 1).Value = ListView1.ListItems(r).ListSubItems(i).Text * 1
End If
Next i
sat1 = sat1 + 1
Next r
deger1 = 0
MsgBox "İŞLEM TAMAM", , "ULUTAN UYGUR"
End Sub

 

[ulutanas]

Yeni dosya

Halit hocam dediğinizi uygululadım fakat hata veriyor dosyayı sizi verdiğiniz son kodu ekleyerek tekrar ekliyorum size zahmet bi kontrol etseniz çok sevinirim. Ilginiz için çok teşekkürler

 

[halit3]

şimdi bilgisayarı kapatacağım dosyan yok yarın bakayım. önceleikle sorunun anlıyamadım çok userform var hangi userformda negibi bir hata alıyorsun olmasıgereken ve görünen durumun resmini ekle birde dosyanızın son halini ekleyiniz. bakalım bu bilgiler olmayınca çözecek kişilerde bu kadarcık form içinde nerde hata olduğunu bulmak için bir hayli gayret zarfetmeli

 

[ulutanas]

dosya eklendi

arkadaşalar sorunlardan bazılarını sayenizde halletik ama son bir sorun kadı dosyayı son haliyle tekrar gönderiyorum yardımcı olursanız çok memnun olurum ilginiz için çok teşekkürler.

 

[halit3]

textbox5 change olayını aşağıdaki gibi değiştir.

Private Sub TextBox5_Change()
If TextBox5 = "" Then Exit Sub
TextBox5 = Format(TextBox5, "#,#0.00#")
TextBox6.Text = Format(CDbl(TextBox5.Text) * 18 / 100, "#,##0.00")
End Sub

CommandButton4_Click olayını aşağıdaki ile değiştir.

Private Sub CommandButton4_Click()
yer = "KAYIT_DEFTERİ"
sat1 = Worksheets(yer).[a65536].End(3).Row + 1
For r = 1 To ListView1.ListItems.Count + 1
Sheets(yer).Cells(sat1, 1).Value = ListView1.ListItems(r)
On Error Resume Next
For i = 0 To ListView1.ColumnHeaders.Count - 1
If IsNumeric(ListView1.ListItems(r).ListSubItems(i).Text) = False Then
Sheets(yer).Cells(sat1, i + 1).Value = ListView1.ListItems(r).ListSubItems(i).Text
Else
Sheets(yer).Cells(sat1, i + 1).Value = ListView1.ListItems(r).ListSubItems(i).Text * 1
End If
Next i
sat1 = sat1 + 1
Next r
deger1 = 0
MsgBox "İŞLEM TAMAM", , "ULUTAN UYGUR"
End Sub

kayıt defterinde hücreleri "biçimlendir /finansal /ondalık basamak sayısını" 2 yap

 

[ulutanas]

halit hocam çok teşekkür ederim sorun çözüldü )