Para Dante Amor, Código para copiar fórmulas de celdas y pegarlas en otras.
Hola! Dante Amor
Tengo un formulario que guarda datos y que inserta nueva fila al pulsar un botón, lo que busco con este tema es que me pueda copiar las fórmulas que tengo en diferentes celdas especificas y me las pegue a la nueva fila creada e intentado con el grabador el resultado fue este:
Sub Formulas()
Range("BD5:BM5").Select
Selection.AutoFill Destination:=Range("BD5:BM6"), Type:=xlFillDefault
Range("BD5:BM6").Select
Rows("6:6").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("BD7:BM7").Select
Selection.AutoFill Destination:=Range("BD6:BM7"), Type:=xlFillDefault
Range("BD6:BM7").Select
End Sub
Si fuera algo más simple seria perfecto Gracias!
1 Respuesta
Lo qué quieres hacer es insertar siempre una fila en la fila 6 y copiar las fórmulas del rango "BD5:¿BM5" en el rango de la nueva fila?
Si es correcto, puede ser así:
Sub Formulas()
Rows("6:6").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("BD5:BM5").AutoFill Destination:=Range("BD5:BM6"), Type:=xlFillDefault
End SubO puede ser con un copy
Sub Macro1()
Rows("6:6").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("BD5:BM5").Copy Range("BD6")
End Subsi no es lo que necesitas, explícame qué es lo que quieres lograr.
