Copy Data From One Workbook To a Specific Workbook

[Vishaal]

Hi,

We have Two Workbook in same location
Workbook Name

1. Test
2. Data

now we want to copy data from Test, Sheet1!A2:A and paste in Data, Sheet1!A2:A
and we want to copy data of Test, Sheet1!B2:B and paste in Data, Sheet1!C2:C

advice pls

 

[Vishaal]

got the solution

Dim mydata As String
mydata = "='D:\Backup\user\Desktop\New folder\[sourtttt1.xlsx]Sheet1'!$A$2:$A$7"
With ThisWorkbook.Sheets(1).Range("B2:B7")
    .Formula = mydata
    .Value = .Value 
   
mydata = "='D:\Backup\user\Desktop\New folder\[sourtttt1.xlsx]Sheet1'!$B$2:$B$7"
With ThisWorkbook.Sheets(1).Range("C2:C7")
    .Formula = mydata
    .Value = .Value 
   
End With

End With

End Sub