0
Sub selfilecopypaste()
Dim filetoopen As Variant
Dim openfile As Workbook
Dim count As Integer
Dim i As Integer
i = 5

For count = 1 To 3

    filetoopen = Application.GetOpenFilename(Title:="browse your file & import range", Filefilter:="excel files (*.xlsx*,*xlsx*")

    If filetoopen <> False Then
    Set openfile = Application.Workbooks.Open(filetoopen)

        openfile.Sheets("low").Range("b2").Copy
        ThisWorkbook.Worksheets("sheet1").Cells(i, 5).PasteSpecial xlPasteValues

        openfile.Sheets("mid1").Range("i2:l2").Copy
        ThisWorkbook.Worksheets("sheet1").Range("di").PasteSpecial xlPasteValues

    openfile.Close False
End If
count = count + 1
i = i + 1

Next
End Sub

'I started learning VBA a week ago for my project and I'm stuck here. Please help. 'Workbooks have similar format. I want the data to be one below the other starting from row i =5.

BigBen
  • 46,229
  • 7
  • 24
  • 40

0 Answers0