Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Problemas con la estructura función While

29/03/2011 - 19:32 por doparx | Informe spam
Ayuda Hacer una pregunta
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???
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Leonardo Azpurua
30/03/2011 - 03:16 | Informe spam
"doparx" escribió en el mensaje
news:
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).

Preguntas similares

 

Busqueda sugerida :