Error en sintaxis bucle WHILE.

En el código que inserto a continuación consigo llevar a la casilla de verificación "E3" el valor True pretendido, pero no que, según quiero indicarle a un bucle While, en las casillas subsiguientes a la E3 [E4, E5, E6...], hasta que en la columna "E" el bucle encuentre una celda vacía [""], inserte dicho valor: True.

 Qué hago mal?

 [b]Dim fila As Integer

fila = 3

While Cells(fila, "E").Value <> ""

Range("E3").Value = True

fila = fila + 1

Wend[/b]

Aunque supongo se notará aclaro que se trata de 'mi primer bucle'...

1 Respuesta

Respuesta
1

La macro se ejecuta si en las celdas E3, E4, E5, etc tienen valor.

Falta agregar la fila en la instrucción Range:

Prueba lo siguiente:

Sub PruebaLoop()
  Dim fila As Integer
  fila = 3
  While Cells(fila, "E").Value <> ""
    Range("E" & fila).Value = True
    fila = fila + 1
  Wend
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas