Macro para insertar filas en blanco si se cumple una condición
Buenas tardes mi gran experto Dante, quería consultarte como hago una macro para insertar filas de la columna F, tengo la palabra "Total 1; total 2; total 105" o sea lo que quiero que la macro haga es que cuando encuentre el texto "Total" y no se si puede ignorar el numero de asiento que solo lea la palabra "Total", que me inserte 3 filas debajo, o sea si se cumple esa condición, si me podrías ayudar, te lo voy a agradecer.
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro
Sub Insertar3Lineas()
'Por.Dante Amor
Set r = ActiveSheet.Columns("F")
Set b = r.Find("Total", lookat:=xlPart)
If Not b Is Nothing Then
ncell = b.Address
Do
Rows(b.Row + 1 & ":" & b.Row + 3).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Set b = r.FindNext(b)
Loop While Not b Is Nothing And b.Address <> ncell
End If
End Sub
