insertar un cronometro en excel

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. También 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?

.

Javier, la hoja que puedes descargar del siguiente vinculo te muestra un
ejemplo de un cronómetro en excel:

http://www11.brinkster.com/luism0/AyudaForo.htm


Luis Medina
MENUFazt - Menu Excel Multifunciones
http://www11.brinkster.com/luism0/

"javier" escribió en el mensaje
news:

necesito insertar un cronometro en una celda de excel para despues hacer
operaciones con el tiempo marcado por ese cronometro.
Alguien sabe como hacerlo?

Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.822 / Virus Database: 560 - Release Date: 22/12/2004

Javier, con este código insertas un cronómetro en la celda $A$1, mira para
ver si te sirve, o mira el adjunto, chao.


Option Explicit
Public dHoraDeInicio As Date

Sub CRONOMETRO()
'
' Macro creada el 31/12/2004 por William Posada C.
'
With Range("$A$1")
.Value = TimeValue("00:00:00")
.NumberFormat = "dd - hh:mm:ss"
.EntireColumn.AutoFit
End With
dHoraDeInicio = Now()
SET_CR
End Sub

Sub SET_CR()
'
' Macro creada el 31/12/2004 por William Posada C.
'
Range("$A$1").Value = (Now() - dHoraDeInicio)
Application.OnTime Now + TimeValue("00:00:1"), "SET_CR"
End Sub

"javier" escribió en el mensaje
news:

necesito insertar un cronometro en una celda de excel para despues hacer
operaciones con el tiempo marcado por ese cronometro.
Alguien sabe como hacerlo?

HOLA CAMILO,
Me interesó mucho este código pero puedo moverlo en columnas solamente
No se como hacerlo para q esté en x ej. a28 o en c 14
Para la columna sé q si cambio el valor de BOC,COC y EOC lo logro pero no en
las filas.
Espero haber sido claro.
Gracias

Raúl Z.

"Camilo Bathory" escribió:

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. También 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?
>
>.
>

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?
>
>.
>