Jump to content

BUSCAR CODIGO DE TRABAJADOR


SALAVERRINO

Recommended Posts

Buenas tardes a los miembros de este prestigioso foro, en esta oportunidad solicito tu ayuda para complementar esta macro que al presionar el Botón “Busca Código”, ingreso el 3022 a buscar, que será desde la columna A2 hasta A5000, y donde se ubique el código buscado resalte la columna E, donde esta resalto el código buscado en la columna A, para así poder realizar los cambios que se requiera (y si no fuese mucho pedir completar la macro con un auto-filtro, porque estos datos suelen a llegar a mas 1000 trabajadores.

Y por último luego de realizar los cambios en las dichas columnas, se presionará el botón “LIMPIA SELECCIÓN”, deberá borrar el color resaltado del código buscado, tanto de la columna A como la E (y si la macro tuviera el auto-filtro también deberá ser borrado y volver a su estado normal). Adjunto archivo con su macro.

Desde ya agradezco su gentil colaboración.

SORT 2017.rar

Link to post
Share on other sites

Hola amigo johnmpl, la macro quedo excelente, y era lo que necesitaba para dicha búsqueda, en cuanto a color que se aprecia, es porque tengo una macro que borra los datos a excepción de los que están pintado de color, porque son fijos (hay formulas) y no deben ser borrados, salvo que hubiera otra manera, que con una macro se elimine los datos que realmente se requiere y dejar las columnas que sean fijos (no borrados).

Link to post
Share on other sites

Hola amigo johnmpl, como indicas en tu mensaje, no borra los datos seleccionados con la macro que haz adaptados, pero en la macro que tengo BORRAR DATOS, ahí si tengo que tenerlo resaltado para evitar que me borre los datos de la columna B, C y G, salvo amigo, que me puedas ayudar en mejor esa macro que tengo. Espero comentario si podrías adaptarlo.

Link to post
Share on other sites

Amigo johnmpl, haber quizás no me explique muy bien, si te das cuenta en las columnas B2, C2 y G2, como detallo a continuación podrás ver que hay formulas.

Columna B2: SI.ERROR(BUSCARV(A2;'D:\AGENCIAS MARITIMAS\COSMOS\AÑO 2017\SENANA 12 DEL 25 AL 27 DE MARZO\[BASES DE DATOS.xlsm]Hoja1'!$B$2:$U$4514;9;FALSO);"")

Columna C2: SI.ERROR(SI(A2="";"";BUSCARV(A2;'D:\AGENCIAS MARITIMAS\COSMOS\AÑO 2017\SENANA 12 DEL 25 AL 27 DE MARZO\[BASES DE DATOS.xlsm]Hoja1'!$B$2:$U$4514;2;FALSO));" --- NO EXISTE TRABAJADOR --- ")

Columna G2: SI.ERROR(BUSCARV(F2;TABLAS!$A$2:$B$4;2;FALSO);"")

Ahora si estas columnas le quitas el color PLOMO que estas resaltadas dichas columnas, al presionar el botón BORRAR DATOS, te darás cuentas que estas formulas son borradas.

Espero comentario amigo.

 

Link to post
Share on other sites

Claro que si amigo johnmpl, las macro que me haz enviado esta OK, ahí no hay problema y como indicas no borra ninguna formula, por ese lado no tengo inconveniente, como te comentaba, solo tengo ese problema que al BORRAR DATOS, no pueda mantener las formulas, como las que si están resaltadas de color plomo.

Bueno espero que con vuestra ayuda pueda mejorar esa macro de BORRAR DATOS, caso contrario daría como TEMA SOLUCIONADO.

Gracias.

Link to post
Share on other sites

@SALAVERRINO... quizá no me he hecho entender.  Prueba la macro BORRA2 que está en el adjunto que te mandé la primera vez, la cual está vinculada al botón BORRAR DATOS.  Puedes probarla inclusive borrando los colores grises, y verás que funciona correctamente (no necesitas el color GRIS de fondo para mantener las fórmulas).  Es más, verifica que modifiqué las 4 macros de los botones. ¡Bendiciones!

Link to post
Share on other sites

Amigo johnmpl, las disculpas de caso, no me había percatado de la macro BORRA2, la cual le habías hecho ya modificaciones, con la instrucción:

On Error Resume Next
    Range("A1").CurrentRegion.Offset(1).SpecialCells(xlCellTypeConstants).ClearContents
    On Error GoTo 0

Bueno, luego de añadirme un golpesito en la cabeza, ya daría este TEMA SOLUCIONADO.

Gracias.

Link to post
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.


×
×
  • Create New...

Important Information

Privacy Policy