Combobox evet hayır seçmelerinde mecburi alan

[hasaona]

Şöyle bir problemim var.

Combobox mecburen seçim yapacak "Evet"; veya "Hayır"

Combobox "Evet" seçer ise Mecburi şekilde texbox1 ve texbox2 doldurmak zorunda olacak
Eğer
Combobox "Hayır" Seçer ise Texbox1 ve texbox2 doldurmadan ilerleye bilecek



Yardımlarınızı rica ederim

 

[hasaona]

Private Sub cboHareket_Change()
If cboHareket.Value = "Evet" Then
txtazamı.Enabled = True
txtasgarı.Enabled = True
txtAciklama.Enabled = True
Else
txtazamı.Enabled = False
txtasgarı.Enabled = False
txtAciklama.Enabled = False
End If
End Sub

 

[cems]

Private Sub cboHareket_Change()

Combobox nerede ? Sayfa üzerinde ise worksheet.change olaylarına bağlamak gerekebilir, yok bir userform üzerinde ise textboxlar ile ilişkilendirmek gerekir.

Her şekilde ,bir örnek dosyayı altın üye olduğunuzdan kolayca sağ alttaki tuş yardımı ile ekleyerek , yardımcı olacak üyelere hem yeni bir dosya hem çözüm yapmak zorunda bırakmayabilirsiniz.

 

[hasaona]

Merhaba Dosyayı attım

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

 

[hasaona]

Yardımcı olacak kimse yokmu acaba

 

[hasaona]

Konu çok önceli lütfen yardım

 

[Saban Sertkaya]

Altın üye olmadığımızdan dosyanızı göremiyorum. Alternatif bir upload sitesine yüklerseniz elimizden bir şey gelir mi bir bakalım.

 

[Saban Sertkaya]

Dosyanızı göremediğimizden tam çözüm sunamamakla birlikte, kodlarınızı aşağıdaki şekilde revize ederek deneyiniz.

Private Sub ComboBox1_Change()

If ComboBox1 = "Evet" Then
    If TextBox1 = "" Then
    MsgBox "Textbox1 boş geçilemez"
    Exit Sub
    ElseIf TextBox2 = "" Then
    MsgBox "Textbox2 boş geçilemez"
    Exit Sub
    End If
End If

End Sub

 

[cems]

Öncelikle dosya " makro çalıştırılabilir " dosya olarak çevrildi , .xlsm yapıldı.

Mantık sıralaması olarak :
evet ya da hayır seçimi ile boş geçme uyarısı en başta.

Buna göre nesnelerin kullanım sırası , sağ tıklanıp tab order düzenlemesi ile değiştirildi.

Gereksiz kodlar silindi, kaydın listboxa anında yansıtılması useform_initialize ile sağlandı

Listbox başlıkları kondu , sütun sayısı artırıldı. Aksi durumda ilk iki veri girilmezse satırdaki dataya ulaşılamaz.

Combobox hayır seçildiğinde max min asgari nesneleri zaten kilitlenerek atlanıyor.

http://s3.dosya.tc/server13/oi3i5q/Malzeme__1_.rar.html