Excel vba ile eksi bakiye kontrolü

Katılım
4 Kasım 2020
Mesajlar
13
Excel Vers. ve Dili
Excel 365
Altın Üyelik Bitiş Tarihi
05-12-2021
arkadaşlar bir bilet satış sistemim var

excel sayfa1 e2 'de stoğumu tutuyorum 20 adet

bir comboboxa bilet adetini yazıp,
sat butonuna basınca bakiye düşmesini istiyorum.
ama bu bakiyenin eksiye düşmemesi gerkekli bir türlü yapamadım ben bu işlemi

Yazdığım kodlar burada, eğer yardımcı olabilecek var ise kendisi de kodörneği yazabilir uyarlayabilirim


Kod:
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
 
Katılım
20 Haziran 2015
Mesajlar
36
Excel Vers. ve Dili
office 2010 türkçe
Altın Üyelik Bitiş Tarihi
21/08/2022
arkadaşlar bir bilet satış sistemim var

excel sayfa1 e2 'de stoğumu tutuyorum 20 adet

bir comboboxa bilet adetini yazıp,
sat butonuna basınca bakiye düşmesini istiyorum.
ama bu bakiyenin eksiye düşmemesi gerkekli bir türlü yapamadım ben bu işlemi

Yazdığım kodlar burada, eğer yardımcı olabilecek var ise kendisi de kodörneği yazabilir uyarlayabilirim


Kod:
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


If Sheets("VERITABANI").Range("E2") - txtbiletadet.Text >= 0 Then
Sheets("VERITABANI").Range("E2") = Sheets("VERITABANI").Range("E2") - txtbiletadet.Text
Else
MsgBox "Stok yetersiz"
End If
 
Üst