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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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