Copy rows from sheet 1 to sheet 2 if rule is met [Solved]

Ask a question sierranz 2Posts Tuesday March 1, 2016Registration date March 3, 2016 Last seen - Latest answer on Mar 3, 2016 04:17AM
I have a contact list I need to extract data from.
Full contact list is sheet 1
Names are in A2:A12948
Internal phone numbers in B2:B12948
DDI numbers in C2:C12948
Mobile numbers in D2:D12948
I would like to copy rows to sheet 2 if there is data in A and D
So users who only list a mobile number will be copied to sheet 2
Thank you
See more 
moins plus
Hi Sierranz,

The code below will do as requested. Results will be in column A & D of sheet2.

Here is the code:
Sub RunMe()

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

Add comment
moins plus
Thank you TrowaD that worked great!
Add comment

Members get more answers than anonymous users.

Being a member gives you detailed monitoring of your requests.

Being a member gives you additional options.

Not a member yet?

sign-up, it takes less than a minute and it's free!