Consecutivo en excel
Tengo un libro en excel que esta compuesto por varias hojas de ordenes de producción, necesito hacer una macro que cada vez que imprima me cambie el numero de orden de producción pero en todo el libro, es decir tengo una orden de producción con el numero 200 y al elaborar una nueva orden y al imprimirla me siga el consecutivo pero que lo haga en todas las hojas. De esta forma al abrir la hoja 15 o la 20 ya se haya modificado el numero. No soy experta en macros.
Muchas gracias
Muchas gracias
1 respuesta
Respuesta de hugolaza
1
Este pequeño código puede ayudarte:
Sub ImprimirOrdenProduccion()
Dim Hoja As Worksheet, Celda
ActiveWindow.SelectedSheets.PrintOut
Celda = "A1"
Range(Celda) = Range(Celda) + 1
For Each Hoja In ActiveWorkbook.Sheets
Hoja.Range(Celda) = Range(Celda)
Next
End Sub
Copia este código en un módulo del Editor de Visual Basic y ejecútalo mediante :
Alt-F8 - Selecciona "ImprimirOrdenProduccion" - Ejecutar
Algunas consideraciones :
1. Este código imprime tu Orden de Producción y aumenta en 1 el número de Orden de Producción.
2. La Variable Celda contiene la celda donde se encuentra el número de Orden de Producción. Por ejemplo, si este número se encuentra en la celda H5, entonces cambia esta variable a "H5".
3. Esta celda debe ser la misma en todas las hojas de Ordenes de Producción.
Si te sirve este código, da por respondida la pregunta. Alguna otra ayuda, no dudes en solicitarla.
Sub ImprimirOrdenProduccion()
Dim Hoja As Worksheet, Celda
ActiveWindow.SelectedSheets.PrintOut
Celda = "A1"
Range(Celda) = Range(Celda) + 1
For Each Hoja In ActiveWorkbook.Sheets
Hoja.Range(Celda) = Range(Celda)
Next
End Sub
Copia este código en un módulo del Editor de Visual Basic y ejecútalo mediante :
Alt-F8 - Selecciona "ImprimirOrdenProduccion" - Ejecutar
Algunas consideraciones :
1. Este código imprime tu Orden de Producción y aumenta en 1 el número de Orden de Producción.
2. La Variable Celda contiene la celda donde se encuentra el número de Orden de Producción. Por ejemplo, si este número se encuentra en la celda H5, entonces cambia esta variable a "H5".
3. Esta celda debe ser la misma en todas las hojas de Ordenes de Producción.
Si te sirve este código, da por respondida la pregunta. Alguna otra ayuda, no dudes en solicitarla.
