Somehow it’s not copying [closed]

by

You need to avoid using Select and Activate.

Set the workbooks, worksheets and ranges to variables and use them.

Also when pasting just values avoid the clipboard for speed.

Sub GetTW_Data()
Dim tWb As Workbook
Dim ebayWb As Workbook
Dim tWs As Worksheet
Dim ebayWs As Worksheet
Dim rng As Range

Set tWb = ThisWorkbook
Set tWs = tWb.Sheets(1)

Set ebayWb = Workbooks.Open(Filename:="C:\Test 1\1 eBay BrandProgress.xls", ReadOnly:=True)
Set ebayWs = ebayWb.Sheets(1)

Set rng = ebayWs.UsedRange

tWs.Range("B5").Resize(rng.Rows.Count, rng.Columns.Count).Value = rng.Value

ebayWb.Close

End Sub

More Related Contents:

  1. How do I get values from a hidden worksheet using VBA [closed]
  2. How to copy cells that contain certain text to another worksheet [closed]
  3. VBA Macro for copying and pasting columns on same excel sheet
  4. Excel VBA, code to count the # of filled cells, then find highest and 2nd highest and subtract the corresponding column #’s [closed]
  5. Get all dates between 2 dates in vba
  6. Different languages issue when inserting formula from VBA
  7. vba: get unique values from array
  8. Unprotect VBProject from VB code
  9. Can VBA Reach Across Instances of Excel?
  10. Excel VBA – Delete empty rows
  11. Efficient way to delete entire row if cell doesn’t contain ‘@’ [duplicate]
  12. Building Undo Into an Excel VBA Macro
  13. Excel vba add code to sheet module programmatically
  14. Best workaround for VBA Transpose array length limit?
  15. How to use Events with Option Button Controls on Userform [duplicate]
  16. How do I use variables to set properties in VBA (Excel)
  17. VBA: Else without If Error
  18. How to highlight a cell using the hex color value within the cell?
  19. Convert RTF (Rich Text Format) code into plain text in Excel
  20. lastrow and excel table.
  21. Open a workbook from VBA and disable Workbook_Open() code?
  22. Creating form programmatically in the module using vba
  23. How to filter listbox values based on a Textbox value
  24. Find and FindNext for Excel VBA
  25. Is there a way for DIR(path) in VBA to handle strings longer than 260?
  26. How do I activate a specific workbook and a specific sheet?
  27. Start VBA macro when editing a cell
  28. VBA Run-time error 438 appears when “paste” runs
  29. If Not function proceeds when value *is* the one specified
  30. Copy an entire worksheet to a new worksheet in Excel 2010

Leave a Comment