Birim Fiyatı Girildikçe Malzeme Sayısında 1 Eksilme

[ahmed_ummu]

Merhaba arkadaşlar.

Aşağıdaki kodlar ile Combobox'ta listelenen malzmelerin birim fiyatları giriliyor. her bir malzemenin birim fiyatı girildiğinde, toplam birim fiyatı girilecek malzeme sayısından düşülerek kaç adet birim fiyatı girilecek malzeme kaldığını label79'a yazdırmak istiyorum. Hemen ilk girdiğim veride "Birim fiyatı girilecek malzeme kalmadı diyo" yardımcı olabilir misiniz.


Toplam birim fiyatı girilecek malzeme sayısı, "PİYASAARAŞTIRMA" sayfası K10 hücresinde bulunan verinin, dus değişkenine aktarılması ile oluyor

Set pa = Sheets("PİYASAARAŞTIRMA")
dus = pa.Range("k10").Value
git:
dus = dus - 1
Label79.Caption = (TextBox50.Value & " " & "Firmasına ait birim fiyatı girilecek" & " " & dus & " kalem malzeme kaldı.")
If dus = 0 Then
GoTo son:
Else
GoTo git:
son:
MsgBox (TextBox50.Value & " " & "firmasına ait birim fiyatı girilecek malzeme kalmadı. ")
End If

 

[bmutlu966]

dus = pa.Range("k10").Value

PİYASAARAŞTIRMA sayfası K10 değerini kontrol edin. Bu değer sıfır olduğu için bu uyarıyı alıyorsunuz. K10 değeri nereden geliyorsa hata orada.

 

[ÖmerFaruk]

Yazdığınız kod yapısı gereği, dus=0 olana kadar döngü çalışacaktır. ve en sonunda bu mesajı verip sonlanacaktır.
Siz bunu F8 ile adımlayarak görebilirsiniz.

Set pa = Sheets("PİYASAARAŞTIRMA") satırına Mouse ya da F9 ile durak ekleyiniz.
Kodlarını normal çalıştırın.
Kodlar o satırda duracaktır. Sonra F8 ile devam edip sorunu görebilirsiniz.

 

[ahmed_ummu]

İlginize teşekkürler arkadaşlar. Yine yapamadım.

Örnek dosyamı gönderdim. yardımcı olursanız sevinirim.

Userform üzerindeki açık olan 2 adet frame var kodlar framelerdeki "disket" resimli image de. Şu an PİYASAARAŞTIRMA sayfası K10 hücresinin değeri 4

Dosya çalıştırıldığında resimde işaretlediğim gibi önce yukarıdaki büyük sarı zarf çalıştırılacak. Açılan pencereden 2 adet sarı zarf resmi olan btonlar var. 2 ve 3 sırası ile onlar çalıştırılacak. birim fiyatları oradan giriliyor. kaydet ikonuna tıklandığında label'e kaç adet daha birim fiyatı girilecek malzeme kaldığını yazacak. Önce combobox'tan malzeme seçilip birim fiyatı girilecek.