Macro que no se ejecuta
Hola, tengo un problema con esta macro, en mi hoja excel tengo en la Hoja3 datos en las columnas a, b, c, f, g.
Al intentar ejecutar esta macro se queda colgado el programa, ¿por favor soy nueva me echáis una mano?
Private Sub CommandButton1_Click()
For i = 1 To 20
num = Cells(i, 6)
j = 1
ref = Cells(j, 3)
Do Until num < ref
j = j + 1
Loop
contador = Cells(j, 4)
Cells(j, 4) = contador + 1
Next i
End Sub
Al intentar ejecutar esta macro se queda colgado el programa, ¿por favor soy nueva me echáis una mano?
Private Sub CommandButton1_Click()
For i = 1 To 20
num = Cells(i, 6)
j = 1
ref = Cells(j, 3)
Do Until num < ref
j = j + 1
Loop
contador = Cells(j, 4)
Cells(j, 4) = contador + 1
Next i
End Sub
1 respuesta
Respuesta de angelcrisnor
1