Comboboxlar seçilmeden hücreye veri girişi yapmanın yasak olması

[Yesilyurtlu]

Combobox1, Combobox2 ve Combobox3 sırası ile açılmadan sayfadaki tüm hücreler pasf kalacak hiçbir veri girişine ve silinmesine izin vermeyecek.
Böyle bir kod için yardımcı olabilir misiniz

 

[Korhan Ayhan]

Merhaba,

Basit bir döngü ile bu işlemi yapabilirsiniz.

1-2-3 numaralı combobox nesnelerini kontrol eder. Numaraları kendi çalışmanıza göre değiştiriniz.

Private Sub CommandButton1_Click()
    Dim X As Byte
 
    For X = 1 To 3
        If Controls("ComboBox" & X) = "" Then
            MsgBox "Eksik bilgi girişi var !" & Chr(10) & _
                 "Lütfen girdiğiniz bilgileri kontrol ediniz !", vbExclamation
                Controls("ComboBox" & X).SetFocus
            Exit Sub
        End If
    Next
End Sub

 

[Yesilyurtlu]

Korhan abi
If Controls("ComboBox" & X) = "" Then
satırında ki Controls sarı renkte hata veriyor
Sana zahmet rica etsem bakabilir misiniz?

 

[Yesilyurtlu]

Compile error:
Sub or Function not definned

hatası mevcut korhan abi

 

[Korhan Ayhan]

Merhaba,

Ben UserForm üzerinde denedim ve olumlu sonuç aldım.