VBA Macro - Import data from different excel file for a given value

[dan4y]

Hello guys,
I am very unprepared in everything that means VBA Macros but still I have to find a solution to make my work easier.

If you don't mind, I'd like to share with you where I got stuck.

In one file I need some data from another file but not all the lines.

In the file where I have to get my data from, I have the following columns:

row_no.    task    user_id    upload_date    week_no.    year    asin    Marketplace    Keywords_for_upload    GL    PL

I would like, if possible, to import my lines for a value of the "week_no" column that I can add next to the button.

That's what I've managed to do so far, only I can't handle the condition for that "range":

Sub Get_Data_From_File()
Dim FileToOpen As Variant
Dim OpenBook As Workbook
Application.ScreenUpdating = False
    FileToOpen = "C:\Source.xlsx"
    If FileToOpen <> False Then
        Set OpenBook = Application.Workbooks.Open(FileToOpen)
        OpenBook.Sheets(1).Range("B1:K52").Copy
        ThisWorkbook.Worksheets(2).Range("A1").PasteSpecial xlPasteValues
        OpenBook.Close False
    End If
    Application.ScreenUpdating = True
End Sub

I hope I was quite explicit and thank you in advance for your help.

 

[EXCEL MAX]

What about "Range("E1:E52")" instead "Range("B1:K52")"?
What do you mean "that I can add next to the button"?

 

[dan4y]

I didn't realize I didn't fully explain. I added a button to run the macro. I would like that macro to import my data according to the value I gave for "week_no"