Forums Últimos mensajes - Powered by IBM
 

eliminar filas repetidas

19/07/2006 - 17:53 por isaac | Informe spam
Hola amigos en el siguiente codigo me elimina elementos repetidos,
despues de odenarlos, lo que deseo es que me elimine toda la fila, y no
solo la celda activa como lo hace el codigo actual, se los anexo para
ver si me apoyan en como mejorarlo. gracias

Sub EliminarRepetidos()

contador = 0

valor = 2

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

While ActiveCell.Value <> ""

If ActiveCell.Value = valor Then

Selection.Delete Shift:=xlUp

contador = contador + 1

Else

valor = 2

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

End If

Wend

Respuesta = MsgBox("Se han encontrado " & contador & "
elementos repetidos", 1, "Número de repetidos")

End Sub
 

Leer las respuestas

#1 AnSanVal
19/07/2006 - 18:27 | Informe spam
Prueba modificando la línea: Selection.Delete Shift:=xlUp
y escríbela como: Selection.EntireRow.Delete Shift:=xlUp

Saludos desde Tenerife (España).
********************************
"isaac" escribió en el mensaje
news:
Hola amigos en el siguiente codigo me elimina elementos repetidos,
despues de odenarlos, lo que deseo es que me elimine toda la fila, y no
solo la celda activa como lo hace el codigo actual, se los anexo para
ver si me apoyan en como mejorarlo. gracias

Sub EliminarRepetidos()

contador = 0

valor = 2

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

While ActiveCell.Value <> ""

If ActiveCell.Value = valor Then

Selection.Delete Shift:=xlUp

contador = contador + 1

Else

valor = 2

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

End If

Wend

Respuesta = MsgBox("Se han encontrado " & contador & "
elementos repetidos", 1, "Número de repetidos")

End Sub

Preguntas similares