Problema con numeros consecutivos

Hola Maria,

Dependiendo de lo q quires hacer prueba uno de los codigos siguientes.

Saludos,
KL

'Imprimir 50 copias de golpe, cambiando
'el numero de copia en [F28]
Sub Print50Sheet()
With ActiveSheet.Range("F28")
.Value = 0
For i = 1 To 50
.Value = .Value + 1
.Parent.PrintOut
'MsgBox "Imprimiendo Copia " & .Value & _
" de la hoja '" & .Parent.Name & "'"
Next i
End With
End Sub

'Actualizar el numero de copia en [F28]
'e imprimirla.
Sub Print50Sheet2()
With ActiveSheet.Range("F28")
Select Case True
Case IsNumeric(.Value) And .Value < 50
.Value = .Value + 1
Case Else
.Value = 1
End Select
.Parent.PrintOut
'MsgBox "Imprimiendo Copia " & .Value & _
" de la hoja '" & .Parent.Name & "'"
End With
End Sub



"Maria" wrote in message
news:

Hola a todos,

Soy muy nueva en excel pero habia conseguido hacer esta macro

Sub Print50Sheet()

For i = 1 To 50
With ThisWorkbook.Sheets(1).Range("F28")
.Value = .Value + 1
ActiveSheet.Range("F28").Value = .Value

End With
ActiveSheet.PrintOut
Next i
End Sub

Lo que se supone que deberia hacer es lo siguiente. Leer la casilla F28,
sumarle uno e imprimir la hoja. Pues no me hace eso
exactamentelos numeros en vez de ir consecutivos van de dos en
dos.
Espero que alguien me sepa ayudar porque no consigo ver el fallo.
Muchas gracias,

Maria