Hello,
I am a beginner in Excel VBA, so I would need your help by this macro:
I wrote the problematic line with red colour.
Thank you for your help in advance.
Regards,
Grindi
Code
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