depo programı yardım

[ilkbahary]

ekdeki dosyada sitenizden aldığım bir depo programını kendi işime uygun halde dizayn etmeye çalıştım
burdaki sorunum malzeme cinsleri aynı olan değişik malzemelerim mevcut malzeme cinsini user form dan seçtiğim zaman herzaman en üstteki malzemeyi seçiyor ve kaydı oraya yapıyor
malzemeyi seçtiğim de problem yok fakat birimi ni seçtiğimde en üstte o birime karşılık gelen veriyi forma alıyor
yardımlarınız için şimdiden teşekkürler

 

[ilkbahary]

arkadaşlar pek net anlatamadım herhalde

cisi yazan combobox3 den cinsini seçtiğimde herzaman seçili olan verinin ilk girilmiş olanını seçiyor
be ise combobox1 de girdiğim malzemenin karşılığında olan verilerin gelmesini istiyorum
lütfen yardım edin çok önemli

 

[Husgvarna]

ekdeki dosyada sitenizden aldığım bir depo programını kendi işime uygun halde dizayn etmeye çalıştım
burdaki sorunum malzeme cinsleri aynı olan değişik malzemelerim mevcut malzeme cinsini user form dan seçtiğim zaman herzaman en üstteki malzemeyi seçiyor ve kaydı oraya yapıyor
malzemeyi seçtiğim de problem yok fakat birimi ni seçtiğimde en üstte o birime karşılık gelen veriyi forma alıyor
yardımlarınız için şimdiden teşekkürler

Merhaba.
Form1 deki "ComboBox3" e aşağıdaki kodları ekleyip.

Private Sub ComboBox3_Change()
Sheets("DURUM").Select
Set a = Range("c3:c65000").Find(What:=ComboBox1, Lookat:=xlWhole)
If Not a Is Nothing Then
b = WorksheetFunction.CountIf(ActiveSheet.Range("c4:c65000"), ComboBox1.Text)
For c = a.Row To a.Row + b - 1
If Cells(c, 4) = ComboBox3.Text Then
TextBox2.Text = Cells(c, 6)
TextBox4.Text = Cells(c, 12)
End If
Next
End If
End Sub

"Private Sub ComboBox6_Change()" başlık ve altındaki kodları tamamen silin.

Dosyanız aşağıdaki linkte
http://s2.dosya.tc/server9/ZKbO4s/depostokdeneme2.zip.html

Bu arada dosyanız formüller yüzünden çok ağırlaşmış; kayıt yaparken bayağı zaman kaybı oluyor.

 

[ilkbahary]

sayın HUSGVARNA öncelikle gösterdiğiniz alakaya çok teşekkür edrim
yalnız bi problem var çıkış yaptığım malzemeleri J9hücresine atıyor
çıkış yaptığım malzemeyi karşılığına atmasını nasış sağlayabilirim.

 

[Husgvarna]

sayın HUSGVARNA öncelikle gösterdiğiniz alakaya çok teşekkür edrim
yalnız bi problem var çıkış yaptığım malzemeleri J9hücresine atıyor
çıkış yaptığım malzemeyi karşılığına atmasını nasış sağlayabilirim.

"Userform1" de bulunan butondaki kodları aşağıdaki gibi değiştirin.
"DURUM" sayfanız her zaman için "c" sütununa göre alfabetik sıralı olmalıdır.

Private Sub CommandButton1_Click()
If TextBox1 <> "" And TextBox8 <> "" And ComboBox1 <> "" Then
Son_Dolu_Satir = Sheets("data").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    
Sheets("data").Range("A" & Bos_Satir).Value = DateValue(TextBox1.Text)
Sheets("data").Range("B" & Bos_Satir).Value = ComboBox1.Text
Sheets("data").Range("C" & Bos_Satir).Value = ComboBox3.Text
Sheets("data").Range("D" & Bos_Satir).Value = TextBox2.Text
Sheets("data").Range("E" & Bos_Satir).Value = TextBox5.Text
Sheets("data").Range("F" & Bos_Satir).Value = ComboBox2.Text
Sheets("data").Range("G" & Bos_Satir).Value = TextBox6.Text
Sheets("data").Range("H" & Bos_Satir).Value = TextBox7.Text
Sheets("data").Range("I" & Bos_Satir).Value = TextBox8.Text

Sheets("DURUM").Select
Set a = Range("c3:c65000").Find(What:=ComboBox1, Lookat:=xlWhole)
If Not a Is Nothing Then
b = WorksheetFunction.CountIf(ActiveSheet.Range("c4:c65000"), ComboBox1.Text)
For c = a.Row To a.Row + b - 1
If Cells(c, 4) = ComboBox3.Text Then
Cells(c, 8) = Cells(c, 8) + CDbl(TextBox6.Value)
Cells(c, 10) = Cells(c, 10) + CDbl(TextBox7.Value)
Cells(c, 12) = CDbl(TextBox8.Value)
End If
Next
End If
Else
MsgBox "bilgileri eksiksiz giriniz...", , "FEDEAL"
End If
Unload Me
UserForm1.Show
End Sub

http://s2.dosya.tc/server9/CHjFN1/depostokdeneme2.zip.html

 

[ilkbahary]

hocam eline,emeğine sağlık çok iyi olmuş

ne kadar teşekkür etsem az...