Jose Luis Arconada

Luis Mondelo respondió: Prueba ahora con esta. Tenías mal confeccionados los IF Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then fila = Target.Row If Time > "00:00:00" And Time < "05:59:59" Then Cells(fila, 1).Value = Date - 1 Cells(fila,...

Luis Mondelo respondió: Este sería el código necesario para que se lo adjudiques a un botón de formulario o un botón Activex sub ir_a_hoja() sheets("poner nombre de hoja").select end sub

Luis Mondelo respondió: Aquí tienes: Esta macro copia las filas de la hoja 1 en la hoja 2 examinando la fecha que contiene la primera celda de cada fila de la columna A. Si la fecha es de hoy copiará la fila a la hoja 2. Sub fecha_de_hoy() Sheets(1).Range("a1").Select Do...

Luis Mondelo respondió: Es necesario programar el evento change de la hoja en cuestión: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 3 Then fila = Target.Row Cells(fila, 1).Value = Date End If End Sub Con esta macro-evento te pondrá automáticamente...

jrgces respondió: Prueba con: =SI(C2="";"";SI(C2<--"6:00:01";"N";SI(C2<--"14:00:01";"M";SI(C2<--"22:00:01";"T";SI(C2>0;"N"))))) Que parece que funciona.

Elsa Matilde respondió: Te dejo una fórmula que podes aplicar a la col B. Cópiala en B3 y luego arrastrala al resto de la col: =+SI(Y(C3>=VALHORA("06:00:00");C3<VALHORA("14:00:00"));"TM";SI(Y(C3>=VALHORA("14:00:00");C3VALHORA("22:00:00"));"TT";"TN")) Considerá que estoy...