valores repetidos

Alguien puede ayudarme????

wrote in message news:...

HOLA DE NUEVO
Ayer me solucionasteis una duda grande que tenia de una manera
increible, muchas gracias.
Solo me queda solucionar un problema, tengo que mostrar las compras del
cliente situados entre dos fechas escritas en dos celdas separadas.
Use la macro que me indico Kl para mostrar las compras de un cliente(
que funciona perfectamente):

"""""""""""""""""""""""""""""""""""""
Sub ExtraerDatos()
Dim Contador As Integer
Dim c As Range
Dim miBaseDeDatos As Range
Dim miNumeroPedido As Range
Dim miExtracto As Range


'Establece el rango de la base de datos
'y excluye los encabezados.
With Sheets("diario").UsedRange
Set miBaseDeDatos = .Resize(.Rows.Count - 1, _
.Columns.Count).Offset(1, 0)
End With


'Establece en la hoja FACTURA la celda
'donde se pondra el numero de pedido a evaluar
'y la celda a partir de la cual se intriducirian
'los datos extraidos.
With Sheets("FACTURA")
Set miNumeroPedido = .Range("c3")
Set miExtracto = .Range("A13")
End With


'Borra el extracto anterior. Ojo: hay q asegurar
'q la ultima fila, ni la ultima columna del listado
'generado toquen otras celdas con datos q puedan
'haber en la factura. O sea q siempre haya una fila
'y una columna entremedio. Si no, se borraria el
'contenido de todas las celdas adyacentes.
miExtracto.CurrentRegion.ClearContents


For Each c In miBaseDeDatos.Columns(1).Cells
If c = miNumeroPedido Then
For n = 0 To miBaseDeDatos.Columns.Count - 1
miExtracto.Offset(Contador, n) = c.Offset(0, n)
Next n
Contador = Contador + 1
End If
Next c
End Sub
""""""""""""""""""""""""""""""""""""

Habria alguna manera de añadir en esta macro lo que necesito?
De nuevo muchas gracias!!

Alguien me puede ayudar?

Hola Raul,

Prueba el siguiente codigo. He asumido q tienes las fechas de factura en la
segunda columna de la hoja "diario" y en la hoja "Factura" introduces como
criterio de busqueda la Fecha de Inicio y la Fecha de Fin en las celdas [D3]
y [E3] respectivamente.

Saludos,
KL

"""""""""""""""""""""""""""""""""""""
Sub ExtraerDatos()
Dim Contador As Integer
Dim c As Range
Dim miBaseDeDatos As Range
Dim miNumeroPedido As Range
Dim miExtracto As Range
Dim miFechaInicio As Range
Dim miFechaFin As Range

With Sheets("diario").UsedRange
Set miBaseDeDatos = .Resize(.Rows.Count - 1, _
.Columns.Count).Offset(1, 0)
End With

With Sheets("FACTURA")
Set miNumeroPedido = .Range("c3")
Set miFechaInicio = .Range("d3")
Set miFechaFin = .Range("e3")
Set miExtracto = .Range("A13")
End With

miExtracto.CurrentRegion.ClearContents

For Each c In miBaseDeDatos.Columns(1).Cells
If c = miNumeroPedido And c.Offset(0, 1) >= miFechaInicio _
And c.Offset(0, 1) <= miFechaFin Then
For n = 0 To miBaseDeDatos.Columns.Count - 1
miExtracto.Offset(Contador, n) = c.Offset(0, n)
Next n
Contador = Contador + 1
End If
Next c
End Sub
""""""""""""""""""""""""""""""""""""
wrote in message
news:
HOLA DE NUEVO
Ayer me solucionasteis una duda grande que tenia de una manera
increible, muchas gracias.
Solo me queda solucionar un problema, tengo que mostrar las compras del
cliente situados entre dos fechas escritas en dos celdas separadas.
Use la macro que me indico Kl para mostrar las compras de un cliente(
que funciona perfectamente):

"""""""""""""""""""""""""""""""""""""
Sub ExtraerDatos()
Dim Contador As Integer
Dim c As Range
Dim miBaseDeDatos As Range
Dim miNumeroPedido As Range
Dim miExtracto As Range


'Establece el rango de la base de datos
'y excluye los encabezados.
With Sheets("diario").UsedRange
Set miBaseDeDatos = .Resize(.Rows.Count - 1, _
.Columns.Count).Offset(1, 0)
End With


'Establece en la hoja FACTURA la celda
'donde se pondra el numero de pedido a evaluar
'y la celda a partir de la cual se intriducirian
'los datos extraidos.
With Sheets("FACTURA")
Set miNumeroPedido = .Range("c3")
Set miExtracto = .Range("A13")
End With


'Borra el extracto anterior. Ojo: hay q asegurar
'q la ultima fila, ni la ultima columna del listado
'generado toquen otras celdas con datos q puedan
'haber en la factura. O sea q siempre haya una fila
'y una columna entremedio. Si no, se borraria el
'contenido de todas las celdas adyacentes.
miExtracto.CurrentRegion.ClearContents


For Each c In miBaseDeDatos.Columns(1).Cells
If c = miNumeroPedido Then
For n = 0 To miBaseDeDatos.Columns.Count - 1
miExtracto.Offset(Contador, n) = c.Offset(0, n)
Next n
Contador = Contador + 1
End If
Next c
End Sub
""""""""""""""""""""""""""""""""""""

Habria alguna manera de añadir en esta macro lo que necesito?
De nuevo muchas gracias!!


raul abusada wrote:

(raul abusada) wrote in message

news:...

> Primeramente, hola y gracias de antemano.
>
> No encuentro solucion a un problema con una serie de listas.
>
> Tengo dos hojas, una llamada diario de esta manera
>
> cod. cliente / Cod compra / descripcion / nombre / cantidad
> 1 1 wsw dsf 34
> 4 2 dsfas asdfa 434
> 1 3 dsadfas asdfsaf 231
> 3 4 dfd ddfd 2323
>
> y otra hoja llamada factura, en la que dependiendo el numero de
> cliente que pongamos , con la funcion buscarV, salgan los datos de

la

> compra.
> El problema llega cuando el mismo cliente realiza dos compras, que
> solo me muestra 1. como podria hacer para que me mostrara sus

compras

> realizadas?
> MUchas gracias


Estupendo KL, funciono a la perfeccion con una de tus referencias,
muchisimas gracias!!!!!!!!!!!!!!!!

no te impacientes, tio - que ya viene la respuesta.

Saludos,
KL

"raul abusada" wrote in message
news:

Alguien puede ayudarme????

"KL" wrote in message news:...

no te impacientes, tio - que ya viene la respuesta.

Saludos,
KL

"raul abusada" wrote in message
news:
> Alguien puede ayudarme????

Lo Siento!!!!, es que no me sale y no se donde cogerlo, gracias otra vez!!