Página: 1
[2] 3
4
Siguiente
Macros y herramientas para versión Excel 2007 en adelante.
Nota: clic en las imágenes para ampliarlas
6- Eliminar
duplicados en columna o impedir su registro.
Veremos a continuación 2
situaciones:
a - impedir el
registro de datos duplicados en alguna columna
b - eliminar
duplicados en una o más columnas
Para el pto 'a'
tenemos opciones con fórmulas o con macros. En el libro de descarga se muestran
ejemplos utilizando ambos métodos.
(descargar)
Para el pto 'b'
contamos con la herramienta: Quitar duplicados del menú Datos.
Pasos a seguir:
seleccionar una celda de la tabla y activar el menú Datos, Quitar duplicados.
En la ventana que se
presenta dejar tildadas las columnas que deben evaluarse. En la imagen adjunta
se trata de eliminar registros que coincidan tanto en Nro.Doc como en Usuario.
Aceptar y a continuación
se nos mostrará un mensaje indicando la cantidad de registros que se eliminaron.
Nota: esta herramienta permite 'Deshacer' y recuperar los
registros eliminados.
Si esta misma acción la
quisiéramos realizar desde una macro, este sería el código siguiendo el
ejemplo de la imagen:
Sub
QuitaDuplicados()
'x Elsamatilde
'quita duplicados según col A y C
Range("A2").Select
ActiveSheet.Range("$A$1:$C$" & Range("A" & Rows.Count).End(xlUp).Row).RemoveDuplicates
Columns:=Array(1, 3), Header:=xlYes
End Sub
7- Buscar un dato en
una tabla - Realizar alguna acción con el o los datos encontrados.
Esta es una consulta
recurrente en los foros. Generalmente se recorre una columna hasta encontrar el
dato buscado. Pero eso llevará mucho tiempo innecesariamente.
En el libro de descarga
se desarrollan 3 casos:
a - buscar un dato y
copiar el registro encontrado en otro destino.
b - buscar todas las
repeticiones de un dato y realizar alguna acción con TODOS ellos.
b1- copiar los
registros encontrados en otro destino.
b2- marcar de
color las celdas encontradas.
b3- agregar
texto en otra columna.
c- eliminar todos
los registros encontrados (uso de filtro)
Para el primer caso
(a) utilizaremos la instrucción:
SET variable =
Shets().Range().Find(dato)
Para los ejemplos del segundo
caso (b),
combinaremos esta función con un bucle DO...LOOP WHILE y la función FINDNEXT.
Para el tercer caso (c)
se utilizó un filtro previo.
(descargar)
8- Comparar 2
columnas - Realizar alguna acción con repetidos o faltantes.
Otra consulta recurrente
y que presenta muchas variantes: columnas en la misma hoja o no y qué hacer con
los datos repetidos.
a - En el ejemplo
para descargar, se desarrollaron estas opciones:
- Eliminar de 1
tabla registros que se encuentran en otra hoja.
- Trabajando con
tablas en la misma hoja.
- Trabajando con
tablas en distintos libros.
- Dejar los
duplicados y eliminar el resto.
(descargar)
b - En la demo de la
Guía Temática N° 1 se encuentra desarrollado el
siguiente caso y sus tips:
Comparar 2
tablas. Colorear en la 1º lista los registros que se encuentran en las 2
tablas.
Tips:
Buscar coincidencias
en 2 columnas de cada tabla.
Colorear duplicados
en las 2 tablas.
Colorear fuente o
trama de los registros duplicados.
Formatear con
negrita o cursiva los registros duplicados.
Página: 1
[2] 3
4 Siguiente
