Kağıt fiyatı hesaplama programı

[Civan Jack]

Selamlar,

Ek'teki gibi bir program yapmak istiyorum, fakat fiyat hesaplama kısmını beceremedim bir türlü.

Biraz anlatayım size, çalışmanın şu şekide olması gerekiyor;
İlk ebat, son ebat, gramaj ve tabaka adedi girildikten sonra, (buraların hesaplamasını yaptım.)
kağıt cinsinden seçtiğimiz kağıdın sayfadaki karşılığı olan
örneğin; 1. Hamur seçildiğinde 1.410 USD' ı kur cinsiyle çarpıp fiyatı hesaplamayı bitirmek.

Umarım anlatabilmişimdir.
Yardımcı olabilirseniz sevinirim.

Teşekkür ederim.

 

[Civan Jack]

Yardımcı olabilir misiniz ?

 

[usubaykan]

Merhaba;

Yazmış olduğunuz kodun devamına

Set bul = Cells.Find(what:=ComboBox1.Value, lookat:=xlWhole)
If Cells(bul.Row, "E") = "EURO" Then
TextBox8.Value = Cells(bul.Row, "D") * Range("G3")
Else
If Cells(bul.Row, "E") = "USD" Then
TextBox8.Value = Cells(bul.Row, "D") * Range("H3")
Else
If Cells(bul.Row, "E") = "TL" Then
TextBox8.Value = Cells(bul.Row, "D") * Range("I3")
End If
End If
End If
End If

ekleyip deneyiniz.

 

[Civan Jack]

İlginiz için teşekkür ederim.
Sanırım tam olarak anlatamadım.
Ama kodlarınızı kaydettim, bir başka çalışmamda kullanacağım.

Burada yapmak istediğim; kağıt cinsini seçtiğimde eğer kağıt cinsinin birimi KG. ise toplam kg. ile, kağıt cinsinin satış bölümdeki rakamla kuru çarpmak...

Eğer şeçilen kağıt cinsinin birimi KG. ise benim kodlara ek olarak aşağıdaki gibi olmalı.
-----------------Kağıt Cinsi----- / --KUR
Tolam Kg. X (1.HAMUR 1410 "USD") X 1,65

Bir diğer anlatışla;
2400 kg. x 1410 x 1,65

Eğer şeçilen kağıt cinsinin birimi TBK. ise aşağıdaki gibi olmalı.
Tabaka adedi / kağıt cinsi / satış kur
2.500 100 gr. REPAP KUŞE 0,24"TL" X 1

Bir diğer anlatışla;
2.500 tabaka X X0,24 X 1,65


Teşekkür ederim.

 

[Civan Jack]

Aşağıdaki yazdıklarım yapmak istediğimi kısaca özetliyor;

Eğer seçilen kağıt cinsinin birimi KG. ise; toplam kg. x satış x kur
Eğer seçilen kağıt cinsinin birimi TBK. ise; toplam tbk. x satış x kur

 

[usubaykan]

Merhaba;

Öncelikle rica ederim. Toplam Kg. dan kastınız nedir tam olarak anlayamadım? Eğer anladığım şey ise bunu yazdığım koda "And" sorgusu kullanarak yapmak mümkün.

 

[Civan Jack]

Merhaba Sn. usubaykan isminizi bilmiyorum kusura bakmayın.

Aşağıdaki resimdede göreceğiniz üzre, kağıt cinsinden önce, yani; combobox'tan önce Toplam Kg. textbox'u var.
Kastettiğim Toplam Kg. orasıdır.
Textboxları şöyle doldurursak;
70 x 100 x 170 x 5.000 sonra hesapla butonuna bastığımızda Toplam Kg. ı görebilirsiniz.

Önemli olan seçilen kağıt cinsinin BİRİM'i dir.

Eğer seçilen kağıt cinsinin birimi KG. ise; toplam kg. x satış x kur
Eğer seçilen kağıt cinsinin birimi TBK. ise; toplam tbk. x satış x kur

 

[usubaykan]

Merhaba Sn. usubaykan isminizi bilmiyorum kusura bakmayın.

Aşağıdaki resimdede göreceğiniz üzre, kağıt cinsinden önce, yani; combobox'tan önce Toplam Kg. textbox'u var.
Kastettiğim Toplam Kg. orasıdır.
Textboxları şöyle doldurursak;
70 x 100 x 170 x 5.000 sonra hesapla butonuna bastığımızda Toplam Kg. ı görebilirsiniz.

Önemli olan seçilen kağıt cinsinin BİRİM'i dir.

Eğer seçilen kağıt cinsinin birimi KG. ise; toplam kg. x satış x kur
Eğer seçilen kağıt cinsinin birimi TBK. ise; toplam tbk. x satış x kur

Merhaba;

TextBox8.Value = ""
Set Bul = Cells.Find(what:=ComboBox1.Value, lookat:=xlWhole)
If Cells(Bul.Row, "E") = "EURO" [COLOR=red]And Cells(Bul.Row, "B") = "KG" [/COLOR]Then
TextBox8.Value = Cells(Bul.Row, "D") * Range("G3") [COLOR=red]* TextBox7.Value[/COLOR]
Else
If Cells(Bul.Row, "E") = "USD" [COLOR=red]And Cells(Bul.Row, "B") = "KG"[/COLOR] Then
TextBox8.Value = Cells(Bul.Row, "D") * Range("H3") [COLOR=red]* TextBox7.Value[/COLOR]
Else
If Cells(Bul.Row, "E") = "TL" [COLOR=red]And Cells(Bul.Row, "B") = "KG"[/COLOR] Then
TextBox8.Value = Cells(Bul.Row, "D") * Range("I3") [COLOR=red]* TextBox7.Value[/COLOR]
End If
End If
End If
End If
end sub

Textbox7.Value = Toplam Kg. miktarınız... Toplam Tbk için siz yazmayı dener misiniz?

 

[Civan Jack]

Çok teşekkür ederim.
Hemen bakıyorum.

 

[usubaykan]

Çok teşekkür ederim.
Hemen bakıyorum.

Rica ederim ;-)

 

[Civan Jack]

Asağıdaki kodu ilave ettim TBK hesabını da yaptı.

If Cells(Bul.Row, "E") = "TL" And Cells(Bul.Row, "B") = "TBK" Then
TextBox8.Value = Cells(Bul.Row, "D") * Range("I3") * TextBox6.Value

Yalnız resimde de göreceğinizi gibi ufak bir sorun var.
Ondalık sayılar da örneğin; kilogram = 79 kg. 458 gr. (79,458 kg.) olması gerekirken
79458 kg. yazıyor.

Bir de kağıt fiyatı (textbox8) de toplam fiyat; 184859037 yazıyor.
TL olarak 184.859,037 gibi yazdırabilir miyiz ?

Teşekkür ederim.

 

[Civan Jack]

Çözdüm Sn. usubaykan yardımlarınız için çok teşekkür ederim, hayırlı geceler.

 

[Civan Jack]

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

 

[usubaykan]

Çözdüm Sn. usubaykan yardımlarınız için çok teşekkür ederim, hayırlı geceler.

Rica ederim ;-)

 

[Civan Jack]

Günaydın.
Programdaki toplam kağıt bedelini birimi KG olursa yanlış hesaplıyor.
Bir bakabilir misiniz Sn. usubaykan ?
Belki doğru hesaplıyordur ama nokta doğru yerde olmuyor...
Teşekkür ederim.

 

[usubaykan]

Merhaba;

Aşağıdaki kodu deneyiniz

Private Sub TextBox8_Change()
Me.TextBox8.Value = Format(Me.TextBox8.Value, [COLOR=red]"#,##0.0"[/COLOR])
End Sub

 

[Civan Jack]

Çok teşekkür ederim Sn. usubaykan.
Çok daha iyi oldu. Ellerinize sağlık.
İyi günler.

 

[usubaykan]

Çok teşekkür ederim Sn. usubaykan.
Çok daha iyi oldu. Ellerinize sağlık.
İyi günler.

Rica ederim ;-)

 

[Civan Jack]

Bazı problemler gördüm,
Toplam kiloyu yanlış hesaplıyor.

 

[usubaykan]

Bazı problemler gördüm,
Toplam kiloyu yanlış hesaplıyor.

Nasıl hesaplaması gerekiyor? Örnekle açıklarsanız yardımcı olunulur.