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:
Mostrar la cita

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

Muchisimas gracias que rapidez en contestar!!! Funciona perfectamente

Saluditos desde Liverpool


"KL" wrote in message
news:
Mostrar la cita

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:
Mostrar la cita

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

Mostrar la cita

Saluditos desde Liverpool

Lo mismo digo desde Barcelona.
KL

Holade nuevo,

Acabo de darme cuenta de q el primer codigo tiene una operacion redundante,
asi q se puede dejarlo asi:

'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 = i
.Parent.PrintOut
'MsgBox "Imprimiendo Copia " & .Value & _
" de la hoja '" & .Parent.Name & "'"
Next i
End With
End Sub

Saludos,
KL

"Maria" wrote in message
news:
Mostrar la cita

Muchisimas gracias que rapidez en contestar!!! Funciona perfectamente

Saluditos desde Liverpool


"KL" wrote in message
news:
Mostrar la cita

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:
Mostrar la cita

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

Oooooooo, esto es mas eficiente que las actualizaciones del Windows.
Gracias nuevamente por las molestias


"KL" wrote in message
news:
Mostrar la cita

Holade nuevo,

Acabo de darme cuenta de q el primer codigo tiene una operacion
redundante, asi q se puede dejarlo asi:

'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 = i
.Parent.PrintOut
'MsgBox "Imprimiendo Copia " & .Value & _
" de la hoja '" & .Parent.Name & "'"
Next i
End With
End Sub

Saludos,
KL

"Maria" wrote in message
news:
Mostrar la cita

Muchisimas gracias que rapidez en contestar!!! Funciona perfectamente

Saluditos desde Liverpool


"KL" wrote in message
news:
Mostrar la cita

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:
Mostrar la cita

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