Hola PerrO
Mis saludos, desde hace tiempo pque no veía tu Nick por ningún lado
Me diste tu ayuda en una plantilla que estoy usando desde hace mucho tiempo, ayudaste con unas formulas y esta quedo muy pero muy buena, llamada Cobrado y Gastado, la cual tiene un grafico del cual quisiera tu opinión y corrección si es posible pero ese detalle lo dejo para un privado o nuevo tema.
Sobre este quiero dejarte la macro con que resolvi con la ayuda de una Sra. llamada Elsa Matild, no se si te es familiar su nombre
Código:
Public Sub inserta_Lineas()
A = InputBox("Ingrese el Número de Lineas a Insertar", "Número de Lineas")
b = ActiveCell.Row
Rows(b).Select
For i = 1 To A
Selection.EntireRow.Insert
Rows(b - 1).Copy
Rows(b).PasteSpecial Paste:=xlPasteFormats
Range("I" & b - 1).Copy
Range("I" & b).PasteSpecial Paste:=xlPasteFormulas
Application.CutCopyMode = False
Next i
End Sub
Por cierto esta macro es en esta misma plantilla que, tenia que agregarle líneas manualmente una por una cuando necesitaba mas y mas lineas.
Me funciona en lo total que pido arriba, me combina las celdas requeridas y agrega la formula de las celdas de la columna correspondiente.
Te enviaría la plantilla para que me la revisaras, que dentro de la cual en hoja te explicaría lo que necesito