Copy rows from sheet 1 to sheet 2 if rule is met
Solved/Closed
sierranz
Posts
2
Registration date
Tuesday March 1, 2016
Status
Member
Last seen
March 3, 2016
-
Mar 1, 2016 at 04:19 AM
sierranz Posts 2 Registration date Tuesday March 1, 2016 Status Member Last seen March 3, 2016 - Mar 3, 2016 at 04:17 AM
sierranz Posts 2 Registration date Tuesday March 1, 2016 Status Member Last seen March 3, 2016 - Mar 3, 2016 at 04:17 AM
Related:
- Copy rows from sheet 1 to sheet 2 if rule is met
- Gta 1 download - Download - Action and adventure
- Fnaf 1 download pc - Download - Horror
- How to copy data from one sheet to another in excel automatically - Guide
- Little alchemy cheat sheet - Guide
- How to screenshot excel sheet - Guide
2 replies
TrowaD
Posts
2921
Registration date
Sunday September 12, 2010
Status
Moderator
Last seen
January 16, 2023
547
Mar 1, 2016 at 11:50 AM
Mar 1, 2016 at 11:50 AM
Hi Sierranz,
The code below will do as requested. Results will be in column A & D of sheet2.
Here is the code:
The code below will do as requested. Results will be in column A & D of sheet2.
Here is the code:
Sub RunMe()
Sheets("Sheet1").Select
For Each cell In Range("A2:A12948")
If cell.Value <> vbNullString And _
cell.Offset(0, 1).Value = vbNullString And _
cell.Offset(0, 2).Value = vbNullString And _
cell.Offset(0, 3).Value <> vbNullString Then _
cell.EntireRow.Copy _
Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
Next cell
End Sub
sierranz
Posts
2
Registration date
Tuesday March 1, 2016
Status
Member
Last seen
March 3, 2016
Mar 3, 2016 at 04:17 AM
Mar 3, 2016 at 04:17 AM
Thank you TrowaD that worked great!
