Como agregar una fila debajo de una palabra especifica de forma automática en Excel
Al realizar una nomina, debo de dar cierto formato a una hoja de excel arrojada de otro programa. Al ser muchos empleados, ocupo crear un espacio (fila) entre cada uno después de la palabra "TOTALES:" sin la necesidad de insertar la fila una por una. Hay alguna forma de automatizar la creación de la fila debajo de la palabra totales en la columna.
1 respuesta
H o l a
Te paso la macro, estoy suponiendo que TOTAL está en la columna A
Sub Agregarfila()
'Por.Aortiz
Set h1 = Sheets("Hoja1")
col = "A"
u = Range(col & Rows.Count).End(xlUp).Row
For i = u To 2 Step -1
If h1.Cells(i - 1, col) = "TOTAL" Then
Rows(i & ":" & i).EntireRow.Insert
End If
Next
End SubValora la respuesta para finalizar saludos!
Hola, que tal, es en la columna "H", intente modificanco el área de col = "A" por "H" pero me muestra un error
H o l a
¿Has cambiado el nombre de la hoja?
Sino envíame el archivo para adecuar la macro [email protected]
Oh sino muestra una imagen de la hoja, que se muestre filas y columnas
Ya logre modificar y me funciono a la perfección, muchas gracias
Que bueno saludos!
