Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy rows from other Excel-file
Hi,
In my workbook (NewWkb) I am using a Command Button to import some complete sheets from another Excel file (ImportWkB) (see code below). Now I want to use the same button to import additionaly some special rows from some sheets from a second excel-file (ImportWkB2). Is that possible? For example I want to copy row 2 & 5 from sheet 2 and row 3 & 6 from sheet 3 in my second excel source-file to my workbook Sheet 11 in cell B10 and below Does someone has an idea hot wo extend the code? -----Code-------: Private Sub CommandButton1_Click() Dim fname As Variant Dim NewWkb As Workbook ' destination workbook Dim ImportWkB As Workbook ' source workbook No1 Dim ImportWkB2 As Workbook ' the second excel source-file Dim sh As Variant 'sheets Dim DestRange As Range Set NewWkb = ThisWorkbook fname = Application.GetOpenFilename("Excel-Data-Input,*.xls", , "Source") If fname < False Then Application.ScreenUpdating = False Set ImportWkB = Workbooks.Open(fname, ReadOnly:=True, UpdateLinks:=0) For Each sh In ImportWkB.Sheets NewWkb.Sheets(sh.Index + 4).Cells.UnMerge Set DestRange = NewWkb.Sheets(sh.Index + 4).Range("B10") sh.UsedRange.Copy With DestRange .PasteSpecial xlPasteValues, , False, False .PasteSpecial xlPasteFormats, , False, False End With Set DestRange = Nothing Application.CutCopyMode = False If sh.Index = 6 Then Exit For Next sh ImportWkB.Close False |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
copy rows to another file | Excel Worksheet Functions | |||
copy rows to another file | Excel Worksheet Functions | |||
copy rows to another file | Excel Worksheet Functions | |||
Copy Rows From To CSV File | Excel Programming | |||
How do i copy a scramble file with 20970 rows to excel? | New Users to Excel |