ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Overrule/Replace (https://www.excelbanter.com/excel-programming/373333-overrule-replace.html)

40lbsofPoop

Overrule/Replace
 
I have a row where I will be using tally marks. I only want one
tally per row but it is based on a progression to track steps in the
process. So if they have reached the next step they can just put a
tally (an X) in the new cell and it will auto replace the previous
tally. Thank you for any help.

eg.

Step 1 Step 2 Step 3

Person 1 X

Person 2 X


Person 3 X


Bernie Deitrick

Overrule/Replace
 
Brent,

Copy the code below, right-click on the sheet tab, select "View Code" and paste the code in the
window that appears.

HTH,
Bernie
MS Excel MVP

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "X" Then
Application.EnableEvents = False
Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Column - 1)).Replace "X", ""
Application.EnableEvents = True
End If
End Sub


"40lbsofPoop" wrote in message
oups.com...
I have a row where I will be using tally marks. I only want one
tally per row but it is based on a progression to track steps in the
process. So if they have reached the next step they can just put a
tally (an X) in the new cell and it will auto replace the previous
tally. Thank you for any help.

eg.

Step 1 Step 2 Step 3

Person 1 X

Person 2 X


Person 3 X




Bernie Deitrick

Overrule/Replace
 
This should be inserted as the first line.... So that it doesn't blow up when entering values into
column A.

If Target.Column = 1 Then Exit Sub

HTH,
Bernie
MS Excel MVP


"Bernie Deitrick" <deitbe @ consumer dot org wrote in message
...
Brent,

Copy the code below, right-click on the sheet tab, select "View Code" and paste the code in the
window that appears.

HTH,
Bernie
MS Excel MVP

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "X" Then
Application.EnableEvents = False
Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Column - 1)).Replace "X", ""
Application.EnableEvents = True
End If
End Sub


"40lbsofPoop" wrote in message
oups.com...
I have a row where I will be using tally marks. I only want one
tally per row but it is based on a progression to track steps in the
process. So if they have reached the next step they can just put a
tally (an X) in the new cell and it will auto replace the previous
tally. Thank you for any help.

eg.

Step 1 Step 2 Step 3

Person 1 X

Person 2 X


Person 3 X







All times are GMT +1. The time now is 07:10 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com