Butonla ComboBox içeriğini temizleme

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim excel dosyamın içerisinde temizle butonu var, bu butona bastığımda ComboBox'larıda temizlesin istiyorum, ancak yapamadım.

Yardımcı olur musunuz?

Sub Temizle()
[C2:C56].ClearContents
ComboBox1.Clear
ComboBox2.Clear
End Sub

.

 

[yanginci34]

Sub Temizle()
[C2:C56].ClearContents
ComboBox1=""
ComboBox2=""
End Sub

 

[ASLAN7410]

Sayın yanginci34 ilginiz için çok teşekkür ediyorum, sizin dediğiniz gibi de denedim,
butona bastığımda temizlemiş gibi görünüyor, ancak bilgiler hala ComboBox'larda duruyor.

Göndermiş olduğunuz kodu örnek üzerinde denediniz mi?

 

[Ziynettin]

ListFillrange atanmış aralıktan kaynaklı durum olabilir. Kodu bu şekilde deneyiniz.

[C2:C56].ClearContents
Sayfa1.ComboBox1.ListFillRange = ""
Sayfa1.ComboBox1 = Empty
Sayfa1.ComboBox2.ListFillRange = ""
Sayfa1.ComboBox2 = Empty

 

[ASLAN7410]

Sayın Ziynettin Bey, ellerinize sağlık, çok teşekkür ediyorum.

Tam istediğim gibi çalışıyor.

Hayırlı geceler diliyorum.

 

[ASLAN7410]

Sayın Ziynettin Bey, yeni fark ettim.

Butona bastığımda ComboBox'ları temizliyor, ComboBox içerisindeki bilgiler de gidiyor.

 

[ASLAN7410]

Sayın Ziynettin Bey, liste olan T ve V sütunlarının birinci satırlarını boş olarak bıraksam.

Temizle dediğimde, T1 ve V1 hücrelerini görse buda işimi görür.

 

[ASLAN7410]

Yani aşağıdaki gibi yaptım hata verdi.

Sub Temizle()
[C2:C56].ClearContents
Sayfa1.ComboBox1.Sayfa1.Range("T1").Select
Sayfa1.ComboBox2.Sayfa1.Range("V1").Select
End Sub

 

[Ziynettin]

[C2:C56].ClearContents
Sayfa1.ComboBox1.ListFillRange = "T1:T4"
Sayfa1.ComboBox1 = Empty
Sayfa1.ComboBox2.ListFillRange = "V1:V4"
Sayfa1.ComboBox2 = Empty

 

[ASLAN7410]

Sayın Ziynetten Bey çok teşekkür ederim, tam istediğim gibi oldu.

Hayırlı geceler diliyorum.