insertar un cronometro en excel

Raul,

En tanto vuelve Camilo, prueba sustituir las siguientes lineas:

BOF = 1 'Fila de Tiempo Partida

por

BOF = 28 'Fila de Tiempo Partida

y

EOF = Range(Cells(BOF, BOC), Cells(EOF, BOC).End _
(xlUp)).Rows.Count

por

EOF = Cells(EOF, BOC).End(xlUp).Row

Saludos,
KL

"Raul Z." wrote in message
news:
> HOLA CAMILO,
> Me intereso mucho este codigo pero puedo moverlo en columnas solamente
> No se como hacerlo para q este en x ej. a28 o en c 14
> Para la columna se q si cambio el valor de BOC,COC y EOC lo logro pero no
> en
> las filas.
> Espero haber sido claro.
> Gracias
>
> Raul Z.
>
> "Camilo Bathory" escribio:
>
>> Prueba con este codigo... y se lo asignas a un boton.
>> Al presionar la priera vez el boton ubica el tiempo de
>> partida en la celda A1 y por cada vez que vuelvas a
>> presionar el boton toma parciales. Tambien le adicione
>> dos columnas Parcial (Comparativo entre el ultimo y
>> penultimo tiempo) y Rank (Comparativo del ultimo tiempo y
>> el primero).
>>
>> Option Explicit
>>
>> Public BOF, COF, EOF As Long
>> Public BOC, COC, EOC As Long
>>
>> Sub Cronometro()
>> BOF = 1 'Fila de Tiempo Partida
>> EOF = 65536 'Ultima Fila de Excel
>>
>> BOC = 1 'Columna de Tiempos
>> COC = 2 'Columna de Parciales
>> EOC = 3 'Columna de Rank
>>
>> If Cells(BOF, BOC).Value = "" Then
>> Cells(BOF, BOC).Value = Now()
>> Cells(BOF, BOC).NumberFormat = "h:mm:ss"
>> Cells(BOF, COC).Value = "Parciales"
>> Cells(BOF, EOC).Value = "Rank"
>> Else
>> EOF = Range(Cells(BOF, BOC), Cells(EOF, BOC).End
>> (xlUp)).Rows.Count
>> Cells(EOF + 1, BOC).Value = Now()
>> Cells(EOF + 1, BOC).NumberFormat = "h:mm:ss"
>> Cells(EOF + 1, COC).FormulaR1C1 = "=R" + Trim(Str(EOF
>> + 1)) + "C" + Trim(Str(BOC)) + "-R" + Trim(Str(EOF))
>> + "C" + Trim(Str(BOC))
>> Cells(EOF + 1, COC).NumberFormat = "[h]:mm:ss"
>> Cells(EOF + 1, EOC).FormulaR1C1 = "=R" + Trim(Str(EOF
>> + 1)) + "C" + Trim(Str(BOC)) + "-R" + Trim(Str(BOF))
>> + "C" + Trim(Str(BOC))
>> Cells(EOF + 1, EOC).NumberFormat = "[h]:mm:ss"
>> End If
>> End Sub
>>
>> Saludos \m/
>>
>>
>> >necesito insertar un cronometro en una celda de excel
>> para despues hacer
>> >operaciones con el tiempo marcado por ese cronometro.
>> >Alguien sabe como hacerlo?
>> >
>> >.
>> >
>>