Çözüldü ComboBox ile Şarta Bağlı Veri Alma Hakkında.

[yesimgurol]

Merhaba,
Örnek dosyalardan faydalanarak oluşturmaya çalıştığım çalışma dosyamdaki "DEPOCIKIS" Formunda bir kaç husus konusunda takıldım. Şöyle ki;


SORULAR;

1 - " Textbox7 " kısmında kalan ürün miktar bilgisini almak,
2 - "Combobox8" de yer alan ürün adı bilgisini girdiğimde bu ürüne ait alış fiyatını ve birim bilgilerini almak,
3- "Textbox 6" kısmında girilen miktara " Textbox7 " de yer alan bilgiye göre şart/uyarı bilgisi koymak.

AÇIKLAMA;

1 - Ürün adı bilgisini (Combobox8) ,
- "genelstok" sayfasında "P" sütununda ara,
- Bulunduğunda "S" sütunundaki değeri " Textbox7 " e al.

2 - Ürün adı bilgisini (Combobox8) ,
- "Depogırıs" sayfasında "B" sütununda ara
- Bulunan ürün adı birden fazla olabiliyor o yüzden son girilen ürün adının "E" sütunundaki değeri "Textbox2" ye,
Bulunan ürün adı birden fazla olabiliyor o yüzden son girilen ürün adının "F" sütunundaki değeri "Combobox1" e al.

3 - Çıkan miktar bilgisi (Textbox6) ,
- Kalan ürün miktarından (Textbox7) fazla ise "Çıkan ürün miktarı , kalan ürün miktarından fazla" uyarısını almak istiyorum.

 

[AdemCan]

Merhaba, bu kodları depo çıkış formuna ekleyin.

Private Sub ComboBox8_Change()
Dim s4 As Worksheet, s11 As Worksheet
Set s4 = Sayfa4: Set s11 = Sayfa11
urun = ComboBox8.Value
    With s11
    Set bul = .Range("P2:P" & .Range("P" & Rows.Count).End(3).Row).Find(urun, LookIn:=xlValues, LookAt:=xlWhole)
    
        If Not bul Is Nothing Then
            TextBox7.Value = .Range("S" & bul.Row)
        
            With s4
                Set bul2 = .Range("B2:B" & .Range("B" & Rows.Count).End(3).Row).Find(urun, LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlPrevious)
                    TextBox2.Value = .Range("E" & bul2.Row)
                    ComboBox1.Value = .Range("F" & bul2.Row)
                    TextBox3.Value = .Range("G" & bul2.Row)
                    ComboBox2.Value = .Range("H" & bul2.Row)
            End With
        Else
            ComboBox1.Value = "": ComboBox2.Value = ""
            TextBox2.Value = "": TextBox3.Value = ""
            TextBox7.Value = ""
        End If
    End With
End Sub

Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox6.Value > TextBox7.Value Then
        MsgBox "Çıkan ürün miktarı, kalan ürün miktarından fazla!", vbExclamation, ""
        Cancel = True
    End If
End Sub

 

[yesimgurol]

Merhaba, bu kodları depo çıkış formuna ekleyin.

Private Sub ComboBox8_Change()
Dim s4 As Worksheet, s11 As Worksheet
Set s4 = Sayfa4: Set s11 = Sayfa11
urun = ComboBox8.Value
    With s11
    Set bul = .Range("P2:P" & .Range("P" & Rows.Count).End(3).Row).Find(urun, LookIn:=xlValues, LookAt:=xlWhole)
   
        If Not bul Is Nothing Then
            TextBox7.Value = .Range("S" & bul.Row)
       
            With s4
                Set bul2 = .Range("B2:B" & .Range("B" & Rows.Count).End(3).Row).Find(urun, LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlPrevious)
                    TextBox2.Value = .Range("E" & bul2.Row)
                    ComboBox1.Value = .Range("F" & bul2.Row)
                    TextBox3.Value = .Range("G" & bul2.Row)
                    ComboBox2.Value = .Range("H" & bul2.Row)
            End With
        Else
            ComboBox1.Value = "": ComboBox2.Value = ""
            TextBox2.Value = "": TextBox3.Value = ""
            TextBox7.Value = ""
        End If
    End With
End Sub

Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox6.Value > TextBox7.Value Then
        MsgBox "Çıkan ürün miktarı, kalan ürün miktarından fazla!", vbExclamation, ""
        Cancel = True
    End If
End Sub

Adem bey, ilginize ve emeğinize sağlık, tamda istediğim gibi çalışıyor. Harika olmuş. Çok teşekkür ederim. Saygılarımla.

 

[AdemCan]

Rica ederim, saygılar.