Tengo una dificultad con la macro para generar un consecutivo automático luego de la impresión

Tengo una dificultad con la macro que estoy utilizando para generar un consecutivo automático luego de imprimirla, ya que no me imprime el consecutivo que estoy visualizando sino el siguiente.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.Unprotect "clave"
Dim Mensaje, Resp
Dim Total As Double
Total = WorksheetFunction.Sum(Range("K8:K10"))
Mensaje = "El total es " & [k11]
Mensaje = Mensaje & "¿Desea Imprimir?"
Resp = MsgBox(Mensaje, vbQuestion + vbYesNo)
On Error GoTo errNoPrint
If Resp = vbYes Then
Application.EnableEvents = False
[k11] = Total
Else
Cancel = True
Application.EnableEvents = True
End If
Application.EnableEvents = True
Exit Sub
[k3] = [k3] + 1
errNoPrint:
[k3] = [k3] - 1
Cancel = True
Application.EnableEvents = True
ActiveSheet.Protect "clave"
End Sub

Agradezco su colaboración para evaluar en que estoy fallando, de antemano muchos gracias

1

1 respuesta

Respuesta
1

Hay que agregar esta línea:

Total = WorksheetFunction.Sum(Range("K8:K10"))

[k11] = Total

Mensaje = "El total es " & [k11]

Te envié la macro completa en la misma pregunta que hiciste en el tablón.

Por favor, Podrías finalizar esta pregunta y si falta algo le seguimos con la otra pregunta.

Gracias. Dam

Ok. gracia, ya ingrese la solicitud de aclaración en el tablón.

Dam

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas