excel 97: copy and paste values from one worksheet to another worksheet
 

"Tom Ogilvy" wrote in message ...
either of these will work:

Sub FundsMovement()

Application.ScreenUpdating = False


ActiveSheet.Name = "SEIACHDisbursement"
Range("A1").Value = "FromAcct"
Range("B1").Value = "FromIncome"
Range("C1").Value = "FromPrincipal"
Range("D1").Value = "DisbursementCode"
Range("E1").Value = "DisbursementExplanation1"
Range("F1").Value = "DisbursementExplanation2"
Range("G1").Value = "DisbursementExplanation3"
Range("H1").Value = "DisbursementExplanation4"
Range("I1").Value = "DisbursementExplanation5"
Range("J1").Value = "Taxid"
Range("K1").Value = "ToENeeded"
Range("L1").Value = "CUSIP"

'copy and paste specific cells from ftregi_funds_move worksheet (sheet1)
'to SEIACHDisbursements(sheet2)
Worksheets("FTREGI_FUNDS_MOVE").Range("E2").Copy
With Worksheets("SEIACHDisbursement")
.Paste Destination:=.Range("A2")
End With
Application.ScreenUpdating = True

End Sub

or

Sub FundsMovement()

'Application.ScreenUpdating = False


ActiveSheet.Name = "SEIACHDisbursement"
Range("A1").Value = "FromAcct"
Range("B1").Value = "FromIncome"
Range("C1").Value = "FromPrincipal"
Range("D1").Value = "DisbursementCode"
Range("E1").Value = "DisbursementExplanation1"
Range("F1").Value = "DisbursementExplanation2"
Range("G1").Value = "DisbursementExplanation3"
Range("H1").Value = "DisbursementExplanation4"
Range("I1").Value = "DisbursementExplanation5"
Range("J1").Value = "Taxid"
Range("K1").Value = "ToENeeded"
Range("L1").Value = "CUSIP"

'copy and paste specific cells from ftregi_funds_move worksheet (sheet1)
'to SEIACHDisbursements(sheet2)
Worksheets("FTREGI_FUNDS_MOVE").Range("E2").Copy _
Destination:=Worksheets("SEIACHDisbursement").Rang e("A2")

Application.ScreenUpdating = True

End Sub

--
Regards,
Tom Ogilvy

thank you for all of your suggestions:) it works great, though, how
would one copy all of the column values into sheet2 from sheet1 ?
would i need to have to use this method?

Worksheets("FTREGI_FUNDS_MOVE").Range("E2:E100").C opy _
Destination:=Worksheets("SEIACHDisbursement").Rang e("C2:C100")

excel 97: copy and paste values from one worksheet to another worksheet
 

Worksheets("FTREGI_FUNDS_MOVE").Range("E2:E100"). Copy _
Destination:=Worksheets("SEIACHDisbursement").Rang e("C2:C100")

That should work if you don't have any data beyond row 100.

--
Regards,
tom Ogilvy



JMCN wrote in message
om...
"Tom Ogilvy" wrote in message
...
either of these will work:

Sub FundsMovement()

Application.ScreenUpdating = False


ActiveSheet.Name = "SEIACHDisbursement"
Range("A1").Value = "FromAcct"
Range("B1").Value = "FromIncome"
Range("C1").Value = "FromPrincipal"
Range("D1").Value = "DisbursementCode"
Range("E1").Value = "DisbursementExplanation1"
Range("F1").Value = "DisbursementExplanation2"
Range("G1").Value = "DisbursementExplanation3"
Range("H1").Value = "DisbursementExplanation4"
Range("I1").Value = "DisbursementExplanation5"
Range("J1").Value = "Taxid"
Range("K1").Value = "ToENeeded"
Range("L1").Value = "CUSIP"

'copy and paste specific cells from ftregi_funds_move worksheet (sheet1)
'to SEIACHDisbursements(sheet2)
Worksheets("FTREGI_FUNDS_MOVE").Range("E2").Copy
With Worksheets("SEIACHDisbursement")
.Paste Destination:=.Range("A2")
End With
Application.ScreenUpdating = True

End Sub

or

Sub FundsMovement()

'Application.ScreenUpdating = False


ActiveSheet.Name = "SEIACHDisbursement"
Range("A1").Value = "FromAcct"
Range("B1").Value = "FromIncome"
Range("C1").Value = "FromPrincipal"
Range("D1").Value = "DisbursementCode"
Range("E1").Value = "DisbursementExplanation1"
Range("F1").Value = "DisbursementExplanation2"
Range("G1").Value = "DisbursementExplanation3"
Range("H1").Value = "DisbursementExplanation4"
Range("I1").Value = "DisbursementExplanation5"
Range("J1").Value = "Taxid"
Range("K1").Value = "ToENeeded"
Range("L1").Value = "CUSIP"

'copy and paste specific cells from ftregi_funds_move worksheet (sheet1)
'to SEIACHDisbursements(sheet2)
Worksheets("FTREGI_FUNDS_MOVE").Range("E2").Copy _
Destination:=Worksheets("SEIACHDisbursement").Rang e("A2")

Application.ScreenUpdating = True

End Sub

--
Regards,
Tom Ogilvy

thank you for all of your suggestions:) it works great, though, how
would one copy all of the column values into sheet2 from sheet1 ?
would i need to have to use this method?

Worksheets("FTREGI_FUNDS_MOVE").Range("E2:E100").C opy _
Destination:=Worksheets("SEIACHDisbursement").Rang e("C2:C100")

excel 97: copy and paste values from one worksheet to another worksheet
 

"Tom Ogilvy" wrote in message ...
Worksheets("FTREGI_FUNDS_MOVE").Range("E2:E100"). Copy _
Destination:=Worksheets("SEIACHDisbursement").Rang e("C2:C100")

That should work if you don't have any data beyond row 100.

--
Regards,
tom Ogilvy

yes it did work... thanks again!