Do Until Macro
 

I have over 500 Excel Files that I need to import into Access, however I want
to get them cleaned up first. One of the things I would like to is run is a
macro from lets say cell J- 7000 ( this could vary with each individual
file) and what I am thinking of is that I would input the store number of
like 0001 into this field and then the macro would copy it up until it got to
the column header which would say store and then stop.

Do Until Macro
 

On Nov 4, 11:53 am, Beep Beep
wrote:
I have over 500 Excel Files that I need to import into Access, however I want
to get them cleaned up first. One of the things I would like to is run is a
macro from lets say cell J- 7000 ( this could vary with each individual
file) and what I am thinking of is that I would input the store number of
like 0001 into this field and then the macro would copy it up until it got to
the column header which would say store and then stop.

Dim rStoreNo As Excel.Range

Set rStoreNo = Range("J2:J7000")
rStoreNo.Value = "'0001"

Do Until Macro
 

DBKemp

Perfect - Thanks so much

"dbKemp" wrote:

On Nov 4, 11:53 am, Beep Beep
wrote:
I have over 500 Excel Files that I need to import into Access, however I want
to get them cleaned up first. One of the things I would like to is run is a
macro from lets say cell J- 7000 ( this could vary with each individual
file) and what I am thinking of is that I would input the store number of
like 0001 into this field and then the macro would copy it up until it got to
the column header which would say store and then stop.

Dim rStoreNo As Excel.Range

Set rStoreNo = Range("J2:J7000")
rStoreNo.Value = "'0001"