Report

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 - Last answered on Mar 3, 2016 04:17AM
Hi


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 
Helpful
+1
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()
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


Add comment
Helpful
+0
moins plus
Thank you TrowaD that worked great!
Add comment

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!