Imprimir concecutivos

[UliCs]

Que tal otra ves.
tengo un nuevo problema ayudenme por favor.
tengo un archivo con un userform y con este lleno las siguientes celdas. y finalmente lo mando a imprimir. en el fomulario agrego un concecutivo. es decir sin son dies hojas las que quiero solo escribo /10 mando a imprimir saco 9 copias y a cada hoja le escribo con plumon su numero concecutivo 1/10, 2/10, 3/10 etc.
existe alguna forma de acerlo en automatico. que solo escriba el total de hojas que necesito y a cada hoja le ponga su nemero concecutivo.
espero no haberlos confundido.

Excel Workbook
	B	C
2
3	Tenis Negros
4	Marca. Adidas
5	no. 26-29
6		/10
7
Hoja1

Saludos y Gracias.

<div_prefs id="div_prefs"></div_prefs><div_prefs id="div_prefs"></div_prefs>

 

[UliCs]

Por favor ayudenme.
la verdad o tengo ni idea de como imprimir de esta forma.

saludos!

 

[pj.llopgil]

Hola,

Según el ejemplo que has puesto y supòniendo que no siemrpe tuvieras que imprimir 10 copias te serviría este código.

Si siempre son 10 puedes eliminar el input box y darle a la variable Cantidad el valor 10 directamente

Sub ContarCopias()
Dim Cantidad As Variant
Cantidad = InputBox("Introduce el número de copais a imprimir:", "¿Cuántas copias?")
If Cantidad = "" Or Not IsNumeric(Cantidad) Or Cantidad < 1 Then
MsgBox "Va a ser que no", 48, "petición cancelada."
Exit Sub
Else
Application.ScreenUpdating = False
Dim i As Integer
For i = 1 To Cantidad
With ActiveSheet
.Range("B7").Value = i
Range("C7").Value = "/ " & Cantidad
.PrintOut
End With
Next i
ActiveSheet.Range("B7:C7").Value = ""
Application.ScreenUpdating = True
End If
End Sub

La macro puedes asignarla a un boton o simplemente asignarle un atajo de teclado para ejecutarla.
Espero te sirva.

Saludos

 

[UliCs]

Mil disculpas por tardarme tanto en contestar
pero funciono a la perfeccion era justo lo que necesitaba.

Gracias.