Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub ImportDatafromotherworksheet()
- Dim wkbCrntWorkBook As Workbook
- Dim wkbSourceBook As Workbook
- Dim rngSourceRange As Range
- Dim rngDestination As Range
- Set wkbCrntWorkBook = ActiveWorkbook
- With Application.FileDialog(msoFileDialogOpen)
- .Filters.Clear
- .Filters.Add "Excel 2007-13", "*.xlsx; *.xlsm; *.xlsa"
- .AllowMultiSelect = False
- .Show
- If .SelectedItems.Count > 0 Then
- Workbooks.Open .SelectedItems(1)
- Set wkbSourceBook = ActiveWorkbook
- Set rngSourceRange = Application.InputBox(prompt:="Select source range", Title:="Source Range", Default:="A1", Type:=8)
- wkbCrntWorkBook.Activate
- Set rngDestination = Application.InputBox(prompt:="Select destination cell", Title:="Select Destination", Default:="A1", Type:=8)
- rngSourceRange.Copy rngDestination
- rngDestination.CurrentRegion.EntireColumn.AutoFit
- wkbSourceBook.Close False
- End If
- End With
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement