Obtener valores de celdas antes de que cambie

Tengo una tabla que consta de filas en grupos de dos
la superior es el horario cambiado
la inferior es el horario normal del trabajador
en la columna e hay una celda con lista de validación con valores "normal" "cambiado" y se activa la fila superior o inferior según se elija.
Lo que quiero es que el valor de las celdas de la fila inferior (horario normal) pasen a la superior (horario cambiado) al cambiar la celda de validación a "cambiado"
Y si activo en la celda de validación "normal" me limpie toda la fila del horario cambiado.

El código que tengo es este:

Dim oldValue1 As Variant
Dim oldValue2 As Variant
Dim oldValue3 As Variant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
oldValue1 = Range("$G" & Target.Row + 1).Value
oldValue2 = Range("$Z" & Target.Row + 1).Value
oldValue3 = Range("$AA" & Target.Row + 1).Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
If Target.Column = 5 And Target.Value = "NORMAL" Then
Range("$G" & Target.Row).Value = ""
ElseIf Target.Value = "CAMBIADO" Then
Range("$G" & Target.Row).Value = oldValue1
Range("$Z" & Target.Row).Value = oldValue2
Range("$AA" & Target.Row).Value = oldValue3
End If
End Sub

Por un lado no me sale limpiar las celdas del horario cambiado que seria el rango Range(("$Z" & Target.Row),("$BL" & Target.Row))
Y por otro me sube el valor pero si cambio varias veces de normal a cambiado pierde el subir los valores.
Me pueden orientar un poco

1 Respuesta

Respuesta
1

Creo que lo he conseguido... al menos no le encuentro fallo

Dim oldValue1 As Variant
Dim oldValue2 As Variant
Dim oldValue3 As Variant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    oldValue1 = Range("$G" & Target.Row + 1).Value
    oldValue2 = Range("$Z" & Target.Row + 1).Value
    oldValue3 = Range("$AA" & Target.Row + 1).Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
If Target.Column = 5 Then
Y = ActiveCell.Value
Select Case Y
Case "NORMAL"
        Range("$G" & Target.Row).Value = ""
        Range(("$Z" & Target.Row), ("$BL" & Target.Row)) = ""
Case "CAMBIADO"
        Range("$G" & Target.Row).Value = oldValue1
        Range("$Z" & Target.Row).Value = oldValue2
        Range("$AA" & Target.Row).Value = oldValue3
End Select
End If
End Sub

El código funciona... pero hay veces, y no entiendo porque le da por fallar y no coge los valores.

No sucede siempre, pero no se relacionarlo con algún evento.

No localizo el posible error.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Dividir procedimiento demasiado largo

No se si la otra pregunta se envío correctamente, te pido por favor si me puedes escribir como dividir este procedimiento en dos o más partes, porque el original excede los 64 KB y no he podido hacerlo usando el Call, supongamos el nombre para llamar...
1 respuesta

Ejecutar una macro al cambiar valor de una celda

Sucede que en una hoja de Excel 2007 tengo un grupo de celdas en donde he validado cada una para que me permita elegir valores de una lista, la idea es que cuando seleccione un item de la lista me escriba automáticamente a través de una macro en una...
1 respuesta

Autocompletar Texto

Quisiera saber si existe alguna forma de autocompletar texto pero, desdé una celda en Excel, es decir no con ningún combobox o un textbox sino dentro de la propia celda en la hoja de calculo, claro esto validado desde un rango. Ejemplo: Yo Tengo una...
1 respuesta

Marcel: Como escribir una cadena de IF or Else

Necesito una macro que me filtre una columna solo si al escribir en una celda cumple con la condición. Pero tengo Diez posibles condiciones para filtrar. No encuentro como condicionar y reconocer las posibles diez condiciones. Esto es lo que tengo,...
3 respuestas

Macro que autocomplete datos de otra hoja del mismo libro en excel

Quisiera saber que macro pueda utilizar para autocompletar en mi hoja 1 datos de mi hoja 2. Es decir, en mi hoja 2 tengo una lista de proveedores muy extensa, supongamos que entre ella esta la empresa motitas, s.a. Y quiero que en la hoja 1 yo...
1 respuesta

Cambiar indistintamente el valor que comparten dos celdas ( II)

Lamentablemente la solución que me dió Elsa no me vale del todo: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Range("B" & Target.Row) = Target.Value ElseIf Not...
1 respuesta

Auto ejecutar una macro

Quiero que se autoejecute una macro que tengo en un libro pero no se como ya que soy muy novato, el nombre de la macro es Private Sub Worksheet_Change(ByVal Target As Range).
1 respuesta

Macros con formatos condicionales

El cual detallo a continuación. Tengo una base de datos de 1000 filas y 25 27 columnas. El punto es que he creado un formato condicional según el cual, si en la celda B8 aparece la letra "i" el rango C8:AA8 se colorea, lo cual se aplica a 2...
1 respuesta

BuscarV al modificar una celda

Tengo una base de datos, que quiero automatizar por lo tanto tengo un problemas con el codigo de Vlookup. La idea es que al momento de cambiar una celda donde está el dato, corra la macro y me traiga el dato y la copie en la celda de al lado. Ademas...
1 respuesta

Como utilizo acumulador, para que los valores que escriba en el rango de la columna (C1:C5000), vaya aumentando en (B1:B5000)

Tengo una tabla de datos, he decidido que la columna C1:C5000 Sea en donde voy a ingresar unos datos de entrada, y en la columna D1:D5000 es donde se van acumulando estos datos, si ingreso un valor en C1, el valor de D1 aumenta en el valor que tenia...
1 respuesta