Pido su ayuda o colaboración para lo siguiente:
Estoy usando una plantilla la cual contiene una de las hojas en la cual necesito:
Pequeña macro para botón, que me llame un ImputBox para colocar el número de líneas a insertar, para insertar líneas seguidas a partir de la línea seleccionada (manualmente), pueden ser 5, 10 o 100 líneas, es variable la cantidad de líneas a insertar
Las líneas en las columnas D, E y F son combinadas, lo tienen que ser.
Las líneas de la columna I contienen formula.
He buscado algo por la WEB sin haber logrado mi objetivo, lo único encontrado es esta macro pero no me funciona como quiero por lo de las líneas combinadas y formula en la I.
Código:
Private Sub Lineas_Click()
A = inputbox("Ingrese el Número de Filas a Insertar","Número de Filas"
b = ActiveCells.Row
for i = 1 To a
Rows(b).Select
Selection.Insert Shift:=xlDown
Range("A" & b).select
ActiveSheet.Paste
Application.CutCopyMode = False
b = b+1
Next i
End Sub
Agradezco su valiosa ayuda (colaboración, para lo cual envío mi agradecimiento, una vez reconociendo mi muy magro conocimiento en la materia.