Save 2 workbooks and assign a workbook name for copying cells

[ka3pmw]

I am trying to copy data from a log file to a summary file. I can open the workbooks successfully, but I can't identify them for the copy. Here is my code. Will someone please help?

Please Login or Register  to view this content.

[AlphaFrog]

wkb is the workbook Log Summary.xlsm

ThisWorkbook is the workbook that contains the macro code.

Specifically what cells on what sheet are you copying and what is the destination?

[ka3pmw]

Source workbook is the Emergency Log ................... Destination Workbook is Log Summary
Source Sheet is Form ............................................. Destination sheet is Sheet 1
Cell D2 ................................................................... Cell D2
Cell I3 ................................................................... Cell D3
Cell J3 ................................................................... Cell F2
Cell I1 ................................................................... Cell F3
Cells B4:B152 ......................................................... Cells B4:B152

These should get copied every time an entry is made. I can send you a copy of the workbooks if you wish.

[ka3pmw]

Here are the workbooks. The password is ka3pmw

[ka3pmw]

Here are the workbooks. The password is ka3pmw Emergency log

[ka3pmw]

I have struggled with this and gotten it to this point:

Please Login or Register  to view this content.

Now I need to copy the cells. I have this but it crashes:

Please Login or Register  to view this content.

Does anyone have any ideas?

[maniacb]

Try

Please Login or Register  to view this content.

[ka3pmw]

maniacb,

That returned a Runtime error 9 subscript out of range error.

[ka3pmw]

Here is what I have. I start by using this to Set things up:

Please Login or Register  to view this content.

Then I use this to copy a cell:

Please Login or Register  to view this content.

and it does not work. The Workbooks("Source").Worksheets("Form").Range("D2").Copy _
Workbooks("Dest").Worksheets("Sheet1").Range("D2") should execute every tine an entry is made/changed on the Forms sheet. I think I have it in a good place but I'm not sure. Does anybody know why or have a better idea?

[ka3pmw]

I now have the startup problem solved but I am having trouble with the copy portion. Here is the code that I am using:

Please Login or Register  to view this content.

I am getting an error 9 and I can't figure out where. This is the section of code that gets executed with every entry.

The solution to the original problem was:

Please Login or Register  to view this content.

It is here that the variables are defined when the workbook is opened. Please look at this and advise.