Run a macro based on text in a cell?

[camhall22]

Hello

Im new to this and was hoping for some help/advice. What I would like to do it run a macro when specific text is entered into a specific cell. This is for a template I am making.

For example when a user entered the words "None" or "Zero" into cell D4 - the macro is run automatically. If any other value is entered, do nothing

Any help would be much appreciated

 

[RoryA]

My mistake:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3")) Is Nothing Then
    Range("51:55").EntireRow.Hidden = (Range("B3").Value <> "Tower")
End If
End Sub

 

[spromislo]

Thanks so much! Incredible help!

My mistake:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3")) Is Nothing Then
    Range("51:55").EntireRow.Hidden = (Range("B3").Value <> "Tower")
End If
End Sub

 

[spromislo]

You have been an amazing help. I am trying to learn from what you did but honestly, I can't understand it. I need to modify the macro so that IF B3 = "Tower" unhide rows 51-55 IF B3 = "Gallery" unhide rows 51-55 IF B3 = "Ruther" unhide rows 62-69 IF B3 = ANYTHING ELSE, leave those rows hidden.

Can you help?

My mistake:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3")) Is Nothing Then
    Range("51:55").EntireRow.Hidden = (Range("B3").Value <> "Tower")
End If
End Sub

 

[RoryA]

You'll need different structure for that:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3")) Is Nothing Then
    Select Case Range("B3").Value
        Case "Tower", "Gallery"
            Range("51:55").EntireRow.Hidden = False
            Range("62:69").Entirerow.hidden = True
        Case "Ruther"
            Range("51:55").EntireRow.Hidden = True
            Range("62:69").Entirerow.hidden = False
        Case Else
            Range("51:55").EntireRow.Hidden = True
            Range("62:69").Entirerow.hidden = True
      End Select
End If
End Sub

 

[spromislo]

You are amazing. I wish I could understand it but it works great. Thank you so much!

You'll need different structure for that:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3")) Is Nothing Then
    Select Case Range("B3").Value
        Case "Tower", "Gallery"
            Range("51:55").EntireRow.Hidden = False
            Range("62:69").Entirerow.hidden = True
        Case "Ruther"
            Range("51:55").EntireRow.Hidden = True
            Range("62:69").Entirerow.hidden = False
        Case Else
            Range("51:55").EntireRow.Hidden = True
            Range("62:69").Entirerow.hidden = True
      End Select
End If
End Sub

 

[peter7]

Hi, I'm trying to run the code shown below to automatically run a macro. I have a IF formula in cell D3, which will change the value to "1" if certain conditions apply. But when cell D3 turns to "1" the macro won't run unless I actually click into cell D3 and press tab/enter, but I need it to run automatically. When I click into cell D3 the Macro does run, so I think the code is correct, but it just seems like it won't recognize that D3 turned to "1" unless I click into cell D3. Anybody know how I can get this to run automatically? Thanks in advance for your time and help!!

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("D3")) Is Nothing Then
 If Target.Value = 1 Then Application.Run "CopySymAndQuantity"
End If
 End Sub