Actividad pública reciente
Ha valorado "Excelente" la respuesta
Consecutivo en excel
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)...