Copiar fórmula de fila superior
Tengo una tabla que se ajusta automáticamente, pero necesito que al ajustarse también me copie las fórmulas de la fila superior.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Count > 1 Then Exit Sub
If Target.Row = 1 Then Exit Sub
If Target.Column > 13 Then Exit Sub
With ActiveSheet
.ListObjects("Tabla8").Resize Target.CurrentRegion
End With
On Error GoTo 0
End Sub
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro que se tiene que actualizar
Public valor
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim c, h, b, u
If Target.Count > 1 Then Exit Sub
If Target.Row = 1 Then Exit Sub
If Not Intersect(Target, Range("B:B")) Is Nothing Then
For Each c In Target
Set h = Sheets("CARACTERISTICAS DEL PROYECTO")
If c = "" And valor <> "" Then
Set b = h.Columns("N").Find(valor, lookat:=xlWhole)
If Not b Is Nothing Then
b.Value = ""
End If
Else
Set b = h.Columns("N").Find(c.Value, lookat:=xlWhole)
If b Is Nothing Then
u = h.Range("N" & Rows.Count).End(xlUp).Row + 1
h.Cells(u, "N") = c.Value
h.Range("O" & u - 1 & ":V" & u - 1).Copy h.Range("O" & u)
End If
End If
Next
End If
'ActiveSheet.Protect , AllowFiltering:=True
Application.ScreenUpdating = True
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
