Foro Excel

Hola a todos!
Este es un nuevo reto con el que me he topado, nose si a alguno le ha pasado.
Se tiene una hoja de excel con 8 columnas y 3000 filas, las columnas son : serie,nombre,ciudad,dpto,provincia,club,encargado,fecha_in.

Se desea un macro que me permita ingresar la serie y lo busque para que luego me muestre sus otros datos en una lista, se sabe que pueden haber series iguales pero con datos diferentes.Y si es posible que se cuente las repeticiones.

Si logro realizarlo, lo subiré para que asi otros puedan solucionar este problemilla.

Hola!
Bueno esto tengo hasta ahora:

Sub Copia_Pega()
dat = InputBox("Escribe la Serie Numerica", "PREGUNTA")
Range("A:A").Select
On Error Resume Next
Selection.Find(What:=dat, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
Selection.Copy
Sheets("Hoja2").Select
ActiveCell.PasteSpecial
ActiveCell.Offset(1, 0).Select
Sheets("Hoja1").Select
End Sub


Y me funciona pero con las series que se repiten no
Se desea que cuando se ingrese una serie me bote tantas filas con datos como repeticiones tenga la serie( claro cada uno con sus respectivos datos)...Alguien me ayude

Me parece que con un AutoFiltro o un Filtro Avanzado obtendrás resultados mucho más satisfactorios y expeditos.

Cacho R escribió:Me parece que con un AutoFiltro o un Filtro Avanzado obtendrás resultados mucho más satisfactorios y expeditos.

Hola
Uhmm como lo adicionaria a lo que ya tengo???

Lo que tienes -realmente- no te sirve.

Te sugiero que:
a) Enciendas la grabadora de macros;
b) Aplica un Autofiltro;
c) Copia y pega lo filtrado en la otra hoja;
d) Vuelve a la hoja original y quita el filtro
e) Apaga la grabadora

El código así obtenido será la base que utilizarás para depurar dos o tres "cositas" mínimas, y terminarás obteniendo lo que necesitas.

Saludos, Cacho R.