Sub GetData()
Dim col as Variant
Dim fName as Variant
Dim rng as Range, rng1 as Range
Dim bk as Workbook
fname = Application.GetOpenFileName()
if fName < False then
set bk = workbooks.Open(fName)
else
exit sub
End if
col = InputBox("Enter a column number or letter")
set rng = workbooks("Master"). _
Worksheets("Data").Cells(rows.count,1).End(xlup)(2 )
with bk.worksheets(1)
set rng1 = .cells(1,col).Entirecolumn.specialcells(xlConstant s)
rng1.EntireRow.copy Destination:=rng
End with
bk.Close SaveChanges:=False
End Sub


--
Regards,
Tom Ogilvy



"jeffbert" wrote in message
...

Thanks for your suggestion. Sorry it has been a few days, but just been
extremely busy. I have a formula very similar to that already set up, and
it
works wonderfully. Let me explain the situation a little further.

Every week I am sent numerous customer specific sales reports. What I
would
like to do is to create a central database, rather than saving each report
by
week. Ideally, i would like to open the database workbook, run a macro
that
evaluates a chosen file and column within that file. If a cell in this
column
is not blank, then copy the entire row to the next available row in the
database.
Thanks again

Jeff

Does anyone know any good books or programs to teach yourself VBA?

"Tom Ogilvy" wrote:

In A62 put in the formula

=if(Left(trim(B62),7) = "STOCK#:",B62&B60,"")

Then drag fill down (and/or up) column A.

--
Regards,
Tom Ogilvy

"jeffbert" wrote in message
...
Here is what I am after. I have a large download from a major
retailer's
website. Unfortunately, it is not available in a format that is very
user
friendly to get information from. I am setting up a "database"
worksheet
to
lookup all of the information off of the download, and put it into a
format
that can be used in a pivot table. What I need to do is evaluate
column B,
everywhere that STOCK#: ??????, (the ? is a wildcard) then enter a
formula
in
column A.

For instance:
Evaluate column B
Stock#: XXXXXX is found in cell B62
In cell A62 enter the formula =(B62&B60)

Then continue on for 2500 rows repeating the procedure wherever
"STOCK#:
?????) appears.

I would like to thank everyone in advance for looking into this for
me.

Side note. If anyone knows of any good "Teach yourself VB" books or
programs, please feel free to e-mail me.