| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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") |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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") |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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! |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| copy & paste worksheet with print settings into new worksheet | Excel Discussion (Misc queries) | |||
| Copy / paste from a table in word .doc to excel .xls worksheet | Excel Discussion (Misc queries) | |||
| Prevent changing size when copy&paste into another Excel Worksheet | Excel Worksheet Functions | |||
| excel 97: copy and paste values from one worksheet to anotherworksheet | Excel Programming | |||
| excel 97: copy and paste values from one worksheet to another worksheet | Excel Programming | |||
Linear Mode
