Problema con Macros, actualización celdas

Hola ElsaMatilde
Necesito ayuda con una macro que me esta llevando de cabeza.
Necesitaría programar una macro que según un valor determinado de una celda buscara las coincidencias en la columna de al lado y cambiara los valores en la columna inicial.
Me explico con un ejemplo
Columna 1 Columna 2
----------------------------------
Problema 1 Solucionado
Problema 2 Pendiente
Problema 2 Pendiente
Problema 3 Pendiente
Problema 2 Solucionado
En el momento que yo en la Columna 2 he puesto "solucionado", quiero que me actualice en la columna 2 el valor de "pendiente" a "solucionado", siempre que en columna 1 ponga "Problema 2". Si posteriormente en Problema 3, yo pusiera en la Columna 2 el valor "Solucionado", la macro debería cambiarme los valores de "Pendiente" a "Solucionado", siempre que en la Columna 1 aparezca el valor "Pendiente".
Espero haberme explicado.
Saludos

1 Respuesta

Respuesta
1
Voy a traducirlo, a ver si lo comprendí:
La col 2 puede tener valores 'Pendiente' o 'Solucionado'
Luego queda esto que no se entiende:
'... Si posteriormente en Problema 3, yo pusiera en la Columna 2 el valor "Solucionado", la macro debería cambiarme los valores de "Pendiente" a "Solucionado", siempre que en la Columna 1 aparezca el valor "Pendiente"...
¿Significa qué en col 1 también aparecen valores como 'Pendiente' y 'Solucionado'?
Aclarame un poquito más por favor
Sdos
Hola Elsa
En la columna 1 solamente aparece Problema 1, Problema 2... En la columna 2 es donde aparecen los dos valores (o pendiente o solucionado).
Por ejemplo. (Fila 1): En columna 1 aparece "Problema 2" y en columna 2 aparece "Pendiente", si en la siguiente fila (Fila 2) aparece "Problema 2" en la columna 1 y luego en columna 2 aparece "Solucionado", quiero que se actualice el valor anterior (el de la Fila 1 que estaba en "pendiente" o si existiesen valores anteriores que estuviesen en "pendiente" y que en la columna 1 tuvieran "Problema 2"
Te pongo un ejemplo practico:
Caso Inicial
Columna 1 Columna 2
----------------------------------
Problema 1 Solucionado
Problema 2 Pendiente
Problema 2 Pendiente
Problema 3 Pendiente
Si ahora introduzco una siguiente fila...
Columna 1 Columna 2
----------------------------------
Problema 1 Solucionado
Problema 2 Pendiente
Problema 2 Pendiente
Problema 3 Pendiente
Problema 2 Solucionado
Debería de quedar de la siguiente forma...
Columna 1 Columna 2
----------------------------------
Problema 1 Solucionado
Problema 2 Solucionado
Problema 2 Solucionado
Problema 3 Pendiente
Problema 2 Solucionado
Espero haberme explicado
Muchas gracias por adelantado
Bien, aquí te la dejo. La tendrás que colocar en el Editor, en la HOJA donde tengas esta lista.
Private Sub Worksheet_Change(ByVal Target As Range)
fila = 0
'controlamos lo ingresado en col B
If Target.Column = 2 And Target.Row >= 2 And Target.Count = 1 Then
'controlamos si lo ingresado es "S...."
If Target.Value = "Solucionado" And fila = 0 Then
fila = Target.Row
ini = fila - 2   'este cálculo es para saber cuántas filas hacia arriba debo recorrer
probl = Target.Offset(0, -1)
'recorremos desde la fila anterior hasta la fila 2 modificando los reg de = problema
For i = 1 To ini
If Target.Offset(-i, -1) = probl Then Target.Offset(-i, 0) = "Solucionado"
Next i
End If
End If
End Sub
Estoy considerando que el rango de datos empieza en A2.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas