Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Replace
I have a macro that does a filter on Column L for Sale Rep "Joe" and
then tries to replace the values in Column A. The problem is that is replaces all instances in Column A, not just the filtered, or visible cells. I tried this macro, an some variations, but have not had any success: Sub UpdateCustType() Dim mycell As Range Dim myrng As Range Set myrng = Range("L2", Selection.End(xlDown)) 'Loop through Sales Reps For Each mycell In myrng If Cell.Value = "Joe" Then Cell.Offset(0, -11).Value = "Ind Contractor" End If Next mycell End Sub Any help would be appreciated Thanks, Scott |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Replace
The code you show shouldn't do anything except raise an error since CELL is
not initialized. Sub UpdateCustType() Dim mycell As Range Dim myrng As Range Set myrng = Range("L2", Range("L2").End(xlDown)) 'Loop through Sales Reps For Each mycell In myrng If lcase(myCell.Value) = "joe" Then myCell.Offset(0, -11).Value = "Ind Contractor" End If Next mycell End Sub -- Regards, Tom Ogilvy "scott" wrote in message ... I have a macro that does a filter on Column L for Sale Rep "Joe" and then tries to replace the values in Column A. The problem is that is replaces all instances in Column A, not just the filtered, or visible cells. I tried this macro, an some variations, but have not had any success: Sub UpdateCustType() Dim mycell As Range Dim myrng As Range Set myrng = Range("L2", Selection.End(xlDown)) 'Loop through Sales Reps For Each mycell In myrng If Cell.Value = "Joe" Then Cell.Offset(0, -11).Value = "Ind Contractor" End If Next mycell End Sub Any help would be appreciated Thanks, Scott |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find and Replace - Replace with Blank Space | Excel Discussion (Misc queries) | |||
Can I replace a ' at the beginning of a text cell using Replace | Excel Discussion (Misc queries) | |||
Replace dialog should put focus on "Find What" not "Replace With" | Excel Discussion (Misc queries) | |||
find and replace - replace data in rows to separated by commas | Excel Worksheet Functions | |||
How can I use replace(alt+H) for mutiple items needing replace | Excel Worksheet Functions |