Macros incrementa e imprime automaticamente

Buenos dias estimad@s, tengo un tema diferente de sap, es macros en excel,

Estoy imprimiendo una listas para rifas, pero necesito enumerarlas al momento de enviarlas a impresión traiga en una celda el numero en correlativo.

Actualmente esto e intentado realizar pero no me corre, si alguien puede ayudarme , sera de mucha utilidad.

Si este caso por la categoría no es valido, comprendo perfectamente.
Saludos

Sub impresión()
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
'incrementa el consecutivo
ActiveSheet.Range("C3").Value = ActiveSheet.Range("C3").Value + 1
End Sub
1 me gusta

@fyelmo

Buenas noches, como estas?
Podrías enviarme mas datos??
Por ejemplo, los siguientes datos:

  • Sistema: R/3 o B1?
  • Adjunta el proceso de como llegar al error con sus correspondientes pantallas

Aguardo comentarios! Saludos! :v: TAVO

1 me gusta

A mi si me funciona como lo has hecho… Ejecuto varias veces la macro y suma uno en la C3

1 me gusta

@fyelmo, pudiste probar lo que dice Salco?

Gracias Salco efectivamente funciona perfectamente, el caso era del equipo del usuario.

agradezco tu recomendación

saludos