LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 1,560
Default Remove Blank Cells within each row

Hello all,
I am exporting data from Access 2002 to Excel. Unfortunately, I am
exporting a sub report that produces blank cells in columns A thru M for the
sub report data. For example my ONE relationship of Customer is on row 1.
The many relationship ORDERS is on rows 2 thru 5, but the data on rows 2 thru
5 doesn't start until column N.
I have put this bit of code together that seems to work for Row 1.

How can I modify it to cycle thru all of the rows with data?

If a1 = "" Then
Range("b1:M1").Select
Selection.Delete Shift:=xlToLeft
Range("a1:a1").Select
End If

Is there also a way to pass this code/macro from Access to the new Excel doc
the users are creating from Access? Or get this code to execute after Access
has completed the export of data to the excel document?

Any assistance you can provide is greatly appreciated.
 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Remove blank cells from data validation drop down box Jay Excel Worksheet Functions 3 December 8th 09 04:16 PM
remove blank cells - no sorting Luke Excel Worksheet Functions 4 May 14th 08 10:23 PM
how to remove blank cells in excel Landa Excel Discussion (Misc queries) 7 August 13th 06 07:29 AM
Remove blank cells from a range Dave Excel Discussion (Misc queries) 2 January 4th 06 08:29 PM
Remove Blank Cells in a Selection Krager[_3_] Excel Programming 2 September 3rd 05 07:13 PM


All times are GMT +1. The time now is 05:03 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"