You are here:Home-Domande su Excel VBA e MACRO-Copia immagine su tutti i fogli, nella cella sopra quella con testo chiave
Copia immagine su tutti i fogli, nella cella sopra quella con testo chiave2020-04-10T09:24:17+02:00

Home Forum Domande su Excel VBA e MACRO Copia immagine su tutti i fogli, nella cella sopra quella con testo chiave

Taggato: 

Visualizzazione 6 filoni di risposte
  • Autore
    Post
    • Avataraqquila2
      Partecipante
        Post totali: 81

        Ciao a tutti e auguri per la prossima Pasqua!

        Il mio quesito è questo:

        vorrei una macro che mi permetta di inserire una immagine ( è una firma ) su tutti i fogli di un file, nella cella sopra a quella dove si trova un determinato testo: (ad es. nome.cognome)

        Cioè se questo testo “nome.cognome” si trova nella cella A27, l’immagine (“firma”) verrà incollata nella cella A26.

        L’immagine “firma” si trova in un file chiamato Firma.doc ed è già dimensionato al bisogno.

        Grazie per l’aiuto!

        A presto

        Aqquila2

      • BySalvBySalv
        Amministratore del forum
          Post totali: 771

          Ciao Aqquila2, ce bisogno del file, per determinare le posizioni e la grandezza dell’immagine, inoltre le immagini dove sono? sul file oppure in una cartella?.

          togli dati sensibili e fai un esempio anche manuale di come dovrebbe essere.

          Ciao By Sal (8-D

           

           

          Ciao By Sal (8-)
          se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

          • Avataraqquila2
            Partecipante
              Post totali: 81

              ciao BySal

              appena riesco riesco carico il file di prova.

              Nel mentre ho risposto a Kris_9951 che mi ha inviato una soluzione.

              Gli ho chiesto se fosse possibile ” automatizzare ” il processo!

              PS

              cosa uso per allegare il file?

              aqquila2

          • AvatarKris_9951
            Partecipante
              Post totali: 169

              Ciao Aqquila2,

              prova questo.

              Sicuramente è migliorabile ma forse è quello che chiedevi :-)

              https://www.dropbox.com/sh/41wuuljqa03hgx3/AAAu8dgUFjJkM-23-eb0m3iFa?dl=0

               

              Fai sapere se vuoi :-)

              • Avataraqquila2
                Partecipante
                  Post totali: 81

                  Ciao Kris_9951

                  grazie del file!

                  L’ho adattato alle mie esigenze ed è ok! ( qualche problema sulla origine della firma, ma ora sembrea ok!)

                  Stavo pensando…:

                  Ora la macro risiede sul foglio xls dove va lanciata. Questo ( purtroppo) presuppone che l’utilizzatore carichi il modulo sul VBA del foglio e lanci la macro. ( purtroppo non tutti gli utilizzatori hanno grande dimestichezza con VBA.)

                  quindi pensavo se si potesse far risiedere la macro su un foglio di un file a se stante. La macro al momento del lancio dovrebbe aprire in automatico il percorso da cui scegliere il file su cui applicare la macro.

                  Si può?

                  ciao!!

                  aqquila2

              • Avataraqquila2
                Partecipante
                  Post totali: 81

                  ciao a tutti

                  Alcune indicazioni:

                  La macro deve risiedere su un foglio xls vuoto. Lanciando la macro si apre un menù di scelta del file da firmare ( percorso C:\…..)
                  La firma si trova nel file Firma.doc
                  La firma va incollata alla destra del riferimento ( L’Esperto ), non vincolando ad una cella ( solo casualmente il riferimento si trova sempre nella stessa cella )
                  Dovrebbe quindi andare a cercare il riferimento ( L’Esperto) e incollare la firma alla destra, per tutti gli n fogli presenti.
                  A fine ciclo rinominare il file aggiungendogli la parola ESP.

                  sto provando a linkare i file con file dropper ma non riesco….

                  • Questa risposta è stata modificata 5 mesi, 1 settimana fa da Avataraqquila2.
                • BySalvBySalv
                  Amministratore del forum
                    Post totali: 771

                    Ciao filedropper fai l’upload del file sul tuo PC, poi filedropper ti da 2 link quello di sopra devi fare copia incolla del link di sopra nella risposta tutti qui.

                    Ciao By Sal (8-D

                     

                    Ciao By Sal (8-)
                    se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

                    • Avataraqquila2
                      Partecipante
                        Post totali: 81

                        ciao BySal

                        provo a caricare file con filedropper

                        http://www.filedropper.com/fileperfirmaautomatica_5

                        ciao!

                        aqquila2

                      • AvatarKris_9951
                        Partecipante
                          Post totali: 169

                          Ciao Aqquila2,

                          ma la soluzione che ti ho proposto va bene?

                        • Avataraqquila2
                          Partecipante
                            Post totali: 81

                            ciao Kris_9951

                            si, è perfettamente funzionante. L’ho già adattata e messa in funzione.

                            ciao!!

                            aqquila2

                        • AvatarKris_9951
                          Partecipante
                            Post totali: 169

                            Ciao Aqquila2,

                            al solito link il file che hai chiesto.

                            Mi manca solo l’ultimo passaggio, ovvero quello di rinominare il file aggiungendo “ESP” ma è solo questione di tempo.

                            Nel frattempo provalo.

                            Nel link ho messo un file che si chiama “FileVuoto.xlsm” che contiene un bottone che apre una finestra che ti fa scegliere quale file vuoi firmare (in base ai criteri che hai descritto) e poi ho messo anche altri due file per fare le prove.

                            Ricorda che il file firma.doc deve stare vicino al file “FileVuoto.xlsm” altrimenti non trova la firma

                            Fai sapere come va :good: :bye:

                            • Avataraqquila2
                              Partecipante
                                Post totali: 81

                                ciao Kris_9951

                                grazie! L’ho adattato e funziona perfettamente! Se completi con il “rinomina file salvato” andrà meglio!!

                                Una domanda: l’immagine “firma” prova che hai tu risulta poi allineata col testo e sotto il testo. La mia invece risulta sopra il testo ( cioè lo copre ) e non son riuscito a formattarla come la tua!! c’è un modo?

                                ciao!

                                aqquila2

                              • AvatarKris_9951
                                Partecipante
                                  Post totali: 169

                                  Ciao Aqquila2,

                                  scusa la domanda:

                                  ma la stringa è “L`Esperto” oppure “L’Esperto” (cambia l’apostrofo”).

                                  Nel file che hai messo tu quello non è un apostrofo, sembra essere un accento…

                                  Io lo modifico in base a come l’hai scritto tu, ok?

                                • Avataraqquila2
                                  Partecipante
                                    Post totali: 81

                                    ciao!

                                    si ….. ci ho perso 2 ore per capire…. che non era l’apostrofo!! ( è un file generato da un portale)

                                    Se ti viene  bene usa quel segno ( accento?)

                                    ciao!!

                                  • AvatarKris_9951
                                    Partecipante
                                      Post totali: 169

                                      Ok. Prova di nuovo al solito link.

                                      Ok il file viene rinominato aggiungendo ” – ESP” al nome originale

                                       

                                      Fai sapere  :good:

                                    • AvatarKris_9951
                                      Partecipante
                                        Post totali: 169

                                        Ciao Aqquila2,

                                        credo di aver fatto tutto.

                                        Non so come sia l’immagine della firma del tuo file ma dovrebbe essere un’immagine PNG in quanto il formato PNG supporta la trasparenza e questo potrebbe essere la causa del fatto che la mia firma si posiziona sopra al testo mentre la tua no.

                                        Spero di essermi spiegato bene.

                                        Sempre al solito link troverai un file PNG in risoluzione 153×49

                                        Nel caso in cui la tua firma sia un Jpg ti conviene convertirla in PNG eliminando lo sfondo con qualsiasi programma di grafica e gia che ci sei ridimensionala a quella risoluzione perchè si adatta al tuo file.

                                        Prova e fai sapere (se vuoi)  :bye:

                                      • Avataraqquila2
                                        Partecipante
                                          Post totali: 81

                                          Ciao Kris_9951

                                          ok grazie per il suggerimento sul png! Lavoro su questo aspetto!

                                          Un ultima cosa!!: lanciando la macro, se seleziono per errore un file dove non c’è la key word ” L’Esperto” , va in errore e si apre la finestra di VBA che mi segnala l’errore.

                                          é possibile aggiungere un comando che, in caso si selezioni un file che non ha la key word, termini il ciclo senza creare errori?

                                          ciao e ancora grazie!

                                          aqquila2

                                        • AvatarKris_9951
                                          Partecipante
                                            Post totali: 169

                                            Ciao Aqquila2,

                                            ho fatto e trovi tutto al solito link :-)

                                            Fai sapere come va :good:   :bye:

                                          • Avataraqquila2
                                            Partecipante
                                              Post totali: 81

                                              ciao Kris_9951

                                              va molto bene!! :yes: bene

                                              Davvero Grazie!!

                                              Si può osare?….Dato che ho diversi file da firmare( ognuno con n fogli all’interno) , si può modificare il codice dicendogli di apporre la firma su tutti i fogli di tutti i file presenti ( che abbiano la keyword ) in una data Cartella X?

                                              Se si può sarebbe super ok, se no……va bene anche così!!

                                              ciao e ancora grazie!!

                                              aqquila2

                                            • Avataraqquila2
                                              Partecipante
                                                Post totali: 81

                                                ciaoKris_9951

                                                Usando la macro ho trovato un piccolo errore ( forse dovuto al fatto che come indicazioni dicevo che all’interno del file ci sono più fogli!) cioè se nel file ho un solo foglio, la macro va subito alla fine dicendo che non c’è nessun foglio da firmare, e non firma quell’unico foglio!!

                                                Si può correggere?

                                                ciao!!

                                                aqquila2

                                              • AvatarKris_9951
                                                Partecipante
                                                  Post totali: 169

                                                  Ciao Aqquila2,

                                                  la tua ultima richiesta mi ha costretto ha richiedere il supporto del mio maestro, ma è solo questione di tempo (poco tempo) :-)

                                                • Avataraqquila2
                                                  Partecipante
                                                    Post totali: 81

                                                    ok!! :yes:

                                                    graie ciao!!

                                                    aqquila2

                                                     

                                                  • AvatarKris_9951
                                                    Partecipante
                                                      Post totali: 169

                                                      Ciao Aqquila2,

                                                      prova ora.

                                                      Per correttezza ti dico che senza l’aiuto del mio maestro Sid non ce l’avrei fatta.

                                                      Fai sapere se va bene :good:

                                                      https://www.dropbox.com/sh/lmeyyesup3nwycj/AADVPfThpfhD108YwC0ufWawa?dl=0

                                                    • Avataraqquila2
                                                      Partecipante
                                                        Post totali: 81

                                                        ciao Kris_9951 e un caro saluto al Maestro SID,

                                                        grazie a tutti!!

                                                        Ho provato la nuova versione, ma mi da subito un errore sulla riga:

                                                        Dim oFso As Scripting.FileSystemObject

                                                        (errore di compilazione…..)

                                                        Un altro dubbio: le mie cartelle/file  ( da firmare) devono stare nella cartella “File Da Firmare” che ho scaricato?

                                                        ciao!

                                                        aqquila2

                                                      • AvatarKris_9951
                                                        Partecipante
                                                          Post totali: 169

                                                          Mooolto strano…

                                                          Fai questa prova:

                                                          1 Apri il file e premi i tasti Alt F11 per entrare nell’editor VBA

                                                          2 Vai a Strumenti e clicca su Riferimenti.

                                                          3 Poi nella finestra di dialogo verifica che ci sia la spunta su Microsoft Scripting Runtime

                                                          P.s. La cartella dei file da firmare può stare dove vuoi tu 👍

                                                          Fai sapere  :good:

                                                          https://ibb.co/PYDtrPk

                                                        • AvatarKris_9951
                                                          Partecipante
                                                            Post totali: 169

                                                            Aqquila2,

                                                            solo per curiosità:

                                                            ma sarebbe stato possibile copiare la firma direttamente sul file Excel che contiene la Macro senza usare il File Word?

                                                            In parole povere:

                                                            avresti potuto fare a meno del file Word?

                                                          • Avataraqquila2
                                                            Partecipante
                                                              Post totali: 81

                                                              ciao! Kris_9951

                                                              risolto il problemino del Microsoft Scripting Runtime

                                                              Ora il blocco è sul questa riga

                                                              Foglio12.Cells(15, 1).Select

                                                              Per la firma!!! Certo che si, anzi molto meglio se la firma si trova sul file della macro!!

                                                              ciao

                                                              aqquila2

                                                            • AvatarKris_9951
                                                              Partecipante
                                                                Post totali: 169

                                                                Il maestro ha sempre ragione 😂😂

                                                                Se vuoi possiamo adattare il codice…

                                                                 

                                                                Sul problema di Foglio12.cells(15,1).select è strano…

                                                                Stai lavorando proprio sul file che ti ho passato, oppure hai copiato il codice da un file all’altro?

                                                              • Avataraqquila2
                                                                Partecipante
                                                                  Post totali: 81

                                                                  se si potesse…. si certo… evitare un file …inutile, molto meglio

                                                                  Ho usato il file scaricato… ma il Foglio12 è un foglio….virtuale?Non lo vedo nel file ; quando apro il pannelllo di VBA vedo il Foglio12 ma dentro  c’è solo questa stringa

                                                                  Option Explicit
                                                                  Private Sub Workbook_Open()
                                                                  End Sub

                                                                  ciao

                                                                  aqquila2

                                                                • AvatarKris_9951
                                                                  Partecipante
                                                                    Post totali: 169

                                                                    Quante cose strane stamattina… 😂😂

                                                                    prova a sostituire

                                                                    foglio12.cells(15,1).select

                                                                    con

                                                                    ThisWorkbook.worksheets(“Avvio Macro”).cells(15,1).Select

                                                                    Non ricordo se il foglio si chiama “Avvio Macro”, quindi controlla 😉

                                                                  • Avataraqquila2
                                                                    Partecipante
                                                                      Post totali: 81

                                                                      ciao

                                                                      fatto! ho corretto il nome del foglio ( “Avvia Macro”)

                                                                      ma mi dice errore di sintassi…

                                                                    • Avataraqquila2
                                                                      Partecipante
                                                                        Post totali: 81

                                                                        ciao!

                                                                        forse risolto l’ultimo errore ( “Avvia Macro”) le tue virgolette erano diverse!

                                                                        Ora l’errore si è spostato una riga più giù

                                                                        Foglio12.Paste     ( impossibile trovare il metodo…..

                                                                        ciao!

                                                                        aqquila2

                                                                      • AvatarKris_9951
                                                                        Partecipante
                                                                          Post totali: 169

                                                                          Prova a sostituirlo con ActiveSheet.Paste

                                                                        • Avataraqquila2
                                                                          Partecipante
                                                                            Post totali: 81

                                                                            ok risolto anche questo

                                                                            ora il problema è su

                                                                            ‘Set immagine = Foglio12.Shapes(2)

                                                                            sostituisco con

                                                                            Set immagine = ActiveSheet

                                                                            …. va un po meglio… le firme le ha messe…!!

                                                                            ciao

                                                                          • AvatarKris_9951
                                                                            Partecipante
                                                                              Post totali: 169

                                                                              Lo hai sostituito con Set immagine = ActiveSheet.Shapes(2)

                                                                              Giusto??

                                                                              Hai Scritto solo ActiveSheet…

                                                                            • Avataraqquila2
                                                                              Partecipante
                                                                                Post totali: 81

                                                                                si ho scritto questa riga

                                                                                Set immagine = ActiveSheet

                                                                              • AvatarKris_9951
                                                                                Partecipante
                                                                                  Post totali: 169

                                                                                  Ciao Aqquila2,

                                                                                  qui trovi una nuova versione del file delle firme.

                                                                                  Ora puoi mettere la fima direttamente sul file Excel e fare tutto da lì.

                                                                                  Usa questo file perchè qui c’è la mano del maestro :-)

                                                                                  https://www.dropbox.com/sh/lmeyyesup3nwycj/AADVPfThpfhD108YwC0ufWawa?dl=0

                                                                                   

                                                                                  Alla prossima!!  :bye: :bye:

                                                                                • Avataraqquila2
                                                                                  Partecipante
                                                                                    Post totali: 81

                                                                                    Carissimo Kris_9951

                                                                                    scaricato e testato il nuovo ultimo codice. Tutto ok!

                                                                                    Ora lo utilizzo appieno e vedrò ( non credo!!) se ci sono problemi!

                                                                                    Grazie ancora a te e a SID per l’impegno!!

                                                                                    ciao!

                                                                                    aqquila2

                                                                                • Avataraqquila2
                                                                                  Partecipante
                                                                                    Post totali: 81

                                                                                    Non riesco a mettere [RISOLTO] !!

                                                                                  • AvatarKris_9951
                                                                                    Partecipante
                                                                                      Post totali: 169

                                                                                      Non è possibile…

                                                                                      Forse è perchè hai hatto copia/incolla…

                                                                                      Prova a scriverlo manualmente:

                                                                                      ThisWorkbook.Worksheets(“Avvia Macro”).cells(15,1).Select

                                                                                      P.s. Sto rivedendo il codice con il maestro per farlo lavorare con la firma direttamente nel file, però fammi sapere lo stesso  :good:

                                                                                  Visualizzazione 6 filoni di risposte
                                                                                  • Devi essere connesso per rispondere a questo topic.