Necesito ayuda con un script

2 envíos / 0 nuevos
Último envío
pwall
Imagen de pwall
Offline
última acción: Hace 8 meses 1 semana
alta: 27/03/2019 - 13:20
Puntos: 25
Necesito ayuda con un script

Hola, necesito ayuda con esto. Lo que quiero hacer es despues de revisar el chequeo, hago un click con un cuadro y que éste me lleve a la segunda hoja con el nombre CHECK y registre en una columna el dia y la fecha. 

La idea de esto es llevar un registro de chequeo en la que pueda ver si se está llevando a cabo el trabajo.

El problema de esto es que no logro que me lleve a la segunda hoja, me registra el dia y la hora en la primera hoja y el otro problema es que no sé como hacer que cada registro no se sobreescriba al anterior, la idea es que avance diariamente una columna. 

Me pueden ayudar con esto por favor.

Sub Macro1()

'Obtiene la fecha actual (día y hora) y la registra en dos celdas de excel

'para un sistema de registro de chequeo

 

y = Year(Now)

mon = Month(Now)

d = Day(Now)

h = Hour(Now)

Min = Minute(Now)

 

Sheets("CHECK").Select

Range("B5") = DateValue(Now)

Range("B6") = TimeValue(Now)

Range("B5") = Now

 

'

End Sub

 

 

Cron
Imagen de Cron
Offline
última acción: Hace 1 mes 3 semanas
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntos
alta: 23/06/2010 - 12:30
Puntos: 12455
En vez de Select utiliza

En vez de Select utiliza Activate.

Otra cosa que puedes hacer es poner la hoja delante de Range, así:

Sheets("CHECK").Rage("B5").value = DateValue(now)

 

Un saludo