View Single Post
  #10   Report Post  
Posted to microsoft.public.excel.programming
Ron de Bruin Ron de Bruin is offline
external usenet poster
 
Posts: 11,123
Default Get Cell Values from Other .xls files

Hi

Will make a example tomorrow for you

--
Regards Ron de Bruin
http://www.rondebruin.nl


"DTTODGG" wrote in message ...
OK, this is getting fun! I wish I knew exactly how this stuff works, but I'm
learning.

How about this one?
When it opens the existing file, look for a duplicate in column B,
if a duplicate is found, add the new row, but color it blue, if not a
duplicate append the file as normal. This file will keep growing each month.

You see, I'm getting these forms(files) from sales each month. I want to
keep a running total of all the data. I might accidentally read the same file
twice, so I need to see that in blue - or if they sent an updated version of
that file, I can review the blue row to verify.

Does this make sense?

Also, what is ExecuteExcel4Macro?



"Ron de Bruin" wrote:

Change

Set SummWks = Workbooks.Add(1).Worksheets(1)
'Add a new workbook with one sheet for the Summary

To
Set SummWks = Sheets("yoursheetname)

You can clear the cells on this sheet (not row 1 with the headers) before you run the code
Or do you really want to add the new links below your other links each time ???



--
Regards Ron de Bruin
http://www.rondebruin.nl


"DTTODGG" wrote in message ...
It works! Thank-you! Thank-you!

Now I have some fun things to work on during vacation!

Ron, how can I get labels or titles or names for the columns?

Also, is what code do I change so that it doesn't open a new file each time?
I would like to run this continually and keep appending my spreadsheet rather
than create a new one.

Cheers!


"Ron de Bruin" wrote:

I reply to your private mail with a example workbook

--
Regards Ron de Bruin
http://www.rondebruin.nl


"DTTODGG" wrote in message ...
Ron, I have gotten past the 1004 error (syntax in my GetOpenFilename line)
But, I don't get any of the cells - just the file name gets into column 1
and the other cells are yellow.

It seems to not like the line:
SheetCheck = ExecuteExcel4Macro(PathStr & Range("A1").Address(, , x1R1C1))

Can you explain what's here? what is Excel4Macro?

Thank you!

"Ron de Bruin" wrote:

Hi DTTODGG

Where have you copy the code ?
When do you get the error ?
Show me the macro with your changes

--
Regards Ron de Bruin
http://www.rondebruin.nl


"DTTODGG" wrote in message ...
Thank you, Ron.
I appreciate all your work putting these examples together.
I used you sample, made the adjustments, but I'm getting a:
Run-time error '1004' when I run within VB. If I run the macro outside VB I
get a 400 in the msgbox.

Could you tell me where I can learn more about error messages, what they
mean, how to fix them? I'm certain this is something simple, but I'm "dead in
the water".

I need to learn how to debug and fix my programs.

"Ron de Bruin" wrote:

Use this one
http://www.rondebruin.nl/summary2.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"DTTODGG" wrote in message
...
Hello -

I need some conceptual help and some specific help.

I have many excel files being sent to me. All are in the same format :-)
I want to make a new .xls file (Master) that goes out into this directory
where all these .xls files are and "gets J2 and puts it in column A1 of the
Master workbook, then gets P4 and puts in in column B1 of the Master
workbook... when done, go get the next .xls, open and put in A2 and B2,
etc...".

I'm having difficulty finding what the objects are called and the syntax
that goes with them. Once I get a handle on this, I'll be able to ask better
questions to this group. until then -

Thank you VERY much!