Macro para agregar filas si se cumplen condiciones

Tengo un archivo de excel donde, de manera manual, tengo que insertar filas cuando existe una determinada condición. Después se vuelve más complejo el proceso, pero me gustaría resolver con una macro la cuestión de agregar dos filas por encima de la fila que cumpla la condición.

1 Respuesta

Respuesta
1

Te anexo la macro, ajusta en la macro la columna y la condición que debe cumplirse.

Sub AgregarLineas()
'Por.Dante Amor
    col = "D"           'cambiar por la columna de la condición
    condicion = "dato"  'cambiar por la palabra que cumpla la condición
    For i = Range(col & Rows.Count).End(xlUp).Row To 1 Step -1
        If Cells(i, col) = condicion Then
            Rows(i & ":" & i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        End If
    Next
End Sub

Si necesitas apoyo para ajustar la macro, explícame cuál es la condición que debe cumplirse.


Saludos. Dante Amor

Si es lo que necesitas.

¡Gracias! ¡Es exactamente lo que estaba necesitando! ¡Te lo agradezco!

Después de hacer esta tarea, tengo otras repetitivas que hacer con el libro, ¿debería iniciar otra pregunta para resolver ese tema o puedo seguir el hilo por aquí?

Valora la respuesta por favor y crea una pregunta nueva por cada petición.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas