combobox 1 den 89 a kadar 0 ise "" yapsın

[yasef]

Private Sub UserForm_Initialize()
On Error Resume Next
For cx = 1 To 89
If Controls("combobox" & cx) = 0 Then Controls("combobox" & cx) = ""
Exit Sub
Next
End Sub
nerede yanlış yapıyorum

 

[veyselemre]

Private Sub UserForm_Initialize()
On Error Resume Next
For cx = 1 To 89
If Controls("combobox" & cx) = 0 Then Controls("combobox" & cx) = ""
Exit Sub
Next
End Sub
nerede yanlış yapıyorum

Kırmızı ile işaretlediğim komutu kaldırın zira sadece 1 kere çalışıp prosedürden çıkacaktır. Dolayısıyla sadece combobox1 de sizin dediğiniz işlemi yapacaktır.

 

[yasef]

private sub combobox1 change
if combobox1 = 0 Then combobox1 = ""
end sub
olay gerçekleşiyor fakat Userform initialize yazınca olmuyor ?

Private Sub UserForm_Initialize()
On Error Resume Next
For cx = 1 To 89
If Controls("combobox" & cx) = 0 Then Controls("combobox" & cx) = ""
Next
End Sub

 

[Orion1]

Merhaba.
Kodu userform'un initialize olayının en başına yazmışsınız.
Zaten Burada combobox'lar 0 değil boş olacaktır.
Bence bu kodu başka bir yere yazmalısınız.Ayrıca "combobox" değil "ComboBox" olmalı.

 

[yasef]

combobox Veya ComboBox olması neyi birşey değiştirmez kusura bakmayın anlamadım
change kodu çalıştırıyor Userform İnitialize de çalışmıyor?

 

[Orion1]

Zaten userform'un initialize olayında dağa ön satırlarda combobox'ların değerini değiştirmediyseniz,"" boş olarak gelecektir ayrıca bir kod yazmanıza gerek yoktur diye düşünüyorum.

 

[yasef]

sn. orion bu sorunumu çözdüm ilginize teşekkürler küçük ve basit nüansı gözden kaçırmışım ( Activate & İnitialize )