- Katılım
- 29 Ağustos 2009
- Mesajlar
- 398
- Excel Vers. ve Dili
- 2007 Türkçe
İ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ı;
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ü.
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ı;
Kod:
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
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ü.