Problemas con la estructura función While

29/03/2011 - 19:32 por doparx | Informe spam
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???

Preguntas similare

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).
Respuesta Responder a este mensaje
#2 doparx
30/03/2011 - 06:24 | Informe spam
Leonardo Azpurua escribió el 30/03/2011 03:16 :
"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).


Ok muchas gracias por la aclaración
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida