Copy row only if one cell's value is not 0
Solved/Closed
victhor1977
Posts
1
Registration date
Thursday April 14, 2016
Status
Member
Last seen
April 14, 2016
-
Apr 14, 2016 at 10:34 AM
vcoolio Posts 1404 Registration date Thursday July 24, 2014 Status Moderator Last seen September 15, 2023 - Apr 18, 2016 at 03:13 AM
vcoolio Posts 1404 Registration date Thursday July 24, 2014 Status Moderator Last seen September 15, 2023 - Apr 18, 2016 at 03:13 AM
Related:
- Copy row only if one cell's value is not 0
- //192.168.l.0 - Guide
- Saints row 2 cheats - Guide
- *#0*# huawei - Guide
- Xbox-2309-1001-3-0 - Download - Digital stores
- How to delete row in word - Guide
2 responses
vcoolio
Posts
1404
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
September 15, 2023
259
Apr 16, 2016 at 03:37 AM
Apr 16, 2016 at 03:37 AM
Hello Victhor1977,
The following code may do the task for you:-
Any rows of data that do not have a blank cell in Column A or a zero value in Column A will be transferred to sheet2 using the above code. The code will also delete the same rows from sheet1 once they have been transferred to sheet2.
Following is the link to my test work book for you to peruse:-
https://www.dropbox.com/s/fnu8hekouhfsc1h/Victhor1977%28Copy%20on%202%20criteria%20using%20autofilter%29.xlsm?dl=0
Click on the Transfer button to see the code at work. My test work book has nine columns (A - I). Change the references in the code to suit your actual work book including the column number (shown as 9 in the above code: I=9, J=10 etc.).
Test the code in a copy of your work book first.
I hope that this helps.
Cheerio,
vcoolio.
The following code may do the task for you:-
Sub CopyStuff() Application.ScreenUpdating = False Application.DisplayAlerts = False Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter 1, "<>" & "", xlAnd, "<>" & 0# Range("A2:I" & Cells(Rows.Count, 9).End(xlUp).Row).Copy Sheet2.Range("A" & Rows.Count).End(3)(2) Range("A2:I" & Cells(Rows.Count, 9).End(xlUp).Row).Delete [A1].AutoFilter Application.DisplayAlerts = True Application.ScreenUpdating = True Sheet2.Select End Sub
Any rows of data that do not have a blank cell in Column A or a zero value in Column A will be transferred to sheet2 using the above code. The code will also delete the same rows from sheet1 once they have been transferred to sheet2.
Following is the link to my test work book for you to peruse:-
https://www.dropbox.com/s/fnu8hekouhfsc1h/Victhor1977%28Copy%20on%202%20criteria%20using%20autofilter%29.xlsm?dl=0
Click on the Transfer button to see the code at work. My test work book has nine columns (A - I). Change the references in the code to suit your actual work book including the column number (shown as 9 in the above code: I=9, J=10 etc.).
Test the code in a copy of your work book first.
I hope that this helps.
Cheerio,
vcoolio.
vcoolio
Posts
1404
Registration date
Thursday July 24, 2014
Status
Moderator
Last seen
September 15, 2023
259
Apr 18, 2016 at 03:13 AM
Apr 18, 2016 at 03:13 AM
Hello Victhor,
Excellent! I'm glad that I was able to help.
Cheerio,
vcoolio.
Excellent! I'm glad that I was able to help.
Cheerio,
vcoolio.
Apr 18, 2016 at 02:24 AM
Worked like a charm!