| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copying Multiple Rows
Is there any way I can shorten the following code to copy all rows a once? Private Sub CommandButton1_Click() If CheckBox1.Value = True Then Workbooks.Open ("N:\Projects\Active Projects\Project sheets\VCCS.xls") Worksheets(1).Rows(4).Select Selection.Copy Workbooks(1).Activate Range("E12:H12") = "VCCS" Worksheets(1).Rows(13).Select ActiveSheet.Paste Workbooks(2).Activate Worksheets(1).Rows(5).Select Selection.Copy Workbooks(1).Activate Worksheets(1).Rows(14).Select ActiveSheet.Paste Workbooks(2).Activate Worksheets(1).Rows(6).Select Selection.Copy Workbooks(1).Activate Worksheets(1).Rows(15).Select ActiveSheet.Paste Workbooks(2).Activate Worksheets(1).Rows(7).Select Selection.Copy Workbooks(1).Activate Worksheets(1).Rows(16).Select ActiveSheet.Paste Workbooks(2).Activate Worksheets(1).Rows(8).Select Selection.Copy Workbooks(1).Activate Worksheets(1).Rows(17).Select ActiveSheet.Paste End If End Sub Thank -- Susie ----------------------------------------------------------------------- SusieQ's Profile: http://www.excelforum.com/member.php...fo&userid=3081 View this thread: http://www.excelforum.com/showthread.php?threadid=50637 |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| copying multiple rows to columns | Excel Discussion (Misc queries) | |||
| Inserting multiple rows and copying formulas | Excel Discussion (Misc queries) | |||
| need help please inserting multiple rows based on cell value then copying to data sheet | Excel Worksheet Functions | |||
| Copying multiple rows to other worksheets (but amount of rows varies) - How? | Excel Discussion (Misc queries) | |||
| copying data for multiple rows | Excel Programming | |||
![SusieQ[_3_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Threaded Mode
