Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Prova con:
Set oRangeP = ThisWorkbook.Worksheets("FERIE").Range(sRangeP)
NumRigheP = oRangeP.Rows.Count
With Me
For i = 1 To NumRigheP Step 2
cont=cont+1
.Controls("Labelp" & cont).Caption = oRangeP(i, 1)
Next i
End With
Ne prosegui della tua routine c'è un "cont = cont + 1"
Ma mi pare che non sia poi realmente utilizzato (forse un residuo dal mio codice che "costruireva anche le label".
Se invece fosse utilizzato allora dopo il ciclo dei controlli del personale va impostato nuovamente a zero indicando cont = 0