Buscar una hora mediante macro

Mi problema es el siguiente,
He creado una macro en donde selecciono una columna con

("[hh]:mm:ss") y busco la primera celda donde la hora

Luego copio las 9999 filas inferiores y las pego en la

cuando me situo en la celda A2.
El código es el siguiente:
Columns("B:B").Select
Selection.Find(What:="0:00:00", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Rows("1:9999").EntireRow.Select
Application.CutCopyMode = False
Selection.Copy
Range("A2").Select
ActiveSheet.Paste
Cuando grabo la macro todo funciona perfectamente, pero

vuelvo a ejecutar me aparece un error en el código en la

Selection.Find(What:="0:00:00", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False).Activate
He probado a buscar un texto en dicha columna (en vez de

"0:00:00" buscar "pepito") y la macro no se cuelga.
No entiendo como cuando creo la macro todo funciona bien

ejecuta entonces se cuelga. Creo q excel no entiende la

¿Cómo puedo solucionar este problema?

Gracias por vuestra ayuda
.

Mi problema es el siguiente,
He creado una macro en donde selecciono una columna con

("[hh]:mm:ss") y busco la primera celda donde la hora

Luego copio las 9999 filas inferiores y las pego en la

cuando me situo en la celda A2.
El código es el siguiente:
Columns("B:B").Select
Selection.Find(What:="0:00:00", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Rows("1:9999").EntireRow.Select
Application.CutCopyMode = False
Selection.Copy
Range("A2").Select
ActiveSheet.Paste
Cuando grabo la macro todo funciona perfectamente, pero

vuelvo a ejecutar me aparece un error en el código en la

Selection.Find(What:="0:00:00", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False).Activate
He probado a buscar un texto en dicha columna (en vez de

"0:00:00" buscar "pepito") y la macro no se cuelga.
No entiendo como cuando creo la macro todo funciona bien

ejecuta entonces se cuelga. Creo q excel no entiende la

¿Cómo puedo solucionar este problema?

Gracias por vuestra ayuda
.

Pon

Selection.Find(What:=0,

en lugar de

Selection.Find(What:="0:00:00",



>Mi problema es el siguiente,
>He creado una macro en donde selecciono una columna con
formato hora
>("[hh]:mm:ss") y busco la primera celda donde la hora
es "00:00:00".
>Luego copio las 9999 filas inferiores y las pego en la
misma hoja
>cuando me situo en la celda A2.
>El c digo es el siguiente:
> Columns("B:B").Select
> Selection.Find(What:="0:00:00", After:=ActiveCell,
>LookIn:=xlFormulas,
> LookAt:=xlWhole, SearchOrder:=xlByRows,
>SearchDirection:=xlNext,
> MatchCase:=False).Activate
> ActiveCell.Rows("1:9999").EntireRow.Select
> Application.CutCopyMode = False
> Selection.Copy
> Range("A2").Select
> ActiveSheet.Paste
>Cuando grabo la macro todo funciona perfectamente, pero
cuando la
>vuelvo a ejecutar me aparece un error en el c digo en la
parte de:
> Selection.Find(What:="0:00:00", After:=ActiveCell,
>LookIn:=xlFormulas,
> LookAt:=xlWhole, SearchOrder:=xlByRows,
>SearchDirection:=xlNext,
> MatchCase:=False).Activate
>He probado a buscar un texto en dicha columna (en vez de
buscar
>"0:00:00" buscar "pepito") y la macro no se cuelga.
>No entiendo como cuando creo la macro todo funciona bien
y cuando la
>ejecuta entonces se cuelga. Creo q excel no entiende la
HORA q busco.
> C mo puedo solucionar este problema?
>
>Gracias por vuestra ayuda
>.
>

He probado tanto con "0" como con "0.0000" (con más o menos decimales)
como con "0,0000" y nada, me sigue dando el mismo error. También he
probado a buscar "0.5" y otros valores para ver si funciona, pero
nada...

Prueba buscando "00:00:00" y sustituyendo LookIn:=xlFormulas por
LookIn:=xlValues

Un saludo.


Fernando Arroyo
MS MVP - Excel

"DAvid" escribi en el mensaje
news:
> He probado tanto con "0" como con "0.0000" (con m s o menos
decimales)
> como con "0,0000" y nada, me sigue dando el mismo error. Tambi n he
> probado a buscar "0.5" y otros valores para ver si funciona, pero
> nada...
>
>