Excel - Como Extraer nombres de una lista.

 
Vista:

Como Extraer nombres de una lista.

Publicado por Cefer (1 intervención) el 12/06/2007 17:22:17
Hola Foro,

Dispongo de una lista de nombres en: Range("N2:N1000") de los cuales quiero extraer una nueva lista sin duplicados en Range("AA" & i).

He probado con dos bucles for, anidados, pero no consigo descartar todos los duplicados. Tambien he utilizado la opcion del filtro avanzado, pero no me sirve. (No puedo nombrar rangos en la hoja).

Function CompCol()

Dim w, t As Integer
Dim ObjVal As Variant

t = Range("T2").Value 'Numero de lineas con datos en Rango N
w = Range("W5").Value 'Numero de lineas con datos en rango AA

For r1 = 2 To t
ObjVal = Range("N" & r1).Value

For r2 = 2 To w
If ObjVal = Range("AA" & r2).Value Then
Exit For
Else
Range("AA" & r2).Value = Range("N" & r1).Value

End If
Next r2
Next r1

End Function

agradecere cualquier ayuda.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Abraham Valencia
Val: 295
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

RE:Como Extraer nombres de una lista.

Publicado por Abraham Valencia (2418 intervenciones) el 12/06/2007 17:31:02
Una funcion (Function) para eso¿?¿?¿? Deberia haber echo una rutina (Sub), pero en realidad con filtros avanzados de registro unico lo podias hacer, o con una tabla dinamica tambien, en todo caso, busca por aca:

http://www.mailxmail.com/curso/informatica/macros/capitulo6.htm

Abraham
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar