Eliminar filas repetidas según condición de combobox

Hola amigos, tengo un problema que no e podido solucionar, lo que pasa es que tengo dos hojas en excel

hoja1

a

b

c

hoja2

a

a

b

c

c

eh creado un userform con un combobox y un botón, el combobox carga los datos de hoja1, y lo que quiero es que al darle click al botón, busque ese dato en la hoja2 y si hay mas de 02 iguales, eliminar los repetidos, pero solo el dato que aparece en el combobox. Si hay otros datos repetidos que no este seleccionado en el combobox, dejarlos asi. Espero haber sido claro y espero tener sus ayudas.

1 respuesta

Respuesta
2

Te mando mi solución. Suponemos que tenemos los datos anotados en la columna A de ambas hojas desde A1 hacia abajo. Esta es la macro que necesitas para tu botón del userform.

La macro está construida según el ejemplo mandado.

Private Sub CommandButton1_Click()
valor = ComboBox1.Value
Sheets("hoja2").Select
Range("a1").CurrentRegion.Sort key1:=Range("a1"), order1:=xlAscending, Header:=xlNo, ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("a1").Select
Do While ActiveCell.Value <> ""
fila = ActiveCell.Row
If ActiveCell.Value = valor Then contarsi = Application.WorksheetFunction.CountIf(Sheets("hoja2").Columns(1), valor)
If contarsi > 1 Then
Range(Cells(fila + 1, 1), Cells(fila + contarsi - 1, 1)).EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop

recuerda finalizar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Pregunta para Luis Mondelo: Macro

Me ayudaste con esta macro hace algunos dias. Me surge otra inquietud mas bien necesidad. Podria ser que el valor buscado en este caso C11 no se arroje en J11. Me explico que sólo arroje en J11 los datos que estan a la derecha del valor buscado.....
1 respuesta

No ingresar datos repetidos en una hoja

Tengo un form para ingresar datos en la hoja1 el caso es que requiero que cuando el registro de la columna a1 que es un código se repita me coloque un msgbox("dato ya existe")
2 respuestas

Macro excel eliminar duplicados

Necesitaría crear una macro que me eliminará los duplicados pero de manera que se quedara con aquel que tuviera un valor más elevado. Es decir en la columna A, tengo el nombre personas y en la columna B su edad. Quiero que me ordene la columna A por...
1 respuesta

Comparar valores de columna A, si iguales, concatenar valores de B en C, si no copiar B en C sin con

Tengo un Excel, en la columna A hay valores repetidos desde 2 veces hasta N, y en la columna B hay valores diferentes para cada celda de A, independientemente de sus valores. Lo que tengo que hacer es mientras los valores de A sean iguales, hay que...
1 respuesta

Buscar lista de valores en otra lista

Resulta que tengo una lista de una sola columna cuyos valores tengo que buscar en otra lista mas grande que tengo en otra hoja, esta con dos columnas, la búsqueda es en la segunda columna. Esto necesitaría hacerlo en la tercera hoja de manera que me...
1 respuesta

Cargar datos de hoja a combo sin repetir

Estoy usando Excel 2010 tengo en Hoja1 como 200 nombres desde A1 hacia abajo (columna) la mayoría repetidos y en Hoja 2 un combobox con esta lista almacenada en prop. ListFillRange; pero creo que sería mejor hacer la codificacion en el combo ya que...
1 respuesta

Macro que busque un valor y copie la fila entera

Espero me puedan ayudar, Necesito hacer una macro que me busque un valor en la hoja 1 y copie toda la fila a la hoja 2 sin sobreescribir el ultimo registro, y una vez copiada la fila, la elimine de la hoja 1
1 respuesta

Extraer valores únicos, pegar y contar repeticiones

¡ Busco un código para realizar la siguiente tarea: Tengo una lista de países en una columna (no siempre serán los mismos), en la cual se repiten los nombres. Necesito un código que extraiga de forma única cada nombre que encuentre (país) y cuente el...
2 respuestas

Código para evitar ingresar datos repetidos desde un textbox y un userform

Como hago para cargar ese macro Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Column = 1 Then dato = Target.Value contarsi = Application.WorksheetFunction.CountIf(Columns(1), dato) If contarsi > 1 Then MsgBox "el...
3 respuestas

Buscar dato, copiar rango y pegar traspuesto

Dios les bendiga, primero que todo saludar a todos los expertos que han sido de gran ayuda en mi proceso de formación laboral y agradecer a todoexpertos por crear esta pagina la cual ha sido de mucha ayuda. Tengo un libro compuesto por dos hojas...
1 respuesta