stok yardım

[aboztepe]

merhaba ek'teki dosyada basıt bi stok takibi yapmak istiyorum
amaç verileri bir yerden bulmak sadece çıkış yada girişleri toplayarak yazmak
yardımcı olursanız sevinirim

 

[Ferhat Pazarçevirdi]

Userform2'nin kod sayfasına aşağıdaki kodları yapıştırın. Aynı mantık, çıkış formu için de geçerlidir.

Private Sub CommandButton1_Click()
Set sh = Sheets("BILGI")
Set bul = sh.Range("A:A").Find(ComboBox1.Value)
   If bul Is Nothing Then
     MsgBox "Ürün kodunu kontrol edin", vbCritical, "Ürün kodu bulunamadı!..."
     ComboBox1.Value = ""
     Exit Sub
   End If
   If IsNumeric(TextBox1.Text) = False Then
     MsgBox "Ürün giriş miktarı NUMERIC bir değer olmalı", vbCritical, "Ürün miktarı hatalı!..."
     TextBox1.Text = ""
     Exit Sub
   End If
   topgiris = sh.Cells(bul.Row, 2)
   sh.Cells(bul.Row, 2) = TextBox1.Text + topgiris
Set bul = Nothing
Set sh = Nothing
Unload Me
End Sub
Private Sub UserForm_Initialize()
Set sh = Sheets("VERI")
son = sh.Cells(65536, 1).End(xlUp).Row
For i = 5 To son
   ComboBox1.AddItem sh.Cells(i, 1)
Next i
End Sub