Drop down with some conditions

[VBAEXCELNew]

Hello,

I am currently stuck in this condition where if the user select a drop down list where if they select others a new input box appear for them to type in where it indicate please specify

Here the example below:

If user select Others in drop down this field appear asking user to please specify
if user select Not Others this field will be disable

Since if that the case how can i write a way that i can write a text in "Please specify" area without removing the formula and wise how can i dont let the user write in this column if they didnt choose "Others"
I believe i have to write using vba ?

 

[James006]

Hi,
You can test following

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Target.Address <> "$B$14" Then Exit Sub
    If Target = "Others" Then
       With Target
            .Offset(0, 1) = " Please Specify ..."
            .Offset(0, 1).Font.Italic = True
       End With
    Else
        With Target
            .Offset(0, 1).ClearContents
            .Offset(0, 1).Font.Italic = False
       End With
    End If
End Sub

 

[James006]

Sorry forgot you apparently need Borders ...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Target.Address <> "$B$14" Then Exit Sub
    If Target = "Others" Then
       With Target.Offset(0, 1)
            .Value = " Please Specify ..."
            .Font.Italic = True
            .Borders.LineStyle = xlContinuous
       End With
    Else
        With Target.Offset(0, 1)
            .ClearContents
            .Font.Italic = False
            .Borders.LineStyle = xlNone
       End With
    End If
End Sub

 

[VBAEXCELNew]

Sorry forgot you apparently need Borders ...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.CountLarge > 1 Then Exit Sub
If Target.Address <> "$B$14" Then Exit Sub
    If Target = "Others" Then
       With Target.Offset(0, 1)
            .Value = " Please Specify ..."
            .Font.Italic = True
            .Borders.LineStyle = xlContinuous
       End With
    Else
        With Target.Offset(0, 1)
            .ClearContents
            .Font.Italic = False
            .Borders.LineStyle = xlNone
       End With
    End If
End Sub

Thank you sir it work, can u explain what this does and what is .Countlarge > 1 ?

 

[James006]

First of all ... have you tested it ...???

 

[VBAEXCELNew]

First of all ... have you tested it ...???

yes it work perfectly

 

[James006]

yes it work perfectly

Excellent News

Regarding the explanations :
1. An Event macro runs as soon as you make changes in the sheet ...
2. So you have to make sure no errors will happen whenever the User interacts with the sheet
3. CountLarge allows the User to select many cells and not generate an error ....
4. Target.Address means if the User is not modifying precisely the cell B14 ... just exit macro

Hope this clarifies