ayuda con una macro

04/02/2005 - 01:15 por Mauricio Torres | Informe spam
Hoal me prodrian ayudar con esta instruccion.

Sub HORA()
'
' HORA Macro
' Macro grabada el 03/02/2005 por ARROBA@WEB

Range("A2").Select
ActiveSheet.Paste
ActiveCell.FormulaR1C1 = "=+TEXT(+NOW(),""hh:mm"")"
Range("B2").Select
End Sub

En esta instrucción inserto la hora inicial en una celda,
pero al momento de volver a insertar la fecha final me
pone la misma hora en la celda anterior y tambien en la
actual. ¿Como puedo hecerle para que no suceda eso?,
ademas que se pueda insertar en cualquier celda.

saludos.
 

Leer las respuestas

#1 Héctor Miguel
04/02/2005 - 07:35 | Informe spam
hola, Mauricio !

Sub HORA()
Range("A2").Select
ActiveSheet.Paste
ActiveCell.FormulaR1C1 = "=+TEXT(+NOW(),""hh:mm"")"
Range("B2").Select
End Sub
... inserto la hora inicial en una celda
... al... insertar la fecha final me pone la misma hora en la celda anterior y tambien en la actual.
... para que no suceda eso?, ademas que se pueda insertar en cualquier celda.



-> en lugar de 'depositar una formula' [por codigo] en la 'celda activa' [ActiveCell.Formula..]
deposita el 'valor_tiempo_actual' [Time] en la celda 'donde sea necesario' -???-
-> ¿en donde quieres/necesitas poner el tiempo de inicio/fin de x_procedimiento?
-> en la celda 'C5' de la hoja activa? => Range("c5") = Time
-> en la celda 'B1' de la hoja 'abc'?? => Worksheets("abc").Range("b1") = Time
-> ¿que 'formato de salida' necesitas para el dato 'depositado'?
-> "hh:mm" => cambia la instruccion 'Time' por => Format(Time, "h:mm")
-> si am/pm -> cambia la instruccion 'Time' por => Format(Time, "h:mm a/p")

saludos,
hector.

Preguntas similares