• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

OzNvl

OzNvl

Katılım
2 Ocak 2017
Mesajlar
60
Excel Vers. ve Dili
Microsoft 365
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.
 

Ekli dosyalar

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 :/
 
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
 
OzNvl' Alıntı:
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 :/
Genişletmek için tıkla ...

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.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst