Sviluppare funzionalita su Microsoft Office con VBA ESEGUIRE CTRL ALT L SU OGNI FOGLIO AD APERTURA FILE

LoginRegistrati
Stai vedendo 15 articoli - dal 1 a 15 (di 15 totali)
  • Autore
    Articoli
  • #19551 Risposta

    ROBERTAZZO

      Ho la necessità di eseguire CTR ALT L ad ogni apertura di un file EXCEL, per riaggiornare righe dei fogli 2,3,4 che si aggiornano in base ai dati del foglio1.

      Se lo eseguo da tastiera manualmente funziona.

      Ho provato con questa funzione ma non ottengo il risultato desiderato. 

       

      Private Sub Worksheet_Change(ByVal Target As Range)
      Sheets("Sheet2").AutoFilter.ApplyFilter
      End Sub

      #19552 Risposta
      Luca73
      Luca73
      Partecipante
        16 pts

        Ciao

        Cosa sarebbe un CTRL ALT L?

        Poi scrivi che devi farlo ogni volta apri un file excel poi usi un Worksheet_Change che non è coerente.

         

        Per favore spiega meglio qullo che devi fare.

        #19553 Risposta

        ROBERTAZZO

           

           

          immagine 001 . se inserisco nuova riga nel foglio1 e faccio CTRL+ALT+L mi aggiorna il foglio 2 creando la riga (immagine 002)

           

          001

           

          002

           

          #19554 Risposta
          Luca73
          Luca73
          Partecipante
            16 pts

            Cosa hai messo nel foglio 2? formule? tabella pivot?

             

            #19555 Risposta
            Luca73
            Luca73
            Partecipante
              16 pts

              Se allegassi il tuo file dsenza dati sensibili sarebbe moto utile per un'analisi del problema

              #19557 Risposta

              ROBERTAZZO

                NEL FOGLIO 2,3,4  ci sono filtri dati..devo applicare questi ...allego file "depurato" 

                #19558 Risposta
                Luca73
                Luca73
                Partecipante
                  16 pts

                  manca allegato

                  #19559 Risposta
                  patel
                  patel
                  Moderatore
                  • Sfida #6
                    33 pts

                    Robertazzo, per allegare ti devi  registrare sul forum

                    #19649 Risposta

                    robertazzo
                    Partecipante

                      allego file "pulito"

                      Allegati:
                      You must be logged in to view attached files.
                      #19657 Risposta
                      Marius44
                      Marius44
                      Moderatore
                      • Sfida #4
                        11 pts

                        Ciao

                        Ammetto che non ho capito molto ma forse tu intendi fare un filtro di tutti i fogli ogni volta che apri il file.

                        Premesso che non capisco perchè ci debbano essere tanti fogli da filtrare quando ne basterebbe uno solo da filtrare alla bisogna, prova con questa macro (per il file che hai allegato)

                        `Private Sub Workbook_Open()
                        For i = 2 To Sheets.Count
                          With Sheets(i)
                            .Select
                            .Range("A1:D40").Select
                            Selection.AutoFilter
                            .Range("A1").Select
                            .Range("$A$1:$D$40").AutoFilter Field:=1, Criteria1:=Chr(i + 63)
                          End With
                        Next i
                        End Sub`

                        La macro, ovviamente, è da inserire nel Modulo di Questa cartella di lavoro.

                        La macro è da migliorare in punto numero di righe per ogni foglio.

                        Fai sapere. Ciao,

                        Mario

                        #19662 Risposta

                        robertazzo
                        Partecipante

                          funziona ma mi azzera i filtri ...quando riapro 

                          #19668 Risposta
                          Marius44
                          Marius44
                          Moderatore
                          • Sfida #4
                            11 pts

                            Ciao

                            Cosa intendi "mi azzera i filtri"

                            Ciao,

                            Mario

                             

                            PS - Ho detto che la macro deve essere migliorata e lo deve essere anche nel punto indicato. Ciò però dipende anche dal tuo grado di conoscenza di VBA

                            #20083 Risposta

                            robertazzo
                            Partecipante

                              nel mio esempio ho messo A, b,C che sarebbero i reali fornitori ... quindi la tua formula ha incrementato il carattere per fare il filtro e come logica ha senso nel mio esempio.

                               

                              .Range("$A$1:$D$40").AutoFilter Field:=1, Criteria1:=Chr(i + 63)

                               

                              ma con dei veri fornitori tipo Rossi, Bianchi e Verdi come posso gestirmela ?

                              #20093 Risposta
                              Marius44
                              Marius44
                              Moderatore
                              • Sfida #4
                                11 pts

                                Ciao

                                Continuo a non capire.

                                Ma tu hai provato la macro coi nomi reali? Ha funzionato oppure ti ha dato qualche problema? e in caso affermativo che tipo di problema? quale messaggio di errore hai ricevuto?

                                 

                                Ciao,

                                Mario

                                #20099 Risposta

                                ROBERTAZZO

                                  viene "sbiancato" il filtro ..appena metto dei nomi reali al posto di A,B,C.

                                  Se riapplico il filtro funziona. Quando salvo e rientro col file , lo risbianca..

                                LoginRegistrati
                                Stai vedendo 15 articoli - dal 1 a 15 (di 15 totali)
                                Rispondi a: ESEGUIRE CTRL ALT L SU OGNI FOGLIO AD APERTURA FILE
                                Gli allegati sono permessi solo ad utenti REGISTRATI
                                Le tue informazioni:



                                vecchio frac - 2704 risposte

                                albatros54
                                albatros54 - 704 risposte

                                patel
                                patel - 625 risposte

                                Marius44
                                Marius44 - 536 risposte

                                Luca73
                                Luca73 - 508 risposte