Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1
Default 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

  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 5,441
Default 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



  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 5,441
Default 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





Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Find and Replace - Replace with Blank Space Studebaker Excel Discussion (Misc queries) 4 April 3rd 23 10:55 AM
How to Replace multiple words to replace using excell ramsun Excel Programming 1 August 10th 06 01:52 PM
find and replace - replace data in rows to separated by commas msdker Excel Worksheet Functions 1 April 15th 06 01:00 AM
Using Find and Replace to replace " in a macro snail30152 Excel Programming 1 April 13th 06 11:58 PM
How can I use replace(alt+H) for mutiple items needing replace Gery Excel Worksheet Functions 1 June 15th 05 05:51 PM


All times are GMT +1. The time now is 07:28 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"