Insertar una linea automa. Vez que cambie un valor

¿De qué modo podría insertar una linea automáticamente cada vez que, en una relación me cambie un valor? Ejemplo (Debe insertar una linea vacía cuando cambiamos del 22 al 23)
      A B C
1     22          15-03-11       1.000 ?
2 22 16-03-¿11 500?
3
4     23          12-03-11         100 ?
5 23 12-03-¿11 150?
6 23 15-03-¿11 50?
7
8 26 10-03-¿11 2000?

1 respuesta

Respuesta
1
Entrá al Editor y seleccioná con doble clic el objeto HOJA donde vas a trabajar (del panel a tu izquierda)
Allí copiá esta rutina y ajustá el avance (hacia abajo o a derecha) según el comentario que dejé en la macro,
Sdos y no olvides finalizar la consulta
Aquí va la macro:
Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
'solo controlamos col A y que el cambio sea en 1 sola celda
If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
If Target.Value <> Target.Offset(-1, 0) Then
Application.EnableEvents = False
'impedimos que se ejecute nuevamente la macro mientras insertamos la fila
    Target.EntireRow.Insert xlDown
    'se ubica 1 fila debajo, opción: 1 celda a derecha con: Target.ofset(0,1).select
    Target.Offset(1, 0).Select
    Application.EnableEvents = True
End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas