Show Specific ComboBox Depending on Intersect

xynnn · Dec 7th 2020

Hi everyone,

I need help with this code to show ComboBox1 if Cell selected is within Column C or ComboBox 2 if Cell selected is inside Column D. The ComboBox1 keeps appearing in all cells with the code below. Any help is greatly appreciated. Thanks!

Code

   If Selection.Count = 1 Then
        If Not Intersect(Target, Range("D:D")) Is Nothing Then
            Sheet1.ComboBox2.Visible = True
           Sheet1.ComboBox2.Activate
             Sheet1.ComboBox2.Value = ""
        ElseIf Not Intersect(Target, Range("C:C")) Is Nothing Then
            Sheet1.ComboBox1.Visible = True
           Sheet1.ComboBox1.Activate
             Sheet1.ComboBox1.Value = ""
       End If
    End If

Display More

**royUK** · Dec 7th 2020

Where is the code placed?

**royUK** · Dec 7th 2020

Is this what you want?

Code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 4 Then
        With ComboBox2
            .Visible = True
            .Value = ""
            .Activate
        End With
        ComboBox1.Visible = False
    ElseIf Target.Column = 3 Then
        With ComboBox1
            .Visible = True
            .Value = ""
            .Activate
        End With
        ComboBox2.Visible = False
    Else
        ComboBox1.Visible = False
        ComboBox2.Visible = False
    End If
End Sub

Display More

xynnn · Dec 8th 2020

Thanks alot Roy. It worked perfectly.

**royUK** · Dec 8th 2020

Pleased to help

Show Specific ComboBox Depending on Intersect

Participate now!

Share

Users Viewing This Thread