Bilgi Fişi Hazırlama

[mtozer]

Merhaba
ekteki dosyada userform oluşturdum. Ancak değerleri yerine koymak için yardımcı olurmusunuz.

İstediğim şu; ölçü1, ölçü2, mlz. cinsi, kalınlık değerleri var.

burada ((ölçü1*ölçü2*mlz.cinsi*kalınlık)/100) "(malzeme cinsi; combobox ta ms., sts., al. ve cu. yazmalı ve hesaplarkende ms seçili iken 7,86 ile çarpmalı sts ise 7,86 - al. ise 2.7 - cu. ise 8,9 ile çarpmalı.

birde süre var o da işçilik süresi birim fiyat yazıldığında süre*işçilik birim fiyatı top. işç. fiyatına yazmalı.

http://s8.dosya.tc/server3/g4q4lf/fis.xls.html

 

[mtozer]

Merhaba
kısmen yapabildim. Ancak ComboBox'a veri yazdırıp karşılık değerlerini çarptırma konusunda sıkıntı yaşıyorum.

http://dosya.co/m8wo7f54lfk6/fis.xls.html

 

[mtozer]

Yani comboBox al ise; textbox7 ye veya 8 e (a*b*c*2.7) yazmali
ComboBox sts ise (a*b*c*3)
Combobox cu ise (a*b*c*8.9) yazdirmaliyim.

 

[mtozer]

Şu şekilde daha sade olacak;

ComboBox1 deki değer "a" ise textbox1 e "2" yazsın
ComboBox1 deki değer "b" ise textbox1 e "3" yazsın
ComboBox1 deki değer "c" ise textbox1 e "4" yazsın
ComboBox1 deki değer "d" ise textbox1 e "5" yazsın

 

[mtozer]

Bu kodu denedim ama çalışmadı.

malzeme = ComboBox1.Value
Set Data = Sheets("data")
TextBox1.Value = Application.WorksheetFunction.VLookup(malzeme, Data.Range("A:B"), 2, 0)

 

[mtozer]

Şunuda denedim hata veriyor;

Private Sub Combobox1_Change()
TextBox1 = ""
TextBox1.RowSource = ""
If ComboBox1 = "Sts." Then
TextBox1.Value "0,8"
ElseIf ComboBox1 = "Al." Then
TextBox1.Value "2,7"
ElseIf ComboBox1 = "Ms." Then
TextBox1.Value "7,86"
End If
End Sub

Private Sub UserForm_Click()
ComboBox1.AddItem "Sts."
ComboBox1.AddItem "Al."
ComboBox1.AddItem "Ms."
End Sub

 

[mtozer]

Merhaba
Hesaplamaları Command butona atadım. Ancak ağırlık yanlış hesaplıyor çözemedim.

http://s9.dosya.tc/server2/9ckrb7/fis.xls.html

 

[mtozer]

Hesaplatma olayını tamamladım. Ancak sorun şu;

Şu an sadece 1 adet ölçüye göre hesaplama yapabiliyorum. İstediğim örneğin 10 adet ölçü girdim hesapladık. Bunları altalta yazıp ardından görüntüle deyip tek bir fiş yazdırmak istiyorum nasıl yapabiliriz. Benim aklıma Listbox eklemek geldi. Yani ölçüleri girdiğimde 10 adet programa ait birim fiyatları toplayıp ardından görüntelemesi. İnceleyebilirmiyiz.

http://s6.dosya.tc/server8/jjid7x/fis.xls.html