Hücreya yazılan değere göre combobox un aktif olması

[sdegirmenci]

Merhaba;
"a1" hücresinde yazılı değere göre combobox ların adresleri belli hücreler seçildiğinde hücre üzerinde aktif hale gelmesi için yardımcı olursanız sevinirim Ekteki dosyam üzerinde ayrıntılı açıkladım.Saygılarımla

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim goster As Boolean
If Intersect(Target, [B5,B9]) Is Nothing Then Exit Sub
If Range("A1").Value = 1 Then
    If Target.Address = "$B$5" Then ComboBox1.Visible = True
    If Target.Address = "$B$9" Then ComboBox2.Visible = True
    Else
    If Target.Address = "$B$5" Then ComboBox1.Visible = False
    If Target.Address = "$B$9" Then ComboBox2.Visible = False
End If
End Sub