Forum,
How would I create the following task in hand to insert the Daily Gross
Sales Total (Column F) & the Date (Column A) from Workbook 1 to automatically
insert into Workbook 2 named Check Register

Ex: below is the exact Header Names:
Workbook 1
A............F....
2Date...Total
311/1...$523.12
411/2...$622.54
5etc......etc.

Workbook 2 = Check Registar
A..........B........C........D............E....... ..........F..........G.......H
1Date.Check.Payee.Deposit.Disbursement.Category.Me mo.Balance
2blank.......2blank
311/1.....1.....Hy-Vee.blank........$12.00......Food.....blank...$234 .76
411/2.....2.....Osco's..blank........$23.97......Pills .......blank...$210.79

Yes, I know you can retype the date! Please not again..
Yes, I know I can paste special and sort! Drat's
What is the process to create this data transfer more efficently???
Column A & F in Workbook 1, will transfer data into Workbook 2 into the
Columns A & D.
Thank you in advance!!!
Mark

Here is one I posted on ms.general yesterday. Modify to suit. Both wb open

Sub CopyMyData1() 'from anywhere in the workbook
With workbooks("destinationworkbook.xls").Sheets("desti nationsheet")
x = .Range("A65536").End(xlUp).Row + 1
[sourcesheet!c12].Copy .Range("A" & x)
[sourcesheet!c21].Copy .Range("k" & x)
[sourcesheet!C12:C21].Clear
End With
End Sub


--
Don Guillett
SalesAid Software

"Mark" wrote in message
...
Forum,
How would I create the following task in hand to insert the Daily Gross
Sales Total (Column F) & the Date (Column A) from Workbook 1 to
automatically
insert into Workbook 2 named Check Register

Ex: below is the exact Header Names:
Workbook 1
A............F....
2Date...Total
311/1...$523.12
411/2...$622.54
5etc......etc.

Workbook 2 = Check Registar

A..........B........C........D............E....... ..........F..........G....
....H
1Date.Check.Payee.Deposit.Disbursement.Category.Me mo.Balance
2blank.......2blank
311/1.....1.....Hy-Vee.blank........$12.00......Food.....blank...$234 .76

411/2.....2.....Osco's..blank........$23.97......Pills .......blank...$210.79

Yes, I know you can retype the date! Please not again..
Yes, I know I can paste special and sort! Drat's
What is the process to create this data transfer more efficently???
Column A & F in Workbook 1, will transfer data into Workbook 2 into the
Columns A & D.
Thank you in advance!!!
Mark

Don,
This will be my first Macro ever. Scary
Will you help me get started with the first sheet I will be able to finish
the rest.

Workbook 1
C:\My Documents\(PS) Accounting\(PS) Atm & Sales Deposit Cash Sheets
Workbook 1, Sheet1
Column A :Date
C:\My Documents\(PS) Accounting\(PS) Atm & Sales Deposit Cash Sheets
'[Atm & Sales Deposit (Business).xls]Nov (04)'!$A$3
1. 11/1
2. The absolute values stop at $A$32
3. This is the end date of Nov 30th
Column F :Totals
'[Atm & Sales Deposit (Business).xls]Nov (04)'!$F$3
1. The total here is 523.34
2. The absolute values stop at $F$32
3. This is the last daily cash of the Month Nov. 30th

Workbook 2
C:\My Documents\(PS) Accounting\(PS) Check Register Monthly Sheet
Workbook2, Sheet1
Column A :Date
'[Check Register Monthly Sheet.xls]Nov (04)'!$A$3
1. Cell = 11/1
2. As of now I have entered 45 Dates in the month
3. Ranging from 11/1 to 11/20
4. But there is 30 days in Nov.
5. How far do you select the range

Column D: Deposit
'[Check Register Monthly Sheet.xls]Nov (04)'!$D$3
1. This cell is blank, but has a check written with a value in E3

How do I insert the macro in the sheet once the Macro is completed.

Thanks in advance,
Mark


"Don Guillett" wrote:

Here is one I posted on ms.general yesterday. Modify to suit. Both wb open

Sub CopyMyData1() 'from anywhere in the workbook
With workbooks("destinationworkbook.xls").Sheets("desti nationsheet")
x = .Range("A65536").End(xlUp).Row + 1
[sourcesheet!c12].Copy .Range("A" & x)
[sourcesheet!c21].Copy .Range("k" & x)
[sourcesheet!C12:C21].Clear
End With
End Sub


--
Don Guillett
SalesAid Software

"Mark" wrote in message
...
Forum,
How would I create the following task in hand to insert the Daily Gross
Sales Total (Column F) & the Date (Column A) from Workbook 1 to
automatically
insert into Workbook 2 named Check Register

Ex: below is the exact Header Names:
Workbook 1
A............F....
2Date...Total
311/1...$523.12
411/2...$622.54
5etc......etc.

Workbook 2 = Check Registar

A..........B........C........D............E....... ..........F..........G....
....H
1Date.Check.Payee.Deposit.Disbursement.Category.Me mo.Balance
2blank.......2blank
311/1.....1.....Hy-Vee.blank........$12.00......Food.....blank...$234 .76

411/2.....2.....Osco's..blank........$23.97......Pills .......blank...$210.79

Yes, I know you can retype the date! Please not again..
Yes, I know I can paste special and sort! Drat's
What is the process to create this data transfer more efficently???
Column A & F in Workbook 1, will transfer data into Workbook 2 into the
Columns A & D.
Thank you in advance!!!
Mark