Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
LTRIM Problem
I am trying to trim the leading spaces from all text in Column U.
I have have the following code but when I run it nothing happens (the leading spaces are still there). I've tried both LTRIM and TRIM but neither seems to work. What am I missing? Dim Rng as Range Sheets("Raw Projections").Select For Each Rng In ActiveSheet.Range("U6:U500") Rng.Value = LTrim(Rng.Value) Next Rng Matt |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
LTRIM Problem
Hi Matt,
Try including this before the loop Selection.Replace What:=Chr(160), Replacement:=Chr(32), _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False For more information see: http://www.mvps.org/dmcritchie/excel/join.htm#trimall Char(160) is the HTML (non-breaking space) But if you look at the macro TRIMALL macro you will see some additional code which will make the macro run faster. --- HTH, David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001] My Excel Pages: http://www.mvps.org/dmcritchie/excel/excel.htm Search Page: http://www.mvps.org/dmcritchie/excel/search.htm "mtsark" wrote in message ... I am trying to trim the leading spaces from all text in Column U. I have have the following code but when I run it nothing happens (the leading spaces are still there). I've tried both LTRIM and TRIM but neither seems to work. What am I missing? Dim Rng as Range Sheets("Raw Projections").Select For Each Rng In ActiveSheet.Range("U6:U500") Rng.Value = LTrim(Rng.Value) Next Rng Matt |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
LTRIM Problem
Your code works fine for me.
-- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "mtsark" wrote in message ... I am trying to trim the leading spaces from all text in Column U. I have have the following code but when I run it nothing happens (the leading spaces are still there). I've tried both LTRIM and TRIM but neither seems to work. What am I missing? Dim Rng as Range Sheets("Raw Projections").Select For Each Rng In ActiveSheet.Range("U6:U500") Rng.Value = LTrim(Rng.Value) Next Rng Matt |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
LTRIM Problem
Thanks guys I modified to code to the following and it worked great.
Sheets("Raw Projections").Range("U6:U500").Select Selection.Replace What:=Chr(160), Replacement:=Chr(32), LookAt:=xlPart, _ SearchOrder:=xlByColumns, MatchCase:=False For Each Rng In ActiveSheet.Range("U6:U500") Rng.Value = LTrim(Rng.Value) Next Rng |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Started out as an Access problem. Now an Excel problem | Excel Discussion (Misc queries) | |||
I can't seem to use RTRIM or LTRIM in Excel 2002. I want to trim. | New Users to Excel | |||
How do I apply LTRIM to entire Sheet? | Excel Programming | |||
Problem when multipple users access shared xl-file at the same time, macrocode for solve this problem? | Excel Programming | |||
LTrim | Excel Programming |