jueves, 4 de diciembre de 2008

Macro - Comparación entre columnas

En las lecciones anteriores hemos visto como eliminar elementos repetidos existentes en una misma fila. En este ejemplo realizaremos comparaciones entre diferentes columnas, eliminando de la primera los elementos que existan en la segunda.

En la primera columna están todos los elementos que forman parte de la lista y en la segunda columna se van colocando los elementos que se desean buscar para eliminar de la primera.

A continuación escribiremos la macro completa y después explicaremos que realiza cada una de las líneas. El número que aparece al principio de cada una de las líneas nos servirá como guía en la explicación, no debes copiarlos en el Editor.

1 Sub Repetidos()

2 Range("B1").Select

3 Posicion = 1

4 While ActiveCell.Value <> ""

5 valorcomparacion = ActiveCell.Value

6 Range("a1").Select

7 Salir = "no"

8 While ActiveCell.Value <> "" And Salir = "no"

9 If ActiveCell.Value = valorcomparacion Then

10 respuesta = MsgBox("¿Deseas borrar esta entrada?", 4, "¡¡Encontrado!!")

11 If respuesta = vbYes Then

12 Selection.Delete Shift:=xlUp

13 End If

14 Salir = "si"

15 Else

16 ActiveCell.Offset(1, 0).Range("A1").Select

17 End If

18 Wend

19 Posicion = Posicion + 1

20 Range("b1").Select

21 ActiveCell.Offset(Posicion - 1, 0).Range("a1").Select

22 Wend

23 End Sub

Antes de realizar la explicación tenemos que dejar muy claro que la columna A, será donde tenemos todos los datos de nuestra lista y la columna B, los datos que deseamos buscar y eliminar de la primera columna.

Elementos repetidos en lista con registro

En esta lección seguiremos con la creación de macros que nos servirán para eliminar elementos repetidos de una lista.

Eliminar elementos repetidos en una lista y realizar un registro: en la primera macro que hemos mostrado en esta página eliminamos todos los elementos que aparecen repetidos dentro de una lista quedando uno solo de todos los elementos repetidos. Según para qué realizásemos este proceso nos podría interesar llevar un control de la cantidad de elementos que estaban repetidos, por esto sería conveniente crear en una hoja nueva, un registro de cual es el elemento repetido y el número de veces que aparecía dentro de la lista.

La macro siguiente necesita que los elementos estén ordenados en una primera hoja y que la segunda hoja esté vacía, ya que será aquí donde se realizará el registro de los elementos repetidos.

Sub EliminarRepetidosYRegistro()

contador = 1

valor = ActiveCell.Value

ActiveCell.Offset(1, 0).Range("A1").Select

While ActiveCell.Value <> ""

If ActiveCell.Value = valor Then

ActiveSheet.Next.Select

If ActiveCell.Value <> valor Then

ActiveCell.Offset(1, 0).Range("a1").Select

ActiveCell.Value = valor

End If

ActiveSheet.Previous.Select

Selection.Delete Shift:=xlUp

contador = contador + 1

Else

If contador <> 1 Then

ActiveSheet.Next.Select

ActiveCell.Offset(0, 1).Range("a1").Select

ActiveCell.Value = contador

ActiveCell.Offset(0, -1).Range("a1").Select

ActiveSheet.Previous.Select

End If

contador = 1

valor = ActiveCell.Value

ActiveCell.Offset(1, 0).Range("A1").Select

End If

Wend

If contador <> 1 Then

ActiveSheet.Next.Select

ActiveCell.Offset(0, 1).Range("a1").Select

ActiveCell.Value = contador

ActiveCell.Offset(0, -1).Range("a1").Select

ActiveSheet.Previous.Select

End If

End Sub