transfer of data between workbooks

**flakedew** · 06-29-2012, 02:21 AM

I have data in sheet1 of workbook named test.xlsx.
I need to copy the data in sheet1 of test.xlsx from A4:G4 to end and paste in sheet2 of workbook named sample.xlsx.
I will be working in Sample.xlsx so i need the macro to copy from sheet1 of test.xlsx.
The macro should ask for the test.xlsx file location and user should select the file through Browse.
Once file test.xlsx is selected the said range of data should be copied and pasted in sheet2 range A3:G4 to end.
Please help.

**Steffen Thomsen** · 06-29-2012, 02:33 AM

Hi,

This should do

Sub steffen()

Dim fileToOpen
Dim wb As Workbook

Set wb = ActiveWorkbook

fileToOpen = Application.GetOpenFilename
If fileToOpen = False Then
    MsgBox ("No file choosen")
Else
    wb.Sheets(1).Range("A4:G" & wb.Sheets(1).UsedRange.Rows.Count).Copy Destination:=ActiveWorkbook.Sheets(2).Range("A4")
End If

End Sub

**flakedew** · 06-29-2012, 02:52 AM

Thanks for your code...
i used that code in file sample.xlsx.
on execution it calls for location of file Test.xlsx
after selection of file Test.xlsx from directory
Nothing happens in file sample.xlsx

Please note the sheet names
Data to be copied from Sheet1 of Test.xlsx ( to seek from certain directory)
Data to pasted in sheet name "Dell" of sample.xlsx. ( Active Workbook)

**Steffen Thomsen** · 06-29-2012, 03:09 AM

Hi

Try this instead

Sub steffen()

Dim fileToOpen
Dim wb As Workbook

Set wb = ActiveWorkbook

Workbooks.Open Application.GetOpenFilename
wb.Sheets(1).Range("A4:G" & wb.Sheets(1).UsedRange.Rows.Count).Copy Destination:=ActiveWorkbook.Sheets(2).Range("A4")

End Sub

**flakedew** · 06-29-2012, 03:29 AM

thanks for your efforts..

but still not working.
I m attaching both the files.
kindly check from your end.
I need the data to pasted in sheet name Dell of workbook sampl.xlsx.

**Steffen Thomsen** · 06-29-2012, 03:47 AM

Ahh, i got the wrong way round

Try this

Sub steffen()

Dim fileToOpen
Dim wb As Workbook

Set wb = ActiveWorkbook

Workbooks.Open Application.GetOpenFilename
ActiveWorkbook.Sheets(1).Range("A4:G" & ActiveWorkbook.Sheets(1).UsedRange.Rows.Count).Copy Destination:=wb.Sheets(2).Range("A4")
wb.Sheets(2).Activate

End Sub

**flakedew** · 06-29-2012, 04:07 AM

Thanks... Thanks.... Thanks....
Working perfect....

**flakedew** · 06-29-2012, 04:08 AM

Thanks... Thanks.... Thanks....
Working perfect....

transfer of data between workbooks

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

transfer of data between workbooks

Re: transfer of data between workbooks

Re: transfer of data between workbooks

Re: transfer of data between workbooks

Re: transfer of data between workbooks

Re: transfer of data between workbooks

Re: transfer of data between workbooks

Re: transfer of data between workbooks

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions