Risultati da 1 a 9 di 9

Discussione: Esporta/Stampa



  1. #1
    L'avatar di Riccardo64
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Torino
    Età
    53
    Messaggi
    27
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    7

    Esporta/Stampa

    Ciao Gerardo, ciao a tutti
    sono un nuovo utente del forum ma assiduo consultatore dei video di Gerardo su youtube che molto han fatto fino ad oggi dove le mie conoscenze di Excel si perdono. Al dunque, allego un file esempio su quello che cerco di fare:
    dal foglio in oggetto devo estrarre in un altro foglio i nomi dei partecipanti all'evento che sono contrassegnati con 1, 2, Agg., o altro ad esclusione delle celle vuote o con "NO" in base all'elenco della riga 2. So che sarebbe possibile farlo con i filtri ma non mi riporta i nomi nel foglio2 con l'intestazione dell'evento.
    Spero di esser stato chiaro ma sicuramente il file è più intuitivo.


    Grazie a tutti per il tempo che potrete dedicarmi.
    File Allegati File Allegati
    Grazie, Riccardo

  2. #2

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7147
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1300

    Re: Esporta/Stampa

    Ciao,
    quello che chiedi si può fare col vba, vedi se ti va bene la soluzione che ti propongo di seguito.
    1) Ho aggiunto un altro foglio che ho chiamato "STAMPA";
    2) Ho aggiunto un pulsante nel primo foglio che ho nominato "Stampa";
    3) Nella cella T2 del primo foglio (colorata in verde) devi indicare la colonna dalla quale vuoi che siano estratte le presenze, poi clicchi sul pulsante "Stampa".
    4) Il risultato è quello di ottenere nel secondo foglio, per la colonna cha hai scelto, i nomi cognomi e numero di ciascun soggetto partecipante escluse le celle vuote e i NO, come hai chiesto.

    Codice: 
    Option Explicit
    Sub StampaSelettiva()
        Dim wks1 As Worksheet, wks2 As Worksheet
        Dim uRiga As Long, y As Long
        Set wks1 = Worksheets("Uscite 2016")
        Set wks2 = Worksheets("STAMPA")
        Application.ScreenUpdating = False
        y = wks2.Range("A" & Rows.Count).End(xlUp).Row
        If wks2.Range("A3") <> "" Then
       wks2.Range("A3:C" & y) = ""
       wks2.Range("C2") = wks1.Range(wks1.Range("T2") & 2)
       End If
        For y = 3 To 500
            If wks1.Range(wks1.Range("T2") & y) <> "" And wks1.Range(wks1.Range("T2") & y) <> "NO" Then
                wks2.Range("A" & y) = wks1.Range("A" & y)
                wks2.Range("B" & y) = wks1.Range("B" & y)
                 wks2.Range("C" & y) = wks1.Range(wks1.Range("T2") & y)
             End If
        Next
        With wks2
            uRiga = .Cells(Rows.Count, 1).End(xlUp).Row
            For y = uRiga To 3 Step -1
                If .Cells(y, 1).Value = "" Then
                    .Cells(y, 1).EntireRow.Delete
                    Application.CutCopyMode = False
                End If
                If .Range("A" & y) <> "" Then
                    With .Range("A3" & ":C" & y).Borders
                        .LineStyle = xlContinuous
                        .ColorIndex = 12
                        .TintAndShade = 0
                        .Weight = xlThin
                    End With
                End If
            Next
        End With
           Application.ScreenUpdating = True
    End Sub
    File Allegati File Allegati
    Ultima modifica fatta da:ges; 06/04/16 alle 01:28
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  3. I seguenti 2 utenti hanno dato un "Like" a ges per questo post:


  4. #3
    L'avatar di Riccardo64
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Torino
    Età
    53
    Messaggi
    27
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    7

    Re: Esporta/Stampa

    Ciao ges,
    la soluzione da te proposta mi piace molto e potrebbe essere applicata; ti chiedo se esiste qualcosa di simile con le formule di Excel, altrimenti la tua proposta va benissimo.
    Grazie per la collaborazione.
    Riccardo
    Grazie, Riccardo

  5. #4
    L'avatar di pkrome59
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Reggio Calabria
    Età
    58
    Messaggi
    1188
    Versione Office
    Office 2013
    Likes ricevuti
    1198
    Likes dati
    2133

    Re: Esporta/Stampa

    Ciao Riccardo64, ho provato a trovare una soluzione con le formule al tuo problema.
    Premetto che al fine di raggiungere lo scopo, mi sono avvalso dell'aiuto di una colonna aggiuntiva la "A" nel foglio STAMPA.
    Ciò posto, nel foglio STAMPA, ho utilizzato le seguenti:

    In A3:
    =AGGREGA(15;6;(RIF.RIGA('Uscite 2016'!$A$3:$A$77)-RIF.RIGA('Uscite 2016'!$A$3)+1)/((INDICE('Uscite 2016'!$D$3:$L$77;RIGHE($B$3:$B3);CONFRONTA(STAMPA!$D$2;'Uscite 2016'!$D$2:$R$2;0))<>"")*(INDICE('Uscite 2016'!$D$3:$L$77;RIGHE($B$3:$B3);CONFRONTA(STAMPA!$D$2;'Uscite 2016'!$D$2:$R$2;0))<>"NO"));RIGHE($B$3:$B3))

    In B3:
    =SE.ERRORE(INDICE('Uscite 2016'!A$3:A$77;AGGREGA(15;6;(RIF.RIGA($A$3:$A$77)-RIF.RIGA($A$3)+1)/($A$3:$A$77>0);RIGHE($A$3:$A3)));"")

    In C3:
    =SE.ERRORE(INDICE('Uscite 2016'!B$3:B$77;AGGREGA(15;6;(RIF.RIGA($A$3:$A$77)-RIF.RIGA($A$3)+1)/($A$3:$A$77>0);RIGHE($A$3:$A3)));"")

    In D3:
    =SE.ERRORE(INDICE('Uscite 2016'!$D$3:$R$77;CONFRONTA(STAMPA!$B3&STAMPA!$C3;'Uscite 2016'!$A$3:$A$77&'Uscite 2016'!$B$3:$B$77;0);CONFRONTA(STAMPA!$D$2;'Uscite 2016'!$D$2:$R$2;0));"")

    Quest'ultima, formula matriciale da attivare con i tasti: CTRL+MAIUSCOLO+INVIO.

    Tutte e quattro le formule da tirare giù alla bisogna.
    Allego il file di prova.
    Fa sapere.
    File Allegati File Allegati

  6. I seguenti 4 utenti hanno dato un "Like" a pkrome59 per questo post:


  7. #5
    L'avatar di Riccardo64
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Torino
    Età
    53
    Messaggi
    27
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    7

    Re: Esporta/Stampa

    Ciao pkrome59,
    grazie per il tempo che mi hai dedicato, anche la tua è una ottima soluzione, dovrò approntare alcune piccole modifiche per non far comparire il #NUM! e automatizzare l'elenco a discesa. Comunque un ottimo lavoro.
    Grazie ed al prossimo post.
    Grazie, Riccardo

  8. #6
    L'avatar di pkrome59
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Reggio Calabria
    Età
    58
    Messaggi
    1188
    Versione Office
    Office 2013
    Likes ricevuti
    1198
    Likes dati
    2133

    Re: Esporta/Stampa

    Ciao, in allegato il file con le modifiche richieste.
    File Allegati File Allegati

  9. I seguenti utenti hanno dato un "Like"

    ges

  10. #7
    L'avatar di Riccardo64
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Torino
    Età
    53
    Messaggi
    27
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    7

    Re: Esporta/Stampa

    Ciao ges, alla fine sto usando la tua soluzione, anche se non capisco perchè nel copiare la routine proposta nel file di esercizio, questa mi apre in collegamento il file test che mi hai inviato. Dove sbaglio?
    Grazie, Riccardo

  11. #8

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7147
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1300

    Re: Esporta/Stampa

    Ciao Riccardo,
    ho controllato la routine ma non c'è nulla che possa aprire un collegamento ad altri file .. sicuro che non hai dei collegamenti sul tuo file?
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  12. #9
    L'avatar di Riccardo64
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Torino
    Età
    53
    Messaggi
    27
    Versione Office
    Excel 2013
    Likes ricevuti
    0
    Likes dati
    7

    Re: Esporta/Stampa

    Ciao ges, al momento dell'apertura file mi chiede di aggiornare i collegamenti (e non capisco perché e dove si siano generati), dico di non aggiornare e quando eseguo la routine di selezione mi apre il file test che mi hai girato e al momento di salvare il tutto mi dice che le "macro" non possono essere salvate per un progetto VB.
    ho semplicemente copiato la tua stringa e incollata nel modulo del nuovo file....
    Grazie, Riccardo

Discussioni Simili

  1. [Risolto] stampa area di stampa di un foglio diverso
    Di ninnago nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 13/04/17, 11:42
  2. [Risolto] Macro esporta foglio in una nuova cartella come xps
    Di Antonio1008 nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 13/12/16, 10:57
  3. Anteprima di Stampa e Stampa
    Di Pacifico437 nel forum Domande su Excel VBA e MACRO
    Risposte: 21
    Ultimo Messaggio: 28/06/16, 01:24
  4. esporta file con formule nascoste
    Di nick0573 nel forum Domande su Excel VBA e MACRO
    Risposte: 16
    Ultimo Messaggio: 20/04/16, 14:20
  5. esporta In Pdf con Range dinamico
    Di nick0573 nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 06/04/16, 13:45

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •