Estoy iniciándome con las macros y tengo unos apuntes con las siguientes macros que no consigo hacerlas funcionar, no veo ningún fallo.

Do While... Loop

Instrucción que repite las instrucciones mientras una condición es TRUE/VERDADERO.

Ejemplo

Excel tiene valores en las celdas B1:B100. Quieres buscar la primera celda que tenga un valor más alto/igual que 1,50.

i = 1

Do While Cells(i, 2) <> ""

if Cells(i, 1) >= 1.5 Then Exit Do

i = i + 1

Loop

MsgBox "El valor se encontró en fila no. " & i

For i... Next

Esta instrucción se repite el número de veces (i) que tú indicas.

Ejemplo

Creamos un bucle sencillo. Queremos que se repita 4 veces, y que la variable intValor (al empezar = 1) se incremente con 2 cada vuelta. Este nos da el resultado intValor = 9 (1+2+2+2+2).

Observa que el bucle tiene step 1. Esto significa que i se incrementa con 1 cada vuelta. Esto es, que si queremos un bucle que vaya para atrás, pondríamos step -1.

intValor = 1

For i = 1 to 4 step 1

intValor = intValor + 2

Next i

gracias

Hola:

Yo no veo ningun fallo en este código, a mi me funciona bien.

Seria mejor que subas tu archivo para probarlo.

Hola elunico22,

ya creo que sé como funciona el 1º Do While... Loop (te encuentra en la fila donde está el valor 1.5, o eso creo)

en el 2º For i... Next (he hecho lo siguiente por probar)

Sub aaa()

Intvalor = 2

For I = 1 To 15 Step 1

Intvalor = Intvalor + 1

Next I

MsgBox "el valor es" & Intvalor

End Sub

me sale el mensaje con el valor= 17

lo he probado así y parece que funciona

Hola:

Quisiera saber si ya lo solucionaste?

Hola:

Quisiera saber si ya lo solucionaste?

Creo que sí, en el mensaje anterior lo puse.

con el Do While... Loop (te encuentra en la fila donde está el valor 1.5, o eso creo)

con el For i... Next (he hecho lo siguiente por probar)

Sub aaa()

Intvalor = 2

For I = 1 To 15 Step 1

Intvalor = Intvalor + 1

Next I

MsgBox "el valor es" & Intvalor

End Sub

me sale el mensaje con el valor= 17

como lo ves?