Jump to content

Archived

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

SALAVERRINO

BUSCAR CODIGO DE TRABAJADOR

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

Share this post


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).

Share this post


Link to post
Share on other sites
Hace 5 horas, SALAVERRINO dijo:

salvo que hubiera otra manera

Si observas el ejemplo que te mandé, puedes eliminar los colores.  La macro detecta en el rango las celdas que son constantes (que no tienen fórmulas), y las elimina.  ¡Bendiciones!

Share this post


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.

Share this post


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.

 

Share this post


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.

Share this post


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!

Share this post


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.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy