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

Ask a question sierranz 2Posts Tuesday March 1, 2016Registration date March 3, 2016 Last seen - Last answered on Mar 3, 2016 at 04:17 AM by sierranz

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
plus moins
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

Was this answer helpful?  
plus moins
Thank you TrowaD that worked great!

Member requests are more likely to be responded to.

Members can monitor the statuses of their requests from their account pages.

A CCM membership gives you access to additional options.

Not a member yet?

Sign up now. It takes less than a minute and is completely free!