DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
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
Rica ederim.Sayın Evren Gizlen
Değerli çözümünüz için çok teşekkür ederim.
Saygılarımla.