Suma progresiva
Buenas tardes Elsa, he seguido las instrucciones para editar el macro, pero me da error de sintaxis. Te mando el macro para ver si me puedes ayudar. Muchas gracias.
Range("C14").Select
Selection.Font.Underline = xlUnderlineStyleSingle
ActiveCell.FormulaR1C1 = "14"
' Acceso directo: CTRL+s
'Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Address(False, False) = "C14 Then
'Application.EnableEvents = False
'Target.Value = Target.Value + Range("AB1").Value
'Range("AB1").Value = Target.Value
'Application.EnableEvents = True
'End If
'End Sub
Range("C14").Select
Selection.Font.Underline = xlUnderlineStyleSingle
ActiveCell.FormulaR1C1 = "14"
' Acceso directo: CTRL+s
'Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Address(False, False) = "C14 Then
'Application.EnableEvents = False
'Target.Value = Target.Value + Range("AB1").Value
'Range("AB1").Value = Target.Value
'Application.EnableEvents = True
'End If
'End Sub
1 respuesta
Respuesta de Elsa Matilde
1
El primer error que encuentro está en la siguiente línea donde le faltan las comillas de cierre:
'If Target.Address(False, False) = "C14" Then
Parte de esta rutina se la he dejado a un usuario hace 1 par de días, pero parece se te han mezclado otras instrucciones. Lo correcto es que lo que se encuentra a partir del Private Sub... vaya en el Editor, en el objeto HOJA donde se hará la carga de datos.
'If Target.Address(False, False) = "C14" Then
Parte de esta rutina se la he dejado a un usuario hace 1 par de días, pero parece se te han mezclado otras instrucciones. Lo correcto es que lo que se encuentra a partir del Private Sub... vaya en el Editor, en el objeto HOJA donde se hará la carga de datos.
Perdón por la tardanza, Elsa. No sabía que había que contestar. Me han sido de gran ayuda tus correcciones, que revisé al día siguiente de contestarme. Muchas gracias, un saludo. Jose.
