Insertar filas
Saludos, quiero preguntarte como podría realizar una macro donde inserte una fila al encontrar un texto en la columna DE, pero el problema es que las hojas que se crean repiten el mismo texto. Por ejemplo.
--Aquí insertar fila
Fila 1 cancelado
Fila 2 cancelado
Fila 3 cancelado
--Aquí insertar fila
Fila 4 cumplido
Fila 5 cumplido
Fila 6 cumplido
--Aquí insertar fila
Fila 7 otros
Fila 7 otros
El problema es que esta en diferentes filas y en ocasiones no hay alguno y tengo que trabajar diario con 100 hojas y hago lo mismo y quiero automatizarlo.
Gracias de antemano
--Aquí insertar fila
Fila 1 cancelado
Fila 2 cancelado
Fila 3 cancelado
--Aquí insertar fila
Fila 4 cumplido
Fila 5 cumplido
Fila 6 cumplido
--Aquí insertar fila
Fila 7 otros
Fila 7 otros
El problema es que esta en diferentes filas y en ocasiones no hay alguno y tengo que trabajar diario con 100 hojas y hago lo mismo y quiero automatizarlo.
Gracias de antemano
1 respuesta
Respuesta de Elsa Matilde
1
Te adjunto una rutina que la colocas en un módulo y podes ejecutarla desde cualquier hoja, ya que incluye la frase 'activeSheet'
Abrís el Editor de macros (con Alt F11), insertás un módulo y la copiás.
Sub insertandoFilas()
Dim valor1 As String
ActiveSheet.Range("D1").Select
valor1 = ActiveCell.Value
While ActiveCell.Value <> ""
If ActiveCell.Value <> valor1 Then
ActiveCell.EntireRow.Insert (xlUp)
valor1 = ActiveCell.Offset(1, 0).Value
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Pruébala y si todo está bien, no olvides finalizar la consulta
Abrís el Editor de macros (con Alt F11), insertás un módulo y la copiás.
Sub insertandoFilas()
Dim valor1 As String
ActiveSheet.Range("D1").Select
valor1 = ActiveCell.Value
While ActiveCell.Value <> ""
If ActiveCell.Value <> valor1 Then
ActiveCell.EntireRow.Insert (xlUp)
valor1 = ActiveCell.Offset(1, 0).Value
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Pruébala y si todo está bien, no olvides finalizar la consulta
