stok'a giriş eklemek

Katılım
27 Ekim 2007
Mesajlar
287
Excel Vers. ve Dili
2003 TR
Selam Arkadaşlar
Örnekteki dosyada çıkışlar sayenizde mükemmel ama birde userform üzerinden giriş ekleyebilirmiyiz?
Teşekkürler.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Ekli dosyayı inceleyiniz.
Eğer malzeme yoksa yeni girişi yapılıyor.Varsa üstüne toplanıyor.:cool:
Kod:
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
 
Katılım
27 Ekim 2007
Mesajlar
287
Excel Vers. ve Dili
2003 TR
Sayın Evren Gizlen
Değerli çözümünüz için çok teşekkür ederim.
Saygılarımla.
 
Üst