Foros del Web » Soporte técnico » Ofimática »

Macro a boton para insertar lineas

Estas en el tema de Macro a boton para insertar lineas en el foro de Ofimática en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 22/10/2014, 17:20
 
Fecha de Ingreso: agosto-2007
Mensajes: 1.945
Antigüedad: 16 años, 7 meses
Puntos: 39
Macro a boton para insertar lineas

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.
__________________
Las contraseñas son como la ropa interior: Nunca dejarlas donde la gente pueda verlas
http://i64.tinypic.com/rho40i.jpg
  #2 (permalink)  
Antiguo 03/11/2014, 08:30
Avatar de Perr0  
Fecha de Ingreso: mayo-2005
Ubicación: Santiago de Chile, Chile
Mensajes: 676
Antigüedad: 18 años, 10 meses
Puntos: 79
Respuesta: Macro a boton para insertar lineas

Para combinar las líneas después de insertar usa

Range("D6:F6").Merge
(en este ejemplo deberás indicar el número de fila)

para la fórmula te posicionas en la columna I y luego insertas la fórmula así

Range("I6").FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
(ésta formula suma la segunda celda a la izquierda con la primera celda a la izquierda

ya tienes una guía, interiorizarte mas en las fórmulas
saludos
__________________
Numerador Mp3 en Access =)
http://www.mediafire.com/download/r9...pdw/mp3(2).zip
  #3 (permalink)  
Antiguo 03/11/2014, 11:49
 
Fecha de Ingreso: agosto-2007
Mensajes: 1.945
Antigüedad: 16 años, 7 meses
Puntos: 39
Respuesta: Macro a boton para insertar lineas

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
__________________
Las contraseñas son como la ropa interior: Nunca dejarlas donde la gente pueda verlas
http://i64.tinypic.com/rho40i.jpg

Etiquetas: boton, funcion, lineas, macro
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 17:33.