Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro for parsing text
hello, I am trying to modify a recorded macro that replaces an HTML tag
with "". The macro I recorded is below. I want to replace the 7 in the Rows parameter with a counter, i, and use a For ..Next statement to loop through each row in the worksheet. However, this is giving me an app error. Does anyone know how I can do this? Thanks. ------ Original Macro ------- Sub CleanHTML() ' CleanHTML Macro ' Macro recorded 4/17/2006 by Mark Oium Rows("7:7").Select Selection.Replace What:="<*", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub ------ Modified Macro ------ Sub CleanHTML() Dim i as Integer 'CleanHTML Macro 'Macro recorded 4/17/2006 by Mark Oium For i = 1 To 1396 Rows("i:i").Select Selection.Replace What:="<*", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Next i End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
macro for parsing text
Remove select statement
Rows(i).Replace What:="......... " wrote: hello, I am trying to modify a recorded macro that replaces an HTML tag with "". The macro I recorded is below. I want to replace the 7 in the Rows parameter with a counter, i, and use a For ..Next statement to loop through each row in the worksheet. However, this is giving me an app error. Does anyone know how I can do this? Thanks. ------ Original Macro ------- Sub CleanHTML() ' CleanHTML Macro ' Macro recorded 4/17/2006 by Mark Oium Rows("7:7").Select Selection.Replace What:="<*", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False End Sub ------ Modified Macro ------ Sub CleanHTML() Dim i as Integer 'CleanHTML Macro 'Macro recorded 4/17/2006 by Mark Oium For i = 1 To 1396 Rows("i:i").Select Selection.Replace What:="<*", Replacement:="", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Next i End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
macro for parsing text | Excel Programming | |||
Pause Macro For Start Row While Parsing a Text File | Excel Programming | |||
Parsing imported text file with macro... help! | Excel Programming | |||
NEED EXCEL MACRO TEXT-PARSING GURU! | Excel Programming | |||
NEED EXCEL MACRO TEXT-PARSING GURU! | Excel Programming |