Macro que elimina las celdas que le preceden

Tengo poca experiencia en las macros por lo cual necesito la ayuda de algún experto con mi problema, tengo una macro que me elimina los datos repetidos de una fila pero quiero que me elimine también los datos que tiene en las siguientes tres columnas, lo que quiero decir es que tengo unos datos repetidos en la columna A y las columnas b y C tienen datos que corresponden a los datos repetidos quiero que me elimine los repetidos de A y sus datos que le corresponden de B Y C.

Les agradeceré mucho esta ayuda

1 Respuesta

Respuesta
1
Te digo algo para todos los usuarios que pudieran leer esta consulta: cuando tienen una rutina debieran dejarla escrita aquí para que podamos ajustarla directamente y no desarrollar una distinta.
Bien, seguramente tu rutina tiene una línea que dice: Activecell. delete y debiera decir:
Activecell.EntireRow.Delete   (esto te borrará la fila completa)
Cualquier diferencia volveme a escribir.
Saludos
Elsa
http://es.geocities.com/lacibelesdepunilla/manual_VBA
Antes que nada te agradezco la atención mira la linea que tengo es Selection.EntireRow. Delete la cual solo me borra la celda donde se encuntran los datos repetidos lo que necesito es que me borre la celda de 3 columnas (A, B y C),no toda la fila ya que en las de mas columnas hay informacion, e decir que meborre las repetidas de la columna A y los datos que le corresponden de B y C, el codigo que tengo es el siguiente:
ActiveSheet.Range("a2").Activate
valor = ActiveCell.Value
ActiveCell.Offset(2, 0).Range("A2").Select
While ActiveCell.Value <> ""
If ActiveCell.Value = valor Then
Selection.EntireRow.Delete
Else
valor = ActiveCell.Value
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Wend
End Sub
De antemano gracias por la ayuda
Lo que hace tu rutina es eliminar toda la fila de la celda duplicada. (EntireRow. Delete).
Si lo que necesitas es que solo te borre las celdas de 3 col (el resto de la fila no), entonces reemplazá la línea:
Selection.EntireRow.Delete
por estas otras 2:
Range(Selection, Selection.offset(0,2).Select
Selection.Delete
Saludos y confirmame si esto resuelve tu consulta.
Elsa
http://galeon.com/aplicaexcel
http://es.geocities.com/lacibelesdepunilla
Nuevamente muchas gracias por la ayuda, si funciona pero hay un problema si el registro se repite más de dos veces aumenta el numero de columnas que elimna por ejemplo si el registro se encuentra 4 veces en vez de eliminarme 3 columnas me elimna 6. es como si se sumara 2 columnas más el numero de veces que se encuentra el registro
Estoy tratando de solucionar esto con un contador y restandolo. Pero no me elimina todas las repetidas.
Ojala me puedas ayudar te agradezco de antemano tu ayuda.
Aquí te dejo la rutina completa:
Sub Macro4()
ActiveSheet.Range("a2").Activate
valor = ActiveCell.Value
ActiveCell.Offset(2, 0).Range("A2").Select
While ActiveCell.Value <> ""
If ActiveCell.Value = valor Then
Range(Selection, Selection.Offset(0, 2)).Select
Selection.Delete
'se vuelve a posicionar en col A
Cells(Selection.Row, 1).Select
Else
valor = ActiveCell.Value
ActiveCell.Offset(1, 0).Range("A1").Select
End If
Wend
End Sub
Saludos y confirmame si esto resuelve tu consulta.
Elsa
http://galeon.com/aplicaexcel
http://es.geocities.com/lacibelesdepunilla

Añade tu respuesta

Haz clic para o
El autor de la pregunta ya no la sigue por lo que es posible que no reciba tu respuesta.

Más respuestas relacionadas

Macro búsqueda en todo el libro, varias hojas

Quisiera de favor que me ayudaran, necesito una macro que al hacer click en commandbutton1 que se encuentra en la hoja1, haga una búsqueda del valor de un textbox1 que también está en hoja1, que haga la búsqueda en todo el libro es decir hoja por...
1 respuesta

Macro para comparar celdas y eliminar duplicados

En una hoja de excel tengo en la columna A, comenzando desde A2, 2 celdas con un mismo número (por ejemplo 00008). Los números de las celdas de la columna están ordenados en forma ascendente (del 00001 al 05000). Necesito una macro que compare 2...
3 respuestas

Macro para eliminar datos repetidos que funcione dentro de una celda

Http://www.todoexpertos.com/categorias/tecnologia-e-internet/software-y-aplicaciones/microsoft-excel/respuestas/1999704/elimina-valores-duplicados Como puedo hacer para que esta macro funcione dentro de una celda Ej. En la celda tengo duplicado FCE...
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

¿Cómo extraigo los datos de una tabla dinámica?

Tengo tres hojas de excel. En la primera tengo los datos ordenados de manera que puedo crear una tabla dinámica de los mismos en la segunda hoja y la tercera hoja quería que fuera para "copiar y pegar" los datos de la tabla dinámica. El problema...
1 respuesta

Macro para buscar valor "#N/A" en una columna

Me podrían ayudar con esta macro, Tengo una macro que me genera un reporte de inventario en un archivo excel, el archivo tiene códigos y formulas para la descripción de cada código, Ejemplo. Código descripción 001 zanahorias. 002 cebollas. 003...
1 respuesta