[RESUELTO] Poner la hora actual en una celda

[sorro]

Saludos a todos los que andan por este foro antes de nada. Comprobareis que soy nuevo por aquí, así que espero que me disculpen por las torpezas que pueda cometer.

Estoy intentando crear una hoja de registros de tiempos y el primer problema con que me he topado es el siguiente: He creado un botón con la función de añadir la función (valga la redundancia) AHORA() en la celda en que se encuerte el cursor pero al presionar el citado botón, me actualiza automáticamente todas las otras celdas en las que ya es había establecido la función AHORA() con la hora actual y mi pretensión es ir rellenando cada celda con la hora y el minuto del momento en que apreté el botón de formulario creado. Lo he solucionado grabando una macro con los pasos de: 1º establecer la función AHORA(), 2º copiar y 3º pegar, con pegado especial desactivándole la casilla de fórmulas. Si tubieran a bien decirme si alguien sabe otra forma más sencilla se lo agradecería.

[mauricio]

Es normal ese comportamiento, las formulas se recalculan cuando es necesario... la siguiente macro es una primera opción para lo que quieres... toma en cuenta que la hora se insertará en la celda activa y que la celda destino ya debe tener el formato de hora...

Código: Seleccionar todo

Option Explicit

Sub InsertarHoraActual()
Dim oHojaActual As Object
Dim oCelda As Object

	oCelda = ThisComponent.CurrentController.Selection
	If oCelda.ImplementationName = "ScCellObj" Then
		oCelda.setValue(CDbl(Now))
	End If
	
End Sub

Saludos

[sorro]

Muchas gracias mauricio, lo he probado y funciona a la perfección. Un saludo

[SLV-es]

Te lo cojo prestado, Mauricio, para mi blog