Home |
Search |
Today's Posts |
#18
Posted to microsoft.public.excel.programming
|
|||
|
|||
Issue with blanks and spaces
On Wednesday, March 19, 2014 1:22:46 AM UTC-7, Claus Busch wrote:
Hi Howard, Am Wed, 19 Mar 2014 09:11:24 +0100 schrieb Claus Busch: Enter a code line with With ThisWorkbook.Sheets("Title Builder") in case the sheet "Title Builder" is not the active sheet Then don't forget the dots in front of the ranges LRow = Cells(Rows.Count, 1).End(xlUp).Row if all sections in all colors are filled you have more than 12100 rows, otherwise you can have less. Regards Claus B. -- Vista Ultimate SP2 / Windows7 SP1 Office 2007 Ultimate SP3 / 2010 Prodessional Hi Claus, On a different sheet in the same project, I am trying to output column AQ to both column A and sheet 2 column B of the same workbook. This sheet is very almost identical to the Titles sheet except here it is returning up to six short phrases to the taget cells. This is one of many attempts to get it to write to sheet2. Is this a case like you describe above. Writes to sheet 1 just fine, the active sheet. Sub A2_Down_Copy() Dim lRowCount lRowCount = Cells(Rows.Count, "AE").End(xlUp).Row With Sheets("Sheet1").Range("A2").Resize(lRowCount) .Formula = "=CONCATENATE(AE2&AG2&AI2&AK2&AM2&AO2)": .Value = .Value End With With Sheets("Sheet2").Range("B2").Resize(lRowCount) .Formula = "=CONCATENATE(AE2&AG2&AI2&AK2&AM2&AO2)": .Value = .Value End With End Sub Thanks. Howard |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Charting blanks as spaces | Charts and Charting in Excel | |||
Issue removing leading and lagging spaces | Excel Programming | |||
How to count blanks and spaces that look like blanks | Excel Programming | |||
how do I remove leading spaces and leave the remianing spaces w | Excel Worksheet Functions | |||
Paste Special Skip Blanks not skipping blanks, but overwriting... | Excel Discussion (Misc queries) |