remove cell content based on another cells text

hi.

Im just wondering if a cell (L9) content can be removed if anything or a date that is inserted into cell (O9)? This will be the same for all the other rows in these two columns.

Any help would be appreciated

Hi Thanks for replying.

Nothing works on the sheet you have attached? I have also looked at the code and cannot see anything....could you copy and past the macro on here at all?

Maybe:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(15)) Is Nothing Then
    Cells(Target.Row, "L").ClearContents
End If
End Sub

Originally Posted by JOHN H. DAVIS

Maybe:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(15)) Is Nothing Then
    Cells(Target.Row, "L").ClearContents
End If
End Sub

Hi John,

I tried using the basis of your code you gave me the other week where another cells content removes another but for some reason this code is not working for these cells. I don't understand why it does not work :S I have been given another macro where you have to run it to remove but there would be room for error if employees do not run it as i was hoping it could be done automatically like the code from last week

Can you post a sample file in which it does not work? Then I can test and see what's going on.

Originally Posted by JOHN H. DAVIS

Can you post a sample file in which it does not work? Then I can test and see what's going on.

Please see attached .

Originally Posted by toneNFFC

Please see attached .

Seems to work for me? What's not working for you. Note you changed the Columns.

Originally Posted by JOHN H. DAVIS

Seems to work for me? What's not working for you. Note you changed the Columns.

Hi John,

The previous one yes I asked for anything in column R to wipe out The contents in Column F (which works fine) I need the same method for Anything in Column O to knock out the contents of Column L swell :S

Originally Posted by sourabhg98

Did you check mine??

Hi Yes i did...it works fine on your sheet but i cannot seem to get it to work on my main template sheet :S......not sure if something is conflicting it......apologies for not seeing your post earlier

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("R")) Is Nothing Then
    Cells(Target.Row, "F") = ""
End If
If Not Intersect(Target, Columns("O")) Is Nothing Then
    Cells(Target.Row, "L") = ""
End If
End Sub

Originally Posted by JOHN H. DAVIS

Try:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("R")) Is Nothing Then
    Cells(Target.Row, "F") = ""
End If
If Not Intersect(Target, Columns("O")) Is Nothing Then
    Cells(Target.Row, "L") = ""
End If
End Sub

Thats the one!! works a treat. Thanks again John and sourabhg98 for all your help

You're welcome. Glad to help out and thanks for the feedback.