Loops

[dmaner]

I am trying to figure out the best way to add a loop to my code. I would like for it to go through my entire code until column C no longer has any cells that say 'Employer ID:'.

Any suggestions?

Code: Select all

Windows("Employee Activity Roll Up.xlsx").Activate
Sheets("Sheet1").Select

Cells.Find(What:="Employee ID:", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Offset(0, 0).Select
Selection.ClearContents

ActiveCell.Offset(0, -1).Select
Selection.Copy
Windows("NA GOLD adherence and activity graphs.xlsm").Activate
Range("B3").Select
    ActiveCell.Offset(1, 0).Select
    Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Select
    Loop

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

[Don]

Hi!

You could put the relevant code inside of this for loop with an if statement:

Code: Select all

Sub test_loop()

For i = 1 To Range("C" & Rows.Count).End(xlUp).Row

    If Cells(i, 3).Value = "Employer ID:" Then
   
        'PUT DESIRED CODE HERE
   
    End If
   
Next i

End Sub



Just replace 'PUT DESIRED CODE HERE with the relevant macro code that you want to run.

hope this helps

[dmaner]

Works like a charm, thank you!!