Kağıt fiyatı hesaplama programı

[Civan Jack]

İyi akşamlar.

Aşağıdaki resimde de gördüğünüz gibi, herşeyi aynı yapıyorum ama kağıt fiyatı 1.338.619. olacağına, 133.861.875,0 çıkıyor.
Yani; son iki rakam fazla gibi.

Bu resimde exceldeki formülleri görebilirsiniz.

Programın tüm kodları;

Private Sub CommandButton1_Click()
On Error Resume Next
If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox4.Value = "" Or TextBox6.Value = "" Then
MsgBox "Eksik bilgi girdiniz !!!", vbCritical, "Bilgi Eksikliği"
Else
TextBox3.Value = TextBox1.Value * TextBox2.Value
TextBox5.Value = TextBox3.Value * TextBox4.Value / 10000
TextBox7.Value = TextBox5.Value * TextBox6.Value
TextBox8.Value = ""
Set Bul = Cells.Find(what:=ComboBox1.Value, lookat:=xlWhole)
If Cells(Bul.Row, "E") = "EURO" And Cells(Bul.Row, "B") = "KG" Then
TextBox8.Value = Cells(Bul.Row, "D") * Range("G3") * TextBox7.Value / 1000
Else
If Cells(Bul.Row, "E") = "USD" And Cells(Bul.Row, "B") = "KG" Then
TextBox8.Value = Cells(Bul.Row, "D") * Range("H3") * TextBox7.Value / 1000
Else
If Cells(Bul.Row, "E") = "TL" And Cells(Bul.Row, "B") = "KG" Then
TextBox8.Value = Cells(Bul.Row, "D") * Range("I3") * TextBox7.Value / 1000
Else
If Cells(Bul.Row, "E") = "TL" And Cells(Bul.Row, "B") = "TBK" Then
TextBox8.Value = Cells(Bul.Row, "D") * Range("I3") * TextBox6.Value
End If
End If
End If
End If
End If
End Sub

Private Sub TextBox8_Change()
Me.TextBox8.Value = Format(Me.TextBox8.Value, "#,##0.0")
End Sub

Private Sub UserForm_Click()
Application.Visible = True
End Sub

Private Sub UserForm_Initialize()
ComboBox1.ListRows = 25
End Sub

Tekrar anlatayım size;
Eğer seçilen kağıdın cinsi; KG. ise Tolam Kg. x Satış x Kur
Eğer; seçilen kağıdın cinsi; TBK. ise Tabaka Adedi x Satış x Kur

Hesaplamaları doğru yapıyor kanımca, ama kağıt fiyatı (textbox8) de doğru sonucu vermiyor.

İşyerinde çok uğraştım fakat yapamadım, olmadı bir türlü.

 

[usubaykan]

Merhaba;

Private Sub CommandButton1_Click()
On Error Resume Next
If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox4.Value = "" Or TextBox6.Value = "" Then
MsgBox "Eksik bilgi girdiniz !!!", vbCritical, "Bilgi Eksikliği"
Else
' Kullanılan yerleri önceden boşaltım adımlayarak çalıştırdığınızda hatalarınız kontrol edebilirsiniz.
TextBox3 = ""
TextBox5 = ""
TextBox7 = ""
TextBox8 = ""
' Her bir textboxa metinsel ifade girmediğiniz için sayısal olarak formatını değiştirdim. Böyle kullanmanızı tavsiye ederim.
Me.TextBox1.Value = Format(Me.TextBox1.Value, "#.##0,00")
Me.TextBox2.Value = Format(Me.TextBox2.Value, "#.##0,00")
Me.TextBox4.Value = Format(Me.TextBox4.Value, "#.##0,00")
Me.TextBox6.Value = Format(Me.TextBox6.Value, "#.##0,00")
' Hesaplamanızda ki hata /10000 değerinin format dışında kalmasından kaynaklanıyor.
TextBox3.Value = Format(TextBox1.Value * TextBox2.Value, "#,##0.00")
TextBox5.Value = Format(TextBox3.Value * TextBox4.Value / 10000, "#,##0.00")
TextBox7.Value = Format(TextBox5.Value * TextBox6.Value, "#,##0.00")
TextBox8.Value = ""
Set Bul = Cells.Find(what:=ComboBox1.Value, lookat:=xlWhole)
Me.TextBox8.Value = Format(Me.TextBox8.Value, "#,##0 " & Cells(Bul.Row, "E"))
If Cells(Bul.Row, "E") = "EURO" And Cells(Bul.Row, "B") = "KG" Then
TextBox8.Value = Format(Cells(Bul.Row, "D") * Range("G3") * TextBox7.Value / 1000, "#,##0.00")
Else
If Cells(Bul.Row, "E") = "USD" And Cells(Bul.Row, "B") = "KG" Then
TextBox8.Value = Format(Cells(Bul.Row, "D") * Range("H3") * TextBox7.Value / 1000, "#,##0.00")
Else
If Cells(Bul.Row, "E") = "TL" And Cells(Bul.Row, "B") = "KG" Then
TextBox8.Value = Format(Cells(Bul.Row, "D") * Range("I3") * TextBox7.Value / 1000, "#,##0.00")
Else
If Cells(Bul.Row, "E") = "TL" And Cells(Bul.Row, "B") = "TBK" Then
TextBox8.Value = Format(Cells(Bul.Row, "D") * Range("I3") * TextBox6.Value, "#,##0.00")
End If
End If
End If
End If
End If
End Sub
'Textbox değiştiğinde buraya yönlenmemesi için formatı her bir satır da değiştirdim.
'Private Sub TextBox8_Change()
'Me.TextBox8.Value = Format(Me.TextBox8.Value, "#,##0 ")
'End Sub
Private Sub UserForm_Click()
Application.Visible = True
End Sub
Private Sub UserForm_Initialize()
ComboBox1.ListRows = 25
End Sub

kodu inceleyiniz.

 

[Civan Jack]

İlgi, alaka ve yardımlarınız için çok çok teşekkür ederim Sn. usubaykan.
Herşey tıkır tıkır çalışıyor.
Anlatımlar içinde ayrıca teşekkür ediyorum.

Herşey gönlünüzce olsun.

 

[Civan Jack]

Formatlarda biraz düzeltme yaptım Sn. usubaykan.
Programın son halini ekliyorum.

Herkese iyi geceler.

 

[usubaykan]

Hayırlı olsun ;-)

 

[Civan Jack]

Çok faydalı olacağına eminim, bu tarz bir programa matbaacı olan herkesin ihtiyacı vardı.
Şu programlamayı öğrenebilsem, çok büyük şeyler yapacağım ama öğrenemedik maalesef.
Google da arama yaptım, dişe değer bir çalışma yok bu konuda. Aklıma geldi, sizin yardımınızla çok güzel birşey çıktı ortaya.

Tekrar teşekkür ediyorum.
İyi tatiller.

 

[usubaykan]

Rica ederim ;-) Buradan öğrenilecek daha çok şey var bizlerde yolun başındayız. Ben de bu konuda site yönetimine teşekkür ederim.

Çok faydalı olacağına eminim, bu tarz bir programa matbaacı olan herkesin ihtiyacı vardı.
Şu programlamayı öğrenebilsem, çok büyük şeyler yapacağım ama öğrenemedik maalesef.
Google da arama yaptım, dişe değer bir çalışma yok bu konuda. Aklıma geldi, sizin yardımınızla çok güzel birşey çıktı ortaya.

Tekrar teşekkür ediyorum.
İyi tatiller.

 

[Civan Jack]

Bu arada bende sizin aracılığınızla Site Yönetimi'ne bu eşsiz bilgi bankasını bize sundukları için çok teşekkür ederim.

Var olsunlar.

 

[Mstyy]

Son halini ekliyorum.
İyi çalışmalar.

Merhaba Arkadaşlar öncelikle göstermiş olduğunuz emekten ötürü hepinize teşekkür ederim. Yapmış olduğunuz kağıt hesaplama proğramı son hali winrarlı halimidir.?
Program içerisine kağıt fiyatlarının güncel olması için nasıl yapmamız gereklidir. Ayrıca örnek vermek gerekirse 155 gr kuşe programın içerisine eklenmiş ama 90 gr kuşe eklenmemiş veya da parlak mat olarak kağıt cinslerini nasıl ekleriz.
Göstermiş olduğunuz emeklerinize şimdiden teşekkür ederim.

 

[Mstyy]

Rica ederim ;-) Buradan öğrenilecek daha çok şey var bizlerde yolun başındayız. Ben de bu konuda site yönetimine teşekkür ederim.

Merhaba usubaykan ;
Sizlerden birkaç konuda yardım istiyecegim. 1.si excel ile ilgili kodları nereden bulabilirim. 2. örnek ile açıklamak gerekirse ComboBox butonun içerisine excel sayfasından verileri nasıl cekiyoruz.