Macro_Loop

[zinah]

Hi,

I have set of goals for each employee and I need to set 5 loops to include them, below is the macro that went through one goal. I need to set loop to go through all the 5 goals, how can I do that?

objLbl = "Objective: " & Chr(10) outLbl = "Metrics/Outcomes: " & Chr(10)
objTxt = ActiveSheet.[Obej_Col].Offset(1, 0).Value
outTxt = ActiveSheet.[Met_Col].Offset(1, 0).Value
catTxt = "Core Responsibilities"
prgLbl = "Progress: "
prgTxt = ActiveSheet.[Prog_Col].Offset(1, 0).Value

Thank you!

 

[DanteAmor]

Try this.
The data in blue are the modified ones.

[B][COLOR=#0000ff]    For i = 1 To 5[/COLOR][/B]
        objLbl = "Objective: " & Chr(10)
        outLbl = "Metrics/Outcomes: " & Chr(10)
        objTxt = ActiveSheet.[Obej_Col].Offset([B][COLOR=#0000ff]i[/COLOR][/B], 0).Value
        outTxt = ActiveSheet.[Met_Col].Offset([B][COLOR=#0000ff]i[/COLOR][/B], 0).Value
        catTxt = "Core Responsibilities"
        prgLbl = "Progress: "
        prgTxt = ActiveSheet.[Prog_Col].Offset([B][COLOR=#0000ff]i[/COLOR][/B], 0).Value
[B][COLOR=#0000ff]    Next[/COLOR][/B]