Jump to content
Sign in to follow this  
Onotera

Duda macro

Recommended Posts

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

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites
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?

Share this post


Link to post
Share on other sites
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png