Need some help on the best way to do something

[daniels012]

We create an estimating sheet to cost out jobs. It then goes to the next person where a proposal is made.

When the estimating sheet is created, we copy it to a floppy 1.44mb and print a hard copy. It goes to the desk of the person that does proposals.

The person that does the proposal, puts the disk in and much of the info is then transfered to the Proposal. Like Client, Address, Phone, Fax Num., Floor Type, etc. For 2 reasons we do this: 1) it saves typing 2) It keeps from typos! I have a button on the proposal that retrieves the file name "Estimating" & the data from Floppy a: puts it on sheet 1 on the Proposal.

Floppies are just not reliable. The disks half the time do not work so we are retyping the data. I want a new and easier way!!

Anyway!!

We are set up on a network. I would like to click a button and have the data transfer if possible. Or once the Estimmating sheet is done, transfer the data. The computer where proposals are done, is always on. The computer for estimating is not always on.

What is my best approach?? It now searches Floppy A: for the same file name each time. If we write a new proposal, we just put a new disk with the same name. We would not be able to do this now?? We can't save to the same directory, a file with the same name??

Any help would be greatly appreciated!!!!!!!
Michael

 

[Smitty]

OK, not tested, but:

Sub MoveDataFromA()
    Workbooks.Open Filename:="A:\Estimating Sheet and R17 Fill.xls"
    Sheets("ESTIMATING").Range("D2:L63").Copy
    Windows("A Proposal for XL.xls").Activate
    Sheets("Estimate from A-Drive").Range("A2").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Sheets("FRONT").Range("N2").Select
End Sub

1) I want to change the Directory to "C:\WINDOWS\Personal\Surface Systems\Estimating" where the Estimating sheet was saved.
2) I would like an input box or a way to enter the name of the estimating sheet I want to get data from.
3) Then mostly the same copy D2:L63 into the "Estimate from A-Drive" (Which is Sheet1)

Not sure about #1, for #2 you could use the GetOpenFilename method (the vba helpfile explains it pretty well and gives some usable code).

Smitty

(Sorry it took a while to get back, I'm working on a huge project at the moment).