How do I get this code to run only when certain text is entered in cells?

[Ironman]

Hi

The below code runs in a worksheet_change event but I specifically only want it to run when the word "OTHER" is entered in Column B of the first filled row (same row as the one in the code) AND Column J of the same row begins with the text "Indoor bike session".

Dim NextRow As Long
Application.EnableEvents = False
  If ActiveSheet.Name = "Training Log" Then
    NextRow = Range("A" & Rows.Count).End(xlUp).Row
    Range("A" & NextRow).Resize(, 6).Interior.Color = RGB(197, 217, 241)
    Range("I" & NextRow).Resize(, 2).Interior.Color = RGB(197, 217, 241)
    Range("I" & NextRow).Value = "Indoor bike session, 60 mins."
    Range("A" & NextRow).Select
  Else
    MsgBox "Cell fill does not work in this sheet", vbInformation, "Information"
  End If

lr = Range("A" & Rows.Count).End(xlUp).Row
If target.Address(0, 0) = Range("B" & lr).Address(0, 0) Then
    Range("F" & lr).Select
    MsgBox "Enter heart rate", vbInformation, "Indoor Bike Session Data"
Application.EnableEvents = True
End If

Hope you can help?

Many thanks!

 

[Ironman]

Many thanks!

For some reason this part

And Range("I" & target.Row).Value = "Indoor bike session, 60 mins."

was preventing it from running.

When I amended it to this

'monitor column B for OTHER
If target.Column = 2 And target.Value = "OTHER" Then
    Range("A" & target.Row).Resize(, 6).Interior.Color = RGB(197, 217, 241)
    Range("I" & target.Row).Resize(, 2).Interior.Color = RGB(197, 217, 241)
    Range("I" & target.Row).Value = "Indoor bike session"
    'select cell col F
    Application.EnableEvents = False
    Range("F" & target.Row).Select
    Application.EnableEvents = True
    'display message
    MsgBox "Enter heart rate", vbInformation, "Indoor Bike Session Data"
End If

it all worked perfectly - I know it wasn't quite what I was originally looking for, but on reflection it actually doesn't matter, and it's absolutely fine!

Thank you so much for your time and trouble, that's really great!

@Michael M Thank you for your input too!

 

[NoSparks]

Guess I made a mistake interpreting #2 response in post 7.
Doesn't matter, glad you got it sorted.

I would suggest moving the Application.Enableevents=False line up to above the line writing to the cell
because there is a line higher up in the code setting Enableevents to True and I have no idea what happens between here and there

    Range("I" & target.Row).Resize(, 2).Interior.Color = RGB(197, 217, 241)
    Application.EnableEvents = False
    Range("I" & target.Row).Value = "Indoor bike session"
    'select cell col F
    Range("F" & target.Row).Select
    Application.EnableEvents = True

 

[Ironman]

I'm sure you didn't, I'm a very confused person ?

Thanks for the additional info, I'll amend that.