............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Macro Para listar valores repetidos

Ver el tema anterior Ver el tema siguiente Ir abajo

Macro Para listar valores repetidos

Mensaje por kruciare el Vie Abr 06, 2012 11:52 pm

Hola estimados amigos, otra vez necesito de su ayuda con algo que me tiene un poco complicado encontre en internet una macro muy buena que crea un listado de valores unicos de otro listado seleccionado con valores repetidos la macro funsiona muy bien, pero el problema fue cuando la guarde como complemento de excel para asi pasarle el archivo a otros conpañeros y no funsionono.
le dejo el codigo para que me puedan ayudar.
desde ya muchas gracias

Sub ListaUnica()
Dim rListPaste As Range
Dim iReply As Integer

On Error Resume Next

Set rListPaste = Application.InputBox _
(Prompt:="Por favor selecciones la celda " _
& "donde desea pegar los datos", Type:=8)

If rListPaste Is Nothing Then
iReply = MsgBox("No hay Rangos seleccionados," _
& " terminado", vbYesNo + vbQuestion)
If iReply = vbYes Then Exit Sub
End If
'Especifico lugar en el que quiero que aparezca la Lista
'o BD Filtrada ej Hoja1.Rango
Fila = Cells(65536, 1).End(xlUp).Row
Col = Cells(1, 256).End(xlToLeft).Column
Range(Cells(1, 1), Cells(Fila, Col)).AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=rListPaste.Cells(1, 1), _
Unique:=True
End Sub
avatar
kruciare

Masculino Cantidad de envíos : 18
Edad : 36
Ciudad - Pais : chile
Version de Excel : 2010
Fecha de inscripción : 13/01/2012

Volver arriba Ir abajo

Re: Macro Para listar valores repetidos

Mensaje por kruciare el Lun Abr 09, 2012 10:54 pm

Favor la ayuda de alguien con esto de verdad he tratado de hacerla funsionar guardandola como libro de macros personal y funsiona un rato luego cierro el excel y al nuevamente abrir acualquier libro ya no funsiona solo llega hasta la parte seleccione un lugar donde desea pegar los datos y no los muestra.
avatar
kruciare

Masculino Cantidad de envíos : 18
Edad : 36
Ciudad - Pais : chile
Version de Excel : 2010
Fecha de inscripción : 13/01/2012

Volver arriba Ir abajo

Re: Macro Para listar valores repetidos

Mensaje por moises melgar el Miér Abr 11, 2012 1:11 pm

Adjunta un libro para ver sobre que se esta corriendo la macro
avatar
moises melgar
Jr_Moderator

Masculino Cantidad de envíos : 563
Edad : 29
Ciudad - Pais : Coatzacoalcos - Mexico
Version de Excel : 2007 - 2010
Fecha de inscripción : 25/05/2010

Volver arriba Ir abajo

Re: Macro Para listar valores repetidos

Mensaje por Jose BN el Miér Abr 11, 2012 8:17 pm

Hola! Kruciare este codigo me lo compartieron hace un tiempo, sirve para eliminar duplicados, solo debes ajustarlo a tu necesidad.

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


Para que funciones nada más debes copiarlo al modulo de tu libro o bien grabas una macro y sustituirla por el codigo.

Espero sea de tu ayuda

Saludes,
avatar
Jose BN

Masculino Cantidad de envíos : 57
Edad : 37
Ciudad - Pais : Costa Rica-San Jose
Version de Excel : 2003, Vista, 2007
Fecha de inscripción : 16/05/2011

Volver arriba Ir abajo

Macro listar unicos funciona con office 2010

Mensaje por kruciare el Dom Mayo 27, 2012 3:48 pm

Esta Me funciono mejor para lo que necesitaba Gracias igual por la ayuda ofrecida, espero le sirva a otros tambien
Código:
Sub ListarUnicos ()
Dim rListPaste As Range
Dim iReply As Integer

On Error Resume Next

Set rListPaste = Application.InputBox(prompt:="Por favor seleccione la celda donde desea pegar los datos", Type:=8)

If rListPaste Is Nothing Then
iReply = MsgBox("No hay Rangos seleccionados, terminado", vbYesNo + vbQuestion)
If iReply = vbYes Then Exit Sub
End If

Range(ActiveCell).Select
Selection.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=rListPaste.Cells(1, 1), Unique:=True
End Sub
avatar
kruciare

Masculino Cantidad de envíos : 18
Edad : 36
Ciudad - Pais : chile
Version de Excel : 2010
Fecha de inscripción : 13/01/2012

Volver arriba Ir abajo

Re: Macro Para listar valores repetidos

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


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