Jump to content
  • Debido a la crisis sanitaria, hasta el día 31 de marzo, el registro al foro de Ayuda Excel será totalmente gratuito para facilitar el teletrabajo. Todos los registros que se produzcan entre estas fechas tendrán acceso gratuito ilimitado a la comunidad hasta el 30 de abril.

    Regístrate

    Si te surge alguna duda mientras estás trabajando en casa con Excel, ya tienes a quien preguntar.

    Espero que esta medida te sirva de ayuda. Frenar la expansión del coronavirus depende de todos. Sé responsable.

SALAVERRINO

IMPRESION DE UNA LISTA DESPLEGABLE

Recommended Posts

Buenos días a los integrante del foro, en esta ocasión recurro a uds, para que me brinde su apoyo y colaboración mediante una macro o formula, una impresión continua de una lista desplegable para una boleta de pago, a continuación detallo:

En la Hoja PLANILLA, se encuentra la base de datos

En la Hoja RESUMEN, mediante una lista desplegable en la celda C1, se lograr filtra los DNI como valores únicos

En la Hoja BOLETA, mediante formulas se logra transponer los datos que deberán ser impreso por cada trabajar su remuneración de la lista desplegable.

Lo que se prende es que el valor de la celda C1 (lista desplegable de la hoja resumen) vayan variando de 1 en 1, para que en la hoja boleta se imprima trabajador por trabajador hasta el ultimo registro (DNI) de esa lista desplegable, espero haberme explicado lo que pretendo obtener como resultado, para lo cual adjunto archivo zipeado.

Gracias por su apoyo y colaboración.

PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part01.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part02.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part03.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part04.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part05.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part06.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part07.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part08.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part09.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part10.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part11.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part12.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part13.rar

PLANTILLA ELECTRONICA x ESPECIALIDAD v2 - copia.part14.rar

Share this post


Link to post
Share on other sites

Buenos días tierra_pampa, agradezco de antemano por la ayuda y colaboración con la macro,  por lo que era el resultado requerido para dicha base de datos e impresión de boletas, por lo que nuevamente agradezco tu apoyo y daría por tema SOLUCIONADO.

Share this post


Link to post
Share on other sites

Hola Salaverrino

Otra forma de hacerlo, seria:

Sub ImprimirDesdeValidacion_GP()

Application.ScreenUpdating = False
With Hoja1
    vuf = .Range("B" & .Rows.Count).End(xlUp).Row
    .Range("B7:B" & vuf).AdvancedFilter 1, , , 1
    For Each cel In .Range("B7:B" & vuf).SpecialCells(12)
        If cel.Row > 7 And cel <> 0 Then
            Hoja3.Cells(1, "C") = cel
            Rem Hoja4.Range("A1:O64").PrintOut , , 1 'IMPRIMIR
            Hoja4.Range("A1:O64").PrintPreview
            DoEvents
        End If
    Next
    .ShowAllData
End With
Application.ScreenUpdating = True

End Sub

 

Saludos a ambos

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png