TextBox boş ise ComboBox Gizlemek

[vardar07]

Arkadaşlar Dosya içinde açılan userformda Textbox2 boş ise combobox false değer yazılınca true olacak. Google amcada bulduğum kodları uyarlamaya çalıştım ancak olmadı. Yardımlar için şimdiden teşekkürler.

 

[vardar07]

Arkadaşlar textbox2 boş ise combobox görünmemesi için Kodda ne gibi değişiklik yapacağım. Bir ip ucu verirmisiniz.

Private Sub TextBox1_Change()
    [b1] = TextBox1.Text
End Sub
Private Sub TextBox2_Change()
    [b2] = TextBox2.Text
End Sub
Private Sub ComboBox1_Change()
    [b3] = ComboBox1.Text
TextBox4 = Round(Worksheets("Sayfa1").Range("b7").Value, 2) & "-" & "TL"
TextBox5 = Round(Worksheets("Sayfa1").Range("b9").Value, 2) & "-" & "TL"
End Sub
Private Sub UserForm_Initialize()
TextBox1 = ""
TextBox2 = ""
ComboBox1.RowSource = "'Sayfa1'!g1:g10"
ComboBox1.ListIndex = 0
End Sub
Private Sub Cikis_Click()
Unload Me
End Sub
Private Sub Temizle_Click()
TextBox1 = "": [b1] = ""
TextBox2 = ""
ComboBox1 = ""
TextBox4 = ""
TextBox5 = ""
End Sub

 

[Orion1]

Buyurun.

Private Sub TextBox2_Change()
    [b2] = TextBox2.Text
if textbox1.value="" then
       combobox1.visible=false
       else       
       combobox1.visible=true
end if
End Sub

 

[vardar07]

Buyurun.

Private Sub TextBox2_Change()
    [b2] = TextBox2.Text
if textbox1.value="" then
       combobox1.visible=false
       else       
       combobox1.visible=true
end if
End Sub

Çok teşekkürler kolay gelsin.

 

[Orion1]

Çok teşekkürler kolay gelsin.

Rica ederim.
İyi geceler.