stok'a giriş eklemek

[limanC34]

Selam Arkadaşlar
Örnekteki dosyada çıkışlar sayenizde mükemmel ama birde userform üzerinden giriş ekleyebilirmiyiz?
Teşekkürler.

 

[Orion1]

Ekli dosyayı inceleyiniz.
Eğer malzeme yoksa yeni girişi yapılıyor.Varsa üstüne toplanıyor.

Private Sub CommandButton4_Click()
Dim k As Range
If ComboBox5.Value = "" Then Exit Sub
Set k = Sheets("DEPO").Range("B2:B65536").Find(ComboBox5.Value, , xlValues, xlWhole)
    If k Is Nothing Then
        sat = Sheets("DEPO").Cells(65536, "B").End(xlUp).Row
        If sat > 65533 Then
            MsgBox "Sayfa Doldu .Başka Kayıt yapamazsınız..!!", vbCritical, "DİKKAT"
            Exit Sub
        End If
        If MsgBox("[ " & ComboBox5.Value & " ] isimli malzemem listede yok." & _
        vbLf & "Yeni malzeme oluşturulsunmu?", vbYesNo + vbQuestion, "YENİ KAYIT..") = vbNo Then Exit Sub
        Sheets("DEPO").Cells(sat, "B").Value = ComboBox5.Value
        Sheets("DEPO").Cells(sat, "C").Value = TextBox8.Value * 1
        MsgBox "YENİ KAYIT GİRİLDİ..", vbOKOnly + vbInformation, "YENİ KAYIT"
        Else
        Sheets("DEPO").Cells(k.Row, "C").Value = Sheets("DEPO").Cells(k.Row, "C").Value + CDbl(TextBox8.Value)
        MsgBox ComboBox5.Value & " İSİMLİ VERİ GİRİlDİ..", vbOKOnly + vbInformation, "KAYIT"
    End If
Set k = Nothing
End Sub

 

[limanC34]

Sayın Evren Gizlen
Değerli çözümünüz için çok teşekkür ederim.
Saygılarımla.

 

[Orion1]

Sayın Evren Gizlen
Değerli çözümünüz için çok teşekkür ederim.
Saygılarımla.

Rica ederim.
Saygılar bizden.