Copying data from one file to others

[Shanghai3]

Hello,

I am a beginner in Excel VBA and I would like to run the havimeteo() code, but I was not succeeded.
The Run-time error '13' appeared:Type mismatch in the following row:
Set omszrange = Workbooks(Filename1).Worksheets(Tabname1).Range("D14:J14")

Thank you for your help in advance.

Regards,

Shanghai3

Option Explicit
Option Base 1
    
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
    
        
        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)
        
        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()

 

[rlv01]

Welcome to Mr Excel. The specific error you mention is due to using the wrong data type for the expression.

Instead of this:

        Set omszrange = Workbooks(Filename1).Worksheets(Tabname1).Range("D14:J14")

Try this:

        Set omszrange = ActiveWorkbook.Worksheets(Tabname1.Value).Range("D14:J14")

Another thing to be aware of is that when you declare a variable in this way:

    Dim Pathname, Filename1, Tabname1, Tabname2 As String

Only Tabname2 is type string. The first three are type variant. If that was not your intention, then to declare all of them as string you would use this:

    Dim Pathname As String, Filename1 As String, Tabname1 As String, Tabname2 As String

Similarly, only Tabname 4 is type range.

   Dim Tabname3, Tabname4 As Range

 

[Shanghai3]

Dear rlv01,

Thank you for your valuable help.

Regards,

Shanghai3