Solo macro, gracias.
Felices fiestas a todos, necesito me inicien en una macro, la cual haga lo siguiente:
En A3 puedo poner por ejemplo A, y en las celdas B3, C3, D3, F3, J3 ponga un "1"
En A4 pongo B y en las celdas B4, C4, J4, L4 ponga un "1" .
Con fórmulas lo tengo conseguido pero no puedo rectificar un turno ya que, no puedo escribir en las celdas por tener incrustadas las fórmulas. Cada celda es un periodo horario de 0930 a 10.00 horas, etc.
Gracias de antemano por su colaboración.
En A3 puedo poner por ejemplo A, y en las celdas B3, C3, D3, F3, J3 ponga un "1"
En A4 pongo B y en las celdas B4, C4, J4, L4 ponga un "1" .
Con fórmulas lo tengo conseguido pero no puedo rectificar un turno ya que, no puedo escribir en las celdas por tener incrustadas las fórmulas. Cada celda es un periodo horario de 0930 a 10.00 horas, etc.
Gracias de antemano por su colaboración.
1 respuesta
Respuesta de 230283
1
Coloca el siguiente código en un objeto Hoja, que podría ser Hoja1 por ejemplo donde se deseas que se ejecute. Yendo con ALT+F11.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then
Exit Sub
Else
If Target.Value = "A" Then
Target.Offset(0, 1) = 1
Target.Offset(0, 2) = 1
Target.Offset(0, 3) = 1
Target.Offset(0, 5) = 1
Target.Offset(0, 9) = 1
ElseIf Target.Value = "B" Then
Target.Offset(0, 1) = 1
Target.Offset(0, 2) = 1
Target.Offset(0, 9) = 1
Target.Offset(0, 11) = 1
End If
End If
End Sub
****
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then
Exit Sub
Else
If Target.Value = "A" Then
Target.Offset(0, 1) = 1
Target.Offset(0, 2) = 1
Target.Offset(0, 3) = 1
Target.Offset(0, 5) = 1
Target.Offset(0, 9) = 1
ElseIf Target.Value = "B" Then
Target.Offset(0, 1) = 1
Target.Offset(0, 2) = 1
Target.Offset(0, 9) = 1
Target.Offset(0, 11) = 1
End If
End If
End Sub
****
