Posts by Grindi

Sub havimeteo()




Dim Pathname, Filename1, Tabname1, Tabname2 As String
Dim omszallomany As Workbook
Dim rownum As Double
Dim omszrange As Range
Dim Filename2 As Range
Dim finishrange As Range
Dim Tabname3, Tabname4 As Range


'I would take the source data from the file I opened
Set Pathname = Range("A3")
Set Filename1 = Range("B3")
Set Tabname1 = Range("C3")
Set Filename2 = Range("B6:B16")
Set finishrange = Range("E3")
Set Tabname3 = Range("C6:C16")
Set Tabname4 = Range("D6:D16")




Workbooks.Open (Filename1)


' I used the red colour for the problematic row, it has an error message:Run-time error 13 Type mismatch
Set omszrange = Workbooks(Filename1).Worksheets(Tabname1).Range("D14:J14")




For rownum = 1 To 11


omszrange.Rows(rownum).Copy Workbooks(Filename2).Rows(rownum).Worksheets(Tabname3).finishrange
omszrange.Rows(rownum).Copy Workbooks(Filename2).Rows(rownum).Worksheets(Tabname4).finishrange


Next rownum


End Sub