Combobox Clear

[aurer]

Private Sub ComboBox6_Change()

If ComboBox6.Value = "A" Then
ComboBox7.Clear
ComboBox7.RowSource = "veri!c6:c36"
ElseIf ComboBox6.Value = "B" Then
ComboBox7.Clear
ComboBox7.RowSource = "veri!d6:d20"
End If
End Sub



Bu kodu ilk defa çalıştırdığımda çalısıyor ikinci defa çalıştırdığımda hata alıyorum combobax 1 silmiyor, bunun gibi yüzlerce yapıcam yardımcı olun lütfen arkadaşlar.

 

[Ömer]

Merhaba,

ComboBox7.Clear

yerlerine,

ComboBox7 = ""

yazarak deneyin.

.

 

[Necdet]

veya

kodların başına

 On Error Resume Next

komutunu ekleyin.

 

[askm]

Private Sub ComboBox6_Change()
If ComboBox6.Value = "A" Then
    Me.ComboBox7 = ""
    Me.ComboBox7.RowSource = "veri!c6:c36"
ElseIf ComboBox6.Value = "B" Then
    Me.ComboBox7 = ""
    Me.ComboBox7.RowSource = "veri!d6:d20"
End If
End Sub