VBA to clear contents, not formulas of multiple rows based off a value in cell

[efrana]

Was hoping for some help getting a code written that will work for me. I've found some different codes that work, but none specific. I'm basically new to VBA, so I'm really struggling piecing together a good understanding of these examples I'm finding.
Basically, by placing an "x" in any cell of column B, I'd like an automatic code that runs and clears contents(but not formulas) of that entire row, including the column B that was just entered? If an automated code is unattainable, I would be extremely content with a code I could attach to a button to manually run as needed?
I really appreciate any assistance, thanks!
I'm running Excel365. Currently, I have two codes attached to form control buttons that run various "auto sort" type functions in this spreadsheet, these are in the Module 2. I created those by recording my actions. Not sure if you needed to know this?

 

[efrana]

We cannot tell from an image what are formulas and what are not. We also cannot easily copy the data for testing. Please consider XL2BB for sample data.

Changing Columns("B") to Columns("K") in the previous code works for me when I enter something in K7, unless the "x" in F7 is the result of a formula. In what way does it not work for you?

The VBA code you last wrote for me is perfect and does what I need. When I place a value in the "K" cell, the entire row in cleared.

I was hoping to add another code into the mix though, one that would just clear out any cell content in cells ("E:J") only. I use these cells as a marker for where product is in a paint line. As product moves each day, I just place a value (marker) in the location where the product is (Jig, Blast, Prep, etc..). I would just like the "old" marker to clear out when I place the new location. Basically, only allowing one of the cells in each row to be "selected" at a time. The list gets rather long, so every "save" I can make on tabbing back and deleting as I move the products around is huge on time!

I hope I explained better and the example I attached will help.

Thanks as always!

Robot Paint Schedule.xlsm
	A	B	C	D	E	F	G	H	I	J	K
1	W/O Schedule	Type	Paint Code	Paint Mixed	Jig	WIP	Bay #	Blast	Prep	Ready	Done
2
3
4	8/31/23	F	4002	X	x
Sheet1

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
B1	Cell Value	="P"	text	NO
B1	Cell Value	="Q"	text	NO
E4:J1048576,E1:J1	Cell Value	="P"	text	NO
E4:J1048576,E1:J1	Cell Value	="Q"	text	NO
J4:J1048576,J1	Cell Value	="R"	text	NO
C4:C1048576,C1	Cell Value	contains "hold"	text	NO
H4:H1048576,H1	Cell Value	>0	text	NO
I4:I1048576,I1	Cell Value	>0	text	NO
J4:J1048576,J1	Cell Value	>0	text	NO
D1	Other Type	Icon set		NO

 

[Peter_SSs]

Try this then to see if it is what you want.

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim Changed As Range, c As Range
  Dim currVal As Variant
  
  ActiveSheet.Unprotect Password:="abc"
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  Set Changed = Intersect(Target, Columns("K"))
  If Not Changed Is Nothing Then
    For Each c In Changed
      If Len(c.Value) > 0 Then c.EntireRow.SpecialCells(xlConstants).ClearContents
    Next c
  End If
  If Target.CountLarge = 1 And Not Intersect(Target, Columns("E:J")) Is Nothing And Target.Row + 1 Then
    currVal = Target.Value
    Intersect(Target.EntireRow, Columns("E:J")).ClearContents
    Target.Value = currVal
  End If
  ActiveSheet.Protect Password:="abc"
  Application.EnableEvents = True
  Application.ScreenUpdating = True
End Sub

 

[efrana]

Private Sub Worksheet_Change(ByVal Target As Range) Dim Changed As Range, c As Range Dim currVal As Variant ActiveSheet.Unprotect Password:="abc" Application.ScreenUpdating = False Application.EnableEvents = False Set Changed = Intersect(Target, Columns("K")) If Not Changed Is Nothing Then For Each c In Changed If Len(c.Value) > 0 Then c.EntireRow.SpecialCells(xlConstants).ClearContents Next c End If If Target.CountLarge = 1 And Not Intersect(Target, Columns("E:J")) Is Nothing And Target.Row + 1 Then currVal = Target.Value Intersect(Target.EntireRow, Columns("E:J")).ClearContents Target.Value = currVal End If ActiveSheet.Protect Password:="abc" Application.EnableEvents = True Application.ScreenUpdating = True End Sub

Again, you do good work! This was exactly what I was looking for, thank you so much!

 

[Peter_SSs]

You're welcome again.