eliminar filas repetidas

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

Estimado Amigo gracias funciono muy bien, saludos

desde Morelia Michoacan Mexico

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

hola chicos que pena pero en estos momentos note podemos ayudar pero que
Dios te ayude a encontrar tu respuestas ok.
"isaac" escribió en el mensaje
news:
Estimado Amigo gracias funciono muy bien, saludos

desde Morelia Michoacan Mexico

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

y por si acaso le sirve de algo, este complemento al parecer hace lo que
usted desea

http://members.iinet.net.au/~brettdj/

Gabriel Raigosa
Medellín - Colombia

news://msnews.microsoft.com/
news://msnews.microsoft.com/microso...c.es.excel

"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