[es-discuss_es] Inquietud sobre algo de OOmacro.

--0-465418940-1305902558=:44472
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable

Saludos


Tengo el siguiente segmento de codigo para buscar codigos distintos=A0 en u=
n listado largo


'-------------------------
for cuentafilas=3D0 to 10000
listacodigos=3D""
codigo21=3Dnombrehoja2.getCellByposition(0,cuentafilas).getstring()
=A0 =A0=A0=A0 =A0=A0=A0 codigo22=3Dnombrehoja2.getCellByposition(0,cuentafi=
las+1).getstring()
=A0 =A0=A0=A0 =A0=A0=A0 if codigo21<>codigo22 then
=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 if len(codigo22)<>0 then
=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 rotulocodigo=3Dcodigo22
=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 else
=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 if len(codigo21)<>0 then
=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 rotulocodigo=3Dcodigo=
21
=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 else
=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 rotulocodigo=3D" NO E=
XISTE CODIGO"
=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 ENDIF
=A0 =A0=A0=A0 =A0=A0=A0 =A0=A0=A0 endif
=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0=A0 listacodigos=3Dlistacodigos+chr(13)+ro=
tulocodigo
=A0 =A0=A0=A0 =A0=A0=A0 else
=A0 =A0=A0=A0 =A0=A0=A0 '=A0=A0=A0 msgbox "ELC ODIGO HA CAMBIADO" + chr(13)=
+ rotulocodigo
=A0 =A0=A0=A0 =A0=A0=A0 endif

next cuentafilas
'------------------------

La situacion es que conforme va aumentando el numero de la fila, se va haci=
endo mas lento.

Habria algun codigo que realice la tarea de buscar codigos distintos con ma=
s rapidez que el que estoy usando.

Gracias por sus opiniones
--=20
-----------------------------------------------------------------
To unsubscribe send email to [email protected]
For additional commands send email to [email protected]
with Subject: help

--0-465418940-1305902558=:44472
Content-Type: text/html; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable

<table cellspacing=3D"0" cellpadding=3D"0" border=3D"0" ><tr><td valign=3D"=
top" style=3D"font: inherit;">Saludos<br><br><br>Tengo el siguiente segment=
o de codigo para buscar codigos distintos&nbsp; en un listado largo<br><br>=
<br>'-------------------------<br>for cuentafilas=3D0 to 10000<br>listacodi=
gos=3D""<br>codigo21=3Dnombrehoja2.getCellByposition(0,cuentafilas).getstri=
ng()<br>&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; codigo22=3Dnombrehoja2=
.getCellByposition(0,cuentafilas+1).getstring()<br>&nbsp; &nbsp;&nbsp;&nbsp=
; &nbsp;&nbsp;&nbsp; if codigo21&lt;&gt;codigo22 then<br>&nbsp; &nbsp;&nbsp=
;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; if len(codigo22)&lt;&gt;0 the=
n<br>&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;=
&nbsp;&nbsp; rotulocodigo=3Dcodigo22<br>&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nb=
sp;&nbsp; &nbsp;&nbsp;&nbsp; else<br>&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;=
&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; if len(codigo21)&lt;&gt;0 then=
<br>&nbsp;
 &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp=
; &nbsp;&nbsp;&nbsp; rotulocodigo=3Dcodigo21<br>&nbsp; &nbsp;&nbsp;&nbsp; &=
nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; else<br>&nbsp; &nbs=
p;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nb=
sp;&nbsp;&nbsp; rotulocodigo=3D" NO EXISTE CODIGO"<br>&nbsp; &nbsp;&nbsp;&n=
bsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ENDIF<br>&nbs=
p; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; endif<br>&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; listacod=
igos=3Dlistacodigos+chr(13)+rotulocodigo<br>&nbsp; &nbsp;&nbsp;&nbsp; &nbsp=
;&nbsp;&nbsp; else<br>&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; '&nbsp;&=
nbsp;&nbsp; msgbox "ELC ODIGO HA CAMBIADO" + chr(13)+ rotulocodigo<br>&nbsp=
; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; endif<br><br>next cuentafilas<br>'-=
-----------------------<br><br>La situacion es que conforme va aumentando
 el numero de la fila, se va haciendo mas lento.<br><br>Habria algun codigo=
 que realice la tarea de buscar codigos distintos con mas rapidez que el qu=
e estoy usando.<br><br>Gracias por sus opiniones<br></td></tr></table>=

--0-465418940-1305902558=:44472--