¿Cómo hago una macro que inserte un reglón con respecto a la selección actual(variable)?
Actualmente tengo:
Sub INSERTARREGLON()'
' INSERTARREGLON Macro' inserte un renglón pero copiando las formulas de la tabla y los valores de las columnas deseadas'
' Keyboard Shortcut: Ctrl+i
'
Rows("9:9").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B8").Select
Selection.AutoFill Destination:=Range("B8:B9"), Type:=xlFillDefault
Range("B8:B9").Select
Range("C8").Select
Selection.AutoFill Destination:=Range("C8:C9"), Type:=xlFillDefault
Range("C8:C9").Select
Range("F8").Select
Selection.AutoFill Destination:=Range("F8:F9"), Type:=xlFillDefault Range("F8:F9").Select
End Sub
Pero de esta forma al presional Ctrl+i siempre inserta la fila en el reglón "9" y quiero que lo inserte justo arriba de donde tengo seleccionada la celda.
Ojala me puedan ayudar. De antemano gracias.
1 Respuesta
Te dejo la macro modificada para que haga lo que necesitas. Quedo pendiente de tu éxito. Saludos
Sub InsertaRRenglon()
' inserta un renglón pero copiando las formulas de la tabla y los valores de las columnas deseadas
' Keyboard Shortcut:Ctrl+i
' Modificada por FSerrano en 120210 para rumaj en TodoExpertos.com
Rows(ActiveCell.Row).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("B" & ActiveCell.Row - 1).AutoFill Destination:=Range("B" & ActiveCell.Row - 1 & ":B" & ActiveCell.Row), Type:=xlFillDefault
Range("C" & ActiveCell.Row - 1).AutoFill Destination:=Range("c" & ActiveCell.Row - 1 & ":c" & ActiveCell.Row), Type:=xlFillDefault
Range("F" & ActiveCell.Row - 1).AutoFill Destination:=Range("f" & ActiveCell.Row - 1 & ":f" & ActiveCell.Row), Type:=xlFillDefault
ActiveCell.Offset(1, 0).Activate
End SubNO OLVIDES FINALIZAR Y PUNTUAR LA PREGUNTA
