IF “text” matches COPY ONE CELL TO ANOTHER, IF NO “0” AMOUNT

[MOwensAZFP]

In Cell A1 had drop down box with the following

“Alpha” verbiage
“Bravo” verbiage
“Charlie” verbiage
“Delt” verbiage
“Fox” verbiage

In Cell B2 I have a dollar amount $ 100.00 need to copy to cell B3
if text is"
“Bravo” verbiage
“Charlie” verbiage
“Delt” verbiage

if text is:
“Alpha” verbiage
“Fox” verbiage
Then Cell B3 is to be blank (no dollar amount or text)

thanks

 

[arun_eagertolearn]

Please put the following formula in B3

Please ensure the text appearing in A1 is put inside quotes,
eg: if the text is Alpha verbiage, please put "Alpha verbiage"
if it is "Alpha" verbiage, please put """Alpha"" verbiage" (please look at the three double quotes before and the two double quotes after Apha)

=IF(OR(A1="""Bravo"" Verbiage",A1="""Charlie"" Verbiage",A1="""Delt"" Verbiage"),B2,IF(OR(A1="""Alpha"" Verbiage",A1="""Fox"" Verbiage"),0,"no selection"))

 

[mumps]

Copy and paste this macro into the worksheet code module. Do the following: right click the tab name for your sheet and click 'View Code'. Paste the macro into the empty code window that opens up. Close the code window to return to your sheet. Make a selection in A1.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Select Case Target.Value
        Case "Bravo", "Charlie", "Delt"
            If Target.Offset(1, 1) = 100 Then
                Target.Offset(2, 1) = 100
            End If
        Case "Alpha", "Fox"
            Target.Offset(2, 1).ClearContents
    End Select
    Application.ScreenUpdating = True
End Sub