Sviluppare funzionalita su Microsoft Office con VBA stampa condizionale con VBA

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

    Ricky

      Ciao,

      Dovrei "banalmente" stampare i fogli di un file excel a condizione che la cella C 6 di ciascun foglio sia >1.

      Per la creazione del pulsante e il suo collegamento sono già preparato .... del resto è la cosa più facile.

      Vi ringrazio anticipatamente per l'aiuto.

      Ricky

      #26756 Risposta
      Marius44
      Marius44
      Moderatore
        21 pts

        Ciao

        Da quello che scrivi sembra "banalmente" che tu debba crearti un ciclo che "spazzoli" i fogli del tuo file e, se la cella C6 di ciascun Foglio è >1, allora stampi il foglio.

         

        Ciao,

        Mario

        PS - Scusa l'ironia ma sarebbe meglio "vedere" un tuo file con le prove fatte per, eventualmente, correggerle. 

        #26757 Risposta

        Ricky

          Ciao Mario,

          Ti confesso che non ho nessuna conoscenza del VBA e quelle poche cose che ho fatto le ho spudoratamente copiate e incollate al bisogno. 

          Si tratta di un file excel dove alcuni fornitori (fogli) devono ricevere lo stesso foglio a loro intestato solo se lo stesso è stato movimentato (cella C6 >0).

          Se mi potessi aiutare ugualmente te ne sarei grato.

          Grazie ancora.... Ricky

           

           

          #26758 Risposta

          Ricky

            Ci sono quasi ..... 

            Sub STAMPA()
            With Sheets("foglio1")
            If .Range("c6") > 0 Then
            ActiveWindow.SelectedSheets.PrintOut Copies:=1,
            End If
            End With
            End Sub

            però così NON mi stampa il foglio 1 ma il foglio dove ho posizionato il pulsante ....

            Help !!!!

            #26759 Risposta

            Ricky

              Evviva !!!!!! 

              RISOLTO

              Sub STAMPA()
              With Sheets("foglio1")
              If .Range("c6") > 0 Then
              Sheets("foglio1").PrintOut Copies:=1, Collate:=True
              End If
              End With
              End Sub

              Grazie ugualmente.

              Ciao a tutti.

               

              #26761 Risposta
              Marius44
              Marius44
              Moderatore
                21 pts

                Ciao

                Visto che sforzandosi un po' qualcosa s'impara. Bravo!

                Adesso eccoti l'aiuto

                Sub STAMPA_Bis()
                For i = 1 to Sheets.Count
                  If Sheets(i).range("C6") > 0 then Sheets(i).PrintOut Copies:=1, Collate:= True
                Next i
                End Sub

                Questo codice "dovrebbe stampare TUTTI i fogli "movimentati" del tuo file.

                Ciao,

                Mario 

              LoginRegistrati
              Stai vedendo 6 articoli - dal 1 a 6 (di 6 totali)
              Rispondi a: stampa condizionale con VBA
              Gli allegati sono permessi solo ad utenti REGISTRATI
              Le tue informazioni:



              vecchio frac - 2750 risposte

              albatros54
              albatros54 - 1009 risposte

              patel
              patel - 908 risposte

              Marius44
              Marius44 - 786 risposte

              Luca73
              Luca73 - 675 risposte