Duda macro

[Onotera]

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

[elunico22]

Hola:

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

Seria mejor que subas tu archivo para probarlo.

[Onotera]

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

[elunico22]

Hola:

Quisiera saber si ya lo solucionaste?

[Onotera]

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?