[es-discuss_es] Re: Inquietud sobre algo de OOmacro.

This is a multi-part message in MIME format.
--------------000501030201070605080206
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: quoted-printable

Descarga la extensi=F3n Unico.=20
http://extensions.services.openoffice.org/en/project/unico

Despu=E9s de instalarla reinicias OpenOffice.org. Abred tu documento,=20
selecciona solo los datos de la columna, Men=FA Datos - Unico

Tu problema esta resuelto.

Dale las gracias a Mauricio que el puso el c=F3digo.

El 20/05/11 16:06, Alejandro Rivas Mor=E1n escribi=F3:
>
>
> --- El *vie, 20/5/11, Mauricio Baeza /<[email protected]>/*=20
> escribi=F3:
>
>
>     De: Mauricio Baeza <[email protected]>
>     Asunto: [es-discuss_es] Re: Inquietud sobre algo de OOmacro.
>     Para: [email protected]
>     Fecha: viernes, 20 de mayo, 2011 16:58
>
>     El vie, 20-05-2011 a las 15:42 +0100, Alejandro Rivas Mor=E1n escri=
bi=F3:
>>     Saludos
>>
>>
>>     Tengo el siguiente segmento de codigo para buscar codigos
>>     distintos  en un listado largo
>>
>>
>>     '-------------------------
>>     for cuentafilas=3D0 to 10000
>>     listacodigos=3D""
>>     codigo21=3Dnombrehoja2.getCellByposition(0,cuentafilas).getstring(=
)
>>             =20
>>     codigo22=3Dnombrehoja2.getCellByposition(0,cuentafilas+1).getstrin=
g()
>>               if codigo21<>codigo22 then
>>                   if len(codigo22)<>0 then
>>                       rotulocodigo=3Dcodigo22
>>                   else
>>                       if len(codigo21)<>0 then
>>                           rotulocodigo=3Dcodigo21
>>                       else
>>                           rotulocodigo=3D" NO EXISTE CODIGO"
>>                       ENDIF
>>                   endif
>>                  listacodigos=3Dlistacodigos+chr(13)+rotulocodigo
>>               else
>>               '    msgbox "ELC ODIGO HA CAMBIADO" + chr(13)+ rotulocod=
igo
>>               endif
>>
>>     next cuentafilas
>>     '------------------------
>>
>>     La situacion es que conforme va aumentando el numero de la fila,
>>     se va haciendo mas lento.
>>
>>     Habria algun codigo que realice la tarea de buscar codigos
>>     distintos con mas rapidez que el que estoy usando.
>>
>>     Gracias por sus opiniones
>>
>
>     =BFLo que quieres es tener un lista de c=F3digos =FAnicos?
>
>     Saludos
>
>     Gracias...
>
>     Si,  asi es.  Requiero extraer la lista de codigos que forman
>     parte de todos los registros de la hoja.  Como detalle e de
>     indicar que las hojas a veces tienen mas de 5000 registros y hasta
>     31 codigos distintos. Entonces lo que necesito es saber que
>     codigos estan la hoja.
>
>
>
>     --=20
>     __________________________________
>     Mauricio Baeza Serv=EDn
>     Universo Libre M=E9xico, A.C.
>     Fundador y Director General
>
>     *Todo lo que no podemos dar nos posee... Andre Gide
>     *
>


--=20
Mi Office genera: Seguridad, Confianza y Ahorro


J. Eduardo Moreno
TOKONHU de M=E9xico
044 55 2748 4840

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

--------------000501030201070605080206
Content-Type: text/x-vcard; charset=utf-8;
 name="emoreno.vcf"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
 filename="emoreno.vcf"

begin:vcard
fn:J. Eduardo Moreno S.
n:Moreno S.;J. Eduardo
org;quoted-printable:TOKONHU de M=C3=A9xico
adr;quoted-printable;quoted-printable:Col. guadalupe Insurgentes, Del. Gustavo A. Madero;;Claudio Castro #124;M=C3=A9xico;D.F.;07870;M=C3=A9xico
email;internet:[email protected]
title:Consultor
tel;work:5517 5638
tel;cell:04455 2748 4840
x-mozilla-html:FALSE
url:http://www.tokonhu.com
version:2.1
end:vcard


--------------000501030201070605080206--