Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Removing semicolons
This macros just received works but does not seem to stop
the looping until it returs the error "MS Visual Basic 400". I would appreciate a bit of tweaking. i = 1 Do Target = Range("D" & i) TargetLength = Len(Target) CharLeft = Left(Target, 1) CharRight = Right(Target, 1) If CharLeft = ";" Then Target = Right(Target, Len (Target) - 1) If CharRight = ";" Then Target = Left(Target, Len (Target) - 1) Range("D" & i) = Target i = i + 1 Loop |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Removing semicolons
JA,
Add If IsEmpty(Range("D" & i)) = True Then Exit Do after the i=i+1 This checks for empty cells. There are quite a few of different Is.....functions that may suit you better depending upon your cell contents. Do you need to check across your columns and change the D to an E etc.... Donna |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
removing na | Excel Discussion (Misc queries) | |||
Removing text between hyphens and removing the hyphens | Excel Discussion (Misc queries) | |||
Removing #N/A | New Users to Excel | |||
Removing patterns without removing gridlines | Excel Discussion (Misc queries) | |||
Removing semicolons | Excel Programming |