Selection.AutoFill Destination con rangos discontinuos
Mediante la misma, cada vez que escribo en F, se copian en la fila activa las fórmulas del rango A:E que están en la fila anterior. Lo que necesito es que: (a) Aparte de copiar las fórmulas del rango A:E, también copie las formulas de R y de V [R, V]. (b) Que todas las columnas en donde se encuentran las fórmulas [A:E, R, V] queden protegidas.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 And Target.Row > 2 Then
fila = Target.Row
Range("A" & fila - 1 & ":E" & fila - 1).Select
Selection.AutoFill Destination:=Range("A" & fila - 1 & ":E" & fila), Type:=xlFillDefault
Target.Offset(0, 1).Select
End If
End Sub
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro actualizada
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 And Target.Row > 2 Then
ActiveSheet.Unprotect "abc"
fila = Target.Row
Range("A" & fila - 1 & ":E" & fila - 1).AutoFill _
Destination:=Range("A" & fila - 1 & ":E" & fila), Type:=xlFillDefault
Range("R" & fila - 1 & ":R" & fila - 1).AutoFill _
Destination:=Range("R" & fila - 1 & ":R" & fila), Type:=xlFillDefault
Range("V" & fila - 1 & ":V" & fila - 1).AutoFill _
Destination:=Range("V" & fila - 1 & ":V" & fila), Type:=xlFillDefault
Target.Offset(0, 1).Select
Range("A:E,R:R,V:V").Locked = True
ActiveSheet.Protect "abc", DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
