KOÃULA GÃ?RE ÇALIÃAN MAKRO
TextBoxlara girdiğim rakamın stoktan düşülmesini istiyorum.Bu işlem için Aşağıdaki kodu kullanıyorum ama biraz daha geliştirmek istiyorum.
İlgili TextBoxlara veri girilip geçilince MsgBox aracılığı ile Bu kayıt stoktan düşülsünmü diye sorulmasını istiyorum. Eğer Evet diyerek geçilirse Aşağıdaki Kod çalışsın eğer hayır diyerek geçilirse birşey olmadan işlem yapılmaya devam edilsin.
Evet diyerek geçilince devreye girmesi gereken Kod:
NOT: Bu Kod bir Command butona bağlı ama ben bu kodu TextBoxlara bağlayacağım. UserForm İntialize olayına bağlsam olurmu?
Yardımcı olursanız sevinirim
TextBoxlara girdiğim rakamın stoktan düşülmesini istiyorum.Bu işlem için Aşağıdaki kodu kullanıyorum ama biraz daha geliştirmek istiyorum.
İlgili TextBoxlara veri girilip geçilince MsgBox aracılığı ile Bu kayıt stoktan düşülsünmü diye sorulmasını istiyorum. Eğer Evet diyerek geçilirse Aşağıdaki Kod çalışsın eğer hayır diyerek geçilirse birşey olmadan işlem yapılmaya devam edilsin.
Evet diyerek geçilince devreye girmesi gereken Kod:
Kod:
Private Sub CommandButton2_Click()
'Stok Kod Numarasının yazılmaması halinde kayıt işleminin yapılmaması için uyarı
If kod1.Value = "" Then
Soru = MsgBox("Stok Kod No Yazmazsanız Kayıt İşlemi Gerçekleşmez.Devam Edeyimmi?", vbYesNo, "Stok Kod")
kod1.SetFocus
If Soru = vbYes Then GoTo devam
If Soru = vbNo Then Exit Sub
End If
'Stoktan düşülecek Mal Adedini yazmadıysa
If adet1.Value = "" Then
Soru = MsgBox("Stoktan düşülecek Mal Adedini Yazmazsanız Kayıt İşlemi Gerçekleşmez.Devam Edeyimmi?", vbYesNo, "Mal Adedi")
adet1.SetFocus
If Soru = vbYes Then GoTo devam
If Soru = vbNo Then Exit Sub
End If
devam:
Set s1 = Sheets("stok")
noA = WorksheetFunction.CountA(s1.Range("a:a"))
For i = 1 To noA
If s1.Cells(i, "b") = Val(kod1) Then
s1.Cells(i, "e") = s1.Cells(i, "e") + adet1.Value
MsgBox "Kayıt İşlemi Tamamlandı"
Exit Sub
End If
Next i
MsgBox "Aradığınız isimde bir kayıt bulunamadı", vbCritical, "KAYIT"
Sheets("stok").Select
End Sub
Yardımcı olursanız sevinirim