0

buen dia a todos, en este momento he estado trabajando en un proyecto el cual va de la siguiente manera (adjunto Imagen) he estado trabajando con macros y VBA pero necesito copiar esa hoja de informacion, pero que el usuario elija cuantas veces lo quiere copiar, para ello he elejido que el usuario diga desde que numero de tarima desea empezar y donde terminar, Ejemplo: si el usuario quiere imprimir desde la tarima 10 a la 20 en total se copiarian 10 papeletas y su numero de tarima empezaria de 10,11.....20 lo que quiero es que al apretar el boton auntomaticamente se copien este formato haciendo espacio para una hoja y si son mas ocupar otra y asi sucesivamente, de hecho este grupo de celdas le he nombrado como "PapeletaIni" las celdas que recibiran texto se llaman "valorIni" y "ValorFin" y al boton de replicar le puse el mismo nombre de variable, espero puedan ayudarme por favor, ya he avanzado un poco pero me pierdo mucho ahi, muchas gracias introducir la descripción de la imagen aquíintroducir la descripción de la imagen aquí

4
  • Por favor, no pongas nunca el código como imagen.
    – Esei
    Commented el 29 ago. 2020 a las 22:41
  • @Elier Sánchez E-Infantes Hola, disculpa me puedes explicar porque razón no puedo poner código como imagen? en realidad llevo poco tiempo en este foro, gracias Commented el 30 ago. 2020 a las 23:16
  • Si pones código como imagen, no podemos copiarlo para reproducirlo, tendríamos que estar escribiendo a mano todo, en vez de copiar y pegar. Por favor, lee bien ¿Cómo elaboro una buena pregunta? y Cómo crear un ejemplo mínimo, completo y verificable.
    – Esei
    Commented el 31 ago. 2020 a las 19:45
  • @Elier Sánchez E-Infantes muy cierto, no lo había notado, gracias por la aclaración lo tomare en cuenta en mis siguientes preguntas en el foro Commented el 1 sept. 2020 a las 20:08

1 respuesta 1

0

¿ El objetivo es generar copias del formato para luego imprimirlos...?

Si es así, seria mas simple generar un procedimiento que vaya cambiando el numero de tarima y luego imprimirla, incluso puedes generar pdf justo después de poner el nuevo numero.

Algo como esto puede servir.

Sub Imprime()
    Dim ini As Integer, fin As Integer
    Dim i As Integer
    
    ini = Range("ValorIni").Value
    fin = Range("ValorFin").Value
    
    For i = ini To fin
        Range("nTarima").Value = i
        ActiveSheet.PrintOut
    Next i
End Sub

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.