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