EKRANA KOŞULLU YAZI YAZDIRMA

[mutsuzkim]

ürün işlemleri sayfasında x ürün stok miktarı 1500 (F3 hücresi) olduğunda anasayfa sayfasında x ürününe (g17) 600 ekleyince "sipariş veremezsiniz. lütfen tekrar kontrol edin yazdırmak istiyorum. yardımcı olabilir misiniz?

Sub urun_kaydet()
If an.Range("C5").Value = "" Then MsgBox ("Lütfen Ürün Adının Giriniz."), vbInformation, "BİLDİRİ": Exit Sub
If an.Range("C7").Value = "" Then MsgBox ("Lütfen Ürün Birimini Giriniz."), vbInformation, "BİLDİRİ": Exit Sub
If an.Range("C8").Value = "" Then MsgBox ("Lütfen Kritik Miktarı Belirtiniz."), vbInformation, "BİLDİRİ": Exit Sub
If ui.Range("F3").Value >= 15000 Msgbox ("Lütfen tekrar kontrol ediniz."), vbInformation, "BİLDİRİ": Exit Sub

 

[Korhan Ayhan]

Merhaba,

Sorunuzu örnek dosya ile desteklerseniz cevap almanız kolaylaşacaktır.