Soru Eğer Combobox Boş İse Diğer Comboboxların Değerlerine Bak

[OzNvl]

Hocam Merhaba,

Yaptığım sistemde bazı noktalarda kod karmaşası yaşıyorum. VBA da yeniyim. Şimdi bir Stok Takip ve Satış Programı Geliştirmek istiyorum.
Satış ve Stok Ekleme Konusunda sıkıntım yok. Ancak Üretim Kaydı girmek istediğim zaman ilk Dolu olan comboboxları Excel sayfasına aktarabiliorum. Bir tane Boş Combobox veya textbox olsa altındaki diğer combobox ve texboxları sayfaya aktaramıyorum. Form da miktar girip ENTER yapınca altındaki Diğer Comboboxlar ve Textboxlar Görünür Hale Geliyor. Dosyayı Açınca Boş Olarak görülebilir ENTER komutu ile diğer combobox ve textboxları görebilirsiniz.

 

[OzNvl]

Galiba Çözümü Bulamadık

 

[muysun35]

Galiba Çözümü Bulamadık

harici yükleme sitelerinden birine de yükler misiniz dosyanızı?

 

[OzNvl]

harici yükleme sitelerinden birine de yükler misiniz dosyanızı?

İndir Satış Stok Takip Programı

Dosyayı indir Satış Stok Takip Programı

dosya.co

 

[muysun35]

dener misiniz?

Satış ve Stok Takip Programı.xlsm - 168 KB

 

[OzNvl]

Hocam şimdi buldum sorunu End İf leri her bir koşulun sonuna ekleyince düzeldi. Yardımlarınız için teşekkür ederim. Sizde de Object Recuired hatası verdi :/

 

[muysun35]

kodları biraz sadeleştirdim

öncekini görmezden gelip bunu dikkate alın..

Satış ve Stok Takip Programı.xlsm - 173 KB

Bu arada ürün hammadde ve eklemek istediğiniz veriler listboxa atsanız daha kolay olur bence. düzenleme yapıp yerlerine yazdırabilirsiniz veriyi (sadece bir fikir)

İyi çalışmalar

 

[muysun35]

Hocam şimdi buldum sorunu End İf leri her bir koşulun sonuna ekleyince düzeldi. Yardımlarınız için teşekkür ederim. Sizde de Object Recuired hatası verdi :/

aynen Object Required hatası aldım ben.

mesela kodları kısaltma adına bir değişken belirleyin
Dim sf1 As Worksheet
Set sf1 = Sheets("1nolusayfa")

Sheets("1nolusayfa").Range... yerine
sf1.Range.. şeklinde
dosyanın büyüklüğünü de azaltabilirsiniz.

 

[muysun35]

Yardımlarınız için teşekkür ederim

re. pek bir yardımım olamadı ama. iyi çalışmalar.