Data transfer between workbooks

NoSparks · #4 09-23-2017, 01:48 PM

Try replacing this part

Code:

Dim i As Integer

For i = 1 To 4000

Workbooks("makro.xlsm").Worksheets("List1").Range("A" & i).Value = xApp.Workbooks(1).Worksheets(1).Range("A" & i).Value
Workbooks("makro.xlsm").Worksheets("List1").Range("B" & i).Value = xApp.Workbooks(1).Worksheets(1).Range("B" & i).Value
Workbooks("makro.xlsm").Worksheets("List1").Range("C" & i).Value = xApp.Workbooks(1).Worksheets(1).Range("C" & i).Value

Next i

with this

Code:

    Dim ray1 As Variant

ray1 = xApp.Workbooks(1).Worksheets(1).UsedRange.Value
Workbooks("makro.xlsm").Worksheets("List1").Range("A1").Resize(UBound(ray1, 1), UBound(ray1, 2)) = ray1

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to look up data from one of two workbooks	ColM1	Excel	2	09-10-2016 01:47 AM
Syncing data between two excel workbooks using multiple criteria	Merlot	Excel	2	05-04-2016 06:41 AM
Formulas transferring to other pages in workbooks, but data isn't.	Melissa Ames	Excel	4	03-02-2016 01:58 PM
Pull the data from different closed workbooks paste into master vba	manilara	Excel Programming	2	11-19-2015 08:41 PM
How to transfer my data?	dexoey	Outlook	0	09-15-2012 05:44 AM