Thread: Proper way to save to a workbook journal

Any Ideas, or where I should start reading on this subject.
Thanks Z

Could anyone tell me if this can be done, and where I should go to start reading on how to.

Thanks for looking J
There are 3 invoices that I use,proposal,two day,one day. After I fill in the data on a invoice I save it under the job name then print pdf, save it to the journal. All of these functions work ok,and all my inputs go to the journal. On my two day invoice I might reopen it in a couple of months after I save it to another name and input some more data,so that invoice might be job 1 for example. When I reopen that invoice and make a change and save it to the journal I lose all my other data. Is they a way so it just add to the existing list in the journal, I guess it would be something like a data base. Do this make better since, just make a couple test invoices and save them to a folder, then go back in and make a change to one and see what it does to the master journal. I do not need any data in the journal if it is not the master invoice.

Thanks Z

As you can see almost all my empty boxes use data validation to fill in, click on the hand image to open userform.

That all looks good,try and make a couple more invoices,like job5,job6,job7,job8,job9. and have them all inputed in the journal. Now if you open the master and look at the journal you should see all 5 jobs. Try and make job6 a two day invoice because it only puts the rough amount in the journal. After you do that go back and open job6 and make a change on the invoice,save the change and save to the journal. Now go back to the master and look at the journal,all the other jobs are gone.

Thanks for hanging in their with me.

Sorry Module12 had the wrong code because I made a change,it should be this because it saves to the journal amount different.

Dim NextRow As Long

With Sheet4
.Rows(3).Insert Shift:=xlShiftDown
.Rows(2).Copy Destination:=.Rows(3)
.Rows(2).ClearContents
.Cells(2, 1).Value = Range("Builder")
.Cells(2, 2).Value = Range("Job")
.Cells(2, 3).Value = Format(Range("Date"), "short date")
.Cells(2, 4).Value = Range("Invoice")
If Sheet1.OptionButton1.Value = True Then
.Cells(2, 5).Value = Range("rough")
End If
If Sheet1.optionbuttion2.Value = True Then
.Cells(2, 6).Value = Range("finish")
End If
End With
ActiveWorkbook.SaveAs Filename:= _
"C:\Builder\Master\Nichols Electric Master Invoice Ver.8.01.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

I think its overwriting the master journal with less data, but don't know how to fix. Most of the codes
came from help on this forum, all I did was put them in place. I have gotton a lot of great help here.

Thats a tuff question, the first input to the journal from job6 has the rough amount, the next input would have the finish amount. When the first input to journal job6 it fills in the rough amount and the finish is blank. So I guess all I need is the finish amount added to the journal in the job6 line.

Yes that is what I need. The reason behind rough and finish is, I quote the job at a bid, only charge so much on rough and when I go back for the finish stuff gets added
from the first bid so the finish amout changes. I hope this can be done, I know you spent a lot of time on this. Another thing I don't need any data in a journal that is not the master invoice. Once the master invoice has been named something different I don't need the journal sheet in the job invoices if that helps. The master needs to hold all data.
Thank You