Página 1 de 1

[RESUELTO] Buscar todos los caracteres y pintar

NotaPublicado: Jue Dic 20, 2018 1:35 pm
por physic
Saludos ,

sigue el archivo adjunto de LibreOffice y el archivo de Excel .

en el archivo excel tiene una macro de vba que busca en la columna "A" de la hoja de cálculo 1 todos los caracteres que se enumeran en la columna "B" de la hoja de cálculo 2 .

Si se encuentra en la columna "A" de la hoja de cálculo 1 los caracteres que están en la columna "B" de la hoja de cálculo 2, entonces pinta de color rojo .

es necesario convertir la macro vba de excel, para funcionar en LibreOffice, la macro debe ejecutar la misma operación en LibreOffice .


abrazos amigos .

Re: Buscar todos los caracteres y pintar

NotaPublicado: Vie Dic 21, 2018 12:28 am
por mriosv
Puedes hacerlo con formato condicional sin necesidad de macros

Ejemplo añadiendo formato condicional.
buscar caracteres.ods
(16.38 KiB) 106 veces


Ten en cuenta que dependiendo de la versión de LibreOffice, si lo guardas en formato excel tendrás que modificar la fórmula eliminando el punto delante de los asteriscos, pues los ficheros excel se abririan por defecto utilizando comodines en lugar de expresiones regulares.
https://wiki.documentfoundation.org/Rel ... th_ODF_1.2

Re: Buscar todos los caracteres y pintar

NotaPublicado: Vie Dic 21, 2018 4:54 am
por physic
saludos sr. mriosv ,

                gracias por la ayuda .

                su solución inicial es buena, resuelve la situación para encontrar los caracteres de la hoja de cálculo 2 .

                pero estoy desarrollando un proyecto de automatización, así que tengo que resolver este problema con la macro .

                sin embargo, su idea es buena, puede ayudar a otros con un problema parecido .


abrazos amigo .

Re: Buscar todos los caracteres y pintar

NotaPublicado: Mié Dic 26, 2018 7:58 pm
por fornelasa
Mira la misma macro VBA con unas ligeras correcciones y creo funciona.
Saludos.

Re: Buscar todos los caracteres y pintar

NotaPublicado: Mié Dic 26, 2018 8:27 pm
por physic
[Resuelto]

              muchas gracias por su ayuda sr. fornelasa , funciona perfecto . :bravo:

              buenas fiestas . :super:


abrazo amigo .

Re: [Resuelto] Buscar todos los caracteres y pintar

NotaPublicado: Jue Dic 27, 2018 1:34 am
por fornelasa
Esta sería la versión OooBasic de Calc
Código: Seleccionar todo   Expandir vistaContraer vista
Sub Codigolocalizar()
            doc = ThisComponent
           hoja = doc.Sheets.getByName("Planilha2")     
         cursor = hoja.createCursorByRange(hoja.getCellRangeByName("B1"))           
         cursor.collapseToCurrentRegion
          hoja1 = doc.Sheets.getByName("Planilha1")     
        cursor1 = hoja1.createCursorByRange(hoja1.getCellRangeByName("A1"))           
        cursor1.collapseToCurrentRegion   
     For vLinha = 1 To cursor1.getRangeAddress.EndRow
        vCodigo = hoja.getCellByPosition(1, vLinha).String
     If vCodigo = "" Then                 
        Exit Sub
     End If                     
    For vLinha2 = 1 To cursor1.getRangeAddress.EndRow
        If hoja1.getCellByPosition(0, vLinha2).String = "" Then Exit For
        If hoja1.getCellByPosition(0, vLinha2).String Like "*" & vCodigo & "*" Then
           hoja1.getCellByPosition(0, vLinha2).CharColor  = 16711680
           hoja1.getCellByPosition(0, vLinha2).CharWeight = com.sun.star.awt.FontWeight.BOLD
        End If
     Next
     Next     
End Sub

Re: [Resuelto] Buscar todos los caracteres y pintar

NotaPublicado: Jue Dic 27, 2018 3:08 am
por physic
se quedó perfecto ! :bravo: :bravo: :bravo:

muchas gracias . :super: