UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo


No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1RESUELTO Datos Repetidos el 24/01/17, 02:05 pm

edwinjo


Buenos Días a todos,
Gracias por su fina ayuda, y gentileza; solicito les de favor de su ayuda, con el siguiente macro que utilizo para eliminar datos repetidos, el cual me sirve muchísimo, pero como a veces tengo que utilizar la columna a, b, etc. y debo estarlo cambiando manualmente, y ya me ha sucedido que cambio en una parte y otra no o le borro algo al código, podrían indicarme como hacerlo con un imputbox, de tal forma que me pida la celda de rango ya sea que ponga la a, b, c, etc. se cambie en el código, que se elijo A2, cambie a A2, A:A y a A1, según el código

Sub repetidos()
Application.ScreenUpdating = False
Range("B2").Select
Do While Not IsEmpty(ActiveCell)
x = WorksheetFunction.CountIf(Range("B:B"), ActiveCell)
If x > 1 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
 Loop
 Range("B1").Select
Application.ScreenUpdating = True
End Sub

2RESUELTO Vuestra Ayuda el 25/01/17, 11:35 am

edwinjo


Buenos días amigos,
Solicitándoles su ayuda por favor con este código, Gracias de antemano

3RESUELTO Consultandoles el 26/01/17, 03:46 pm

edwinjo


Buenas Tardes, consultándoles, si han podido ver mi consulta sobre datos repetidos, en los que quiero ingresar los rangos con imputbox, también tengo el problema que es lento, mucho les agradecería su ayuda con esto, anexo el archivo.

Gracias
Archivos
DATOS REPETIDOS2.zip
No tienes los permisos para descargar los archivos.
(39 KB)

4RESUELTO Re: Datos Repetidos el 27/01/17, 11:07 pm

Igtelo

avatar
Hola Edwin.

No necesitas macro, utiliza la función de "quitar duplicados" y listo, si quieres la macro echa a andar el grabador de macros y luego la ajustas.

Para no alargar el post, te doy el:
Código:
Sub Macro()
Dim rango As Range
Set rango = Application.InputBox("Dame el rango", Type:=8)
rango.RemoveDuplicates 1, xlNo  <== Si tienes títulos cambia a xlYes
Set rango = Nothing
End Sub


Saludos
Ignacio Téllez

5RESUELTO Pone en rojo 4 linea el 28/01/17, 01:57 pm

edwinjo


Buenos Días Igtelo,
Muchas gracias, por tu respuesta, fíjate que me da error en la tercera linea
rango.RemoveDuplicates 1, xlNo <== Si tienes títulos cambia a xlYese
me dice:error de compilación se esperaba:expresión

6RESUELTO Re: Datos Repetidos el 28/01/17, 02:09 pm

Igtelo

avatar
Edwin:

Pues quítale el comentario...
Ya es tiempo de que leas y estudies los aportes que he hecho para el manejo de macros...

Saludos
Ignacio Téllez

7RESUELTO Buenisimo el 28/01/17, 02:16 pm

edwinjo


Gracias Igtelo ,
Tomare muy en cuenta tu sugerencia, funciona excelente

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.