excel vba ile stok kontrol problemim

Arkadaşlar merhaba

Excelde stok sayısı ile eksi bakiyeye düşmemek için bir kontrol yaptığımı varsayalım

Eğer komboboxdaki seçilen veri Nora ise gir
If CmbSeanslar.Text = "Nora" Then

Eğer veri tabanındaki sayı 0 dan büyükse gir
If Sheets("VERITABANI").Range("E2") > 0 Then

eğer textboxdaki sayı veri tabanındaki stok sayısından az ise koşula gir
If txtbiletadet.Text <= Sheets("VERITABANI").Range("E2") Then

koşuk sayısını güncelle
Sheets("VERITABANI").Range("E2") = Sheets("VERITABANI").Range("E2") - txtbiletadet.Text
End If
End If
End If

Arkadaşlar burada eksiye düşmemesi için bir kontrol yapmaya çalışıyorum. ilk döndüğünde sorun yok, ikincide eksiye düşecekmi diye fazla bir sayı yazıyorum eksiye düşüyor tetiklediğimde
ama 3. kezde düşmüyor

Nasıl bir yol izleyebilirim ?

Yapay zekaya sordum cevabı şu:

aşağıdaki kod bloğunda veri tabanındaki E2 hücresinin değerini txtbiletadet textbox'ındaki değerden düşürdükten sonra, veri tabanındaki E2 hücresinin değerinin sıfırdan küçük olup olmadığını kontrol ederek stokun eksi bakiyeye düşmemesi için bir kontrol yaptığınızı varsaydım:

If CmbSeanslar.Text = "Nora" Then
If Sheets("VERITABANI").Range("E2") > txtbiletadet.Text Then
Sheets("VERITABANI").Range("E2") = Sheets("VERITABANI").Range("E2") - txtbiletadet.Text
If Sheets("VERITABANI").Range("E2") < 0 Then
MsgBox "Stok yetersiz. Satış işlemi gerçekleştirilemedi."
End If
End If
End If

Bu kod bloğunun çalışma şekli şu şekildedir:

1. Eğer CmbSeanslar'ın seçilen değeri "Nora" ise, kod veri tabanındaki E2 hücresinin değerini kontrol eder.

2. Eğer veri tabanındaki E2 hücresinin değeri txtbiletadet textbox'ındaki değerden büyükse, kod veri tabanındaki E2 hücresinin değerini txtbiletadet textbox'ındaki değerden düşürür.

3. Düşürülen değer sıfırdan küçükse, kod kullanıcıya "Stok yetersiz. Satış işlemi gerçekleştirilemedi." mesajı gösterir ve satış işlemi gerçekleştirilmez.

Bu kod bloğu, veri tabanındaki E2 hücresinin değerini txtbiletadet textbox'ındaki değerden düşürüp sonra sıfırdan küçük olup olmadığını kontrol ederek stokun eksi bakiyeye düşmemesi için bir kontrol yapar. Eğer txtbiletadet textbox'ına girilen değer veri tabanındaki E2 hücresinin değerinden büyükse satış işlemi gerçekleştirilmez ve stok eksi bakiyeye düşmez.

Chat gpt mi hocam ?

Malesef o da gene eksiye düştükten sonra 2. tetiklemede uyarıyı veriyor
çok teşekkür ederim genede ilginiz için

Evet chatgpt Bence chatgptye sordurup tam istediğinizi alana kadar sorun. Yazdığı yerde yarım kalırsa kaldığım yerden devam et diye yazın chatgptyi zorlayın cevabınızı verecektir. 🙂