EXTRAER NÚMEROS

hola, Augusto !

si podemos asumir/suponer/... que tu listado de origen esta en la hoja1
y los datos del cliente en la columna B iniciando en la fila 2 (la fila 1 son titulos)
y que necesitas el resultado en la hoja2 a partir de la celda A1 (incluye los titulos)

prueba con una macro +/- como la siguiente (ajusta donde mis supuestos no coincidan con TU realidad)

Sub Pasar_unicos()
With Worksheets("hoja2")
Worksheets("hoja1").Columns("b").AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:=.Range("a1"), Unique:=True
.Range("a1").Sort Key1:=.Range("a1"), Header:=xlYes
End With
End Sub

saludos,
hector.

__ OP __
Tengo una columna con el numero de cliente y están ordenados por fechas de facturacion.
Este numero de cliente se puede repetir muchas veces y en fechas distintas. ejemplo:

Fecha numero Cliente
15/05/2009 4567
15/05/2009 3578
18/05/2009 4567
18/05/2009 4785

Deseo extraer el numero de cliente y colocarlo en otra hoja adicional sin que se repita dicho numero. Ejemplo

3578
4567
4785

Mediante una macro...

Gracias Hector
Tu ayuda es muy valiosa y funciona perfectamente según mis
requerimientos. Muchas gracias!!!

Augusto Unten
Arenart S.R.L.
www.arenart.com

On 14 mayo, 22:08, "Héctor Miguel"
wrote:

hola, Augusto !

si podemos asumir/suponer/... que tu listado de origen esta en la hoja1
y los datos del cliente en la columna B iniciando en la fila 2 (la fila 1 son titulos)
y que necesitas el resultado en la hoja2 a partir de la celda A1 (incluye los titulos)

prueba con una macro +/- como la siguiente (ajusta donde mis supuestos no coincidan con TU realidad)

Sub Pasar_unicos()
  With Worksheets("hoja2")
    Worksheets("hoja1").Columns("b").AdvancedFilter _
    Action:=xlFilterCopy, CopyToRange:=.Range("a1"), Unique:=True
    .Range("a1").Sort Key1:=.Range("a1"), Header:=xlYes
  End With
End Sub

saludos,
hector.

__ OP __
Tengo una columna con el numero de cliente y están ordenados por fechas de facturacion.
Este numero de cliente se puede repetir muchas veces y en fechas distintas. ejemplo:

Fecha                numero Cliente
15/05/2009              4567
15/05/2009              3578
18/05/2009              4567
18/05/2009              4785

Deseo extraer el numero de cliente y colocarlo en otra hoja adicional sin que se repita dicho numero. Ejemplo

3578
4567
4785

Mediante una macro...