Hello, help, please to move data to the correct columns. At least one for an example as it is correct to do it
Move data with Sheet1 to Sheet2 in the correct columns
-
mavgir -
March 5, 2017 at 6:19 AM -
Thread is marked as Resolved.
-
-
-
Re: Move data with Sheet1 to Sheet2 in the correct columns
If ar(4) = arr(i, 4) Then
ar(6) = arr(i, 2)
ar(7) = arr(i, 3)
ar(10) = arr(i, 6)
ar(11) = arr(i, 9)
ar(12) = arr(i, 11)
ar(13) = arr(i, 7)
End If
but writes error -
Re: Move data with Sheet1 to Sheet2 in the correct columns
Hello,
You could test following :
Code
Display MoreFor i = 1 To .Count With Sheets("Sheet2") .Cells(i + 3, "B") = arr(i, 3) .Cells(i + 3, "C") = arr(i, 4) .Cells(i + 3, "D") = arr(i, 1) .Cells(i + 3, "F") = arr(i, 7) .Cells(i + 3, "G") = arr(i, 10) .Cells(i + 3, "I") = arr(i, 8) .Cells(i + 3, "K") = arr(i, 9) End With Next i
Hope this will help
-
Re: Move data with Sheet1 to Sheet2 in the correct columns
not absolutely, data are duplicated
-
Re: Move data with Sheet1 to Sheet2 in the correct columns
Not sure to understand ...
You have to delete the instruction :
CodeSheets("Sheet2").Cells(10, "A").Resize(.Count, 10) = Application.Transpose(Application.Transpose(.items))
and replace it byCode
Display More' Display Data in Sheet2 For i = 1 To .Count With Sheets("Sheet2") .Cells(i + 3, "B") = arr(i, 3) .Cells(i + 3, "C") = arr(i, 4) .Cells(i + 3, "D") = arr(i, 1) .Cells(i + 3, "F") = arr(i, 7) .Cells(i + 3, "G") = arr(i, 10) .Cells(i + 3, "I") = arr(i, 8) .Cells(i + 3, "K") = arr(i, 9) End With Next i
HTH
-
-
Re: Move data with Sheet1 to Sheet2 in the correct columns
no, he throws not so, it is necessary the last changed row
it is necessary that like it, but it doesn't work where to insert?
ReDim ar(1 To 10)
ar(1) = arr(i, 3)
ar(2) = arr(i, 4)
ar(3) = arr(i, 1)
ar(4) = ""
ar(5) = arr(i, 7)
ar(6) = arr(i, 10)
ar(7) = ""
ar(8) = arr(i,
ar(9) = ""
ar(10) = arr(i, 9) -
Re: Move data with Sheet1 to Sheet2 in the correct columns
Attached is your own workbook ...
-
Re: Move data with Sheet1 to Sheet2 in the correct columns
Carim, Thank you huge, all works.
-
Re: Move data with Sheet1 to Sheet2 in the correct columns
Quote from mavgir;787123Carim, Thank you huge, all works.
Thanks ... for your thanks ...:wink:
Participate now!
Don’t have an account yet? Register yourself now and be a part of our community!