Problemas con la estructura función While

Trabajo en Excel 2011 para mac, similar a Excel 2010 para PC
conocida como
versión 14.0.2.
Trato de trabajar con la función While, pero al escribir este codigo
(que
es el sugerido en varias páginas) me marca error: Caso 1
While Application.IsNumber(ActiveCell)
vc1 = vc1 + 1
vr3 = Trim(Str(ActiveCell.Row))
vr4 = Trim(Str(ActiveCell.Column))
vrancell2 = ActiveCell.Address(False, False)
ActiveCell.Offset(0, 1).Select
End While
Pero al hacerlo con este formato me acepta Caso 2:
Do While Application.IsNumber(ActiveCell)
vc1 = vc1 + 1
vr3 = Trim(Str(ActiveCell.Row))
vr4 = Trim(Str(ActiveCell.Column))
vrancell2 = ActiveCell.Address(False, False)
ActiveCell.Offset(0, 1).Select
Loop
Hay algún error en como escribo la sentencia en el primer caso???
O no acepta este formato la versión indicada???

"doparx" escribió en el mensaje
news:
Mostrar la cita

Trabajo en Excel 2011 para mac, similar a Excel 2010 para PC
conocida como
versión 14.0.2.
Trato de trabajar con la función While, pero al escribir este codigo
(que
es el sugerido en varias páginas) me marca error: Caso 1
While Application.IsNumber(ActiveCell)
vc1 = vc1 + 1
vr3 = Trim(Str(ActiveCell.Row))
vr4 = Trim(Str(ActiveCell.Column))
vrancell2 = ActiveCell.Address(False, False)
ActiveCell.Offset(0, 1).Select
End While
Pero al hacerlo con este formato me acepta Caso 2:
Do While Application.IsNumber(ActiveCell)
vc1 = vc1 + 1
vr3 = Trim(Str(ActiveCell.Row))
vr4 = Trim(Str(ActiveCell.Column))
vrancell2 = ActiveCell.Address(False, False)
ActiveCell.Offset(0, 1).Select
Loop
Hay algún error en como escribo la sentencia en el primer caso???
O no acepta este formato la versión indicada???

En VBA/VB6, los ciclos se construyen como Do While Loop, o While
... Wend.

End While no aparece sino hasta VB.Not, porque a algun imbecil de
Microsoft le pareció bien agregar una ruptura innecesaria de
compatibilidad por puro gusto (que a fin de cuentas viene a ser "una
raya mas para un tigre", porque el puñetero lenguaje es
radicalmente
incompatible, pero la supresión de Wend no tiene más
justificación que
la preferencia de un imbecil).