Macro stampa su Excel

Anonimo
2024-08-14T12:13:46+00:00

Ciao a tutti, Avrei bisogno di una mano per una macro di excel Ho creato il tasto stampa, devo assegnare solo la macro, vorrei stampare tutti i fogli presenti nella cartella di lavoro, devo stampare solo i fogli che nella cella J3 hanno la parola SI, questo SI è dato da una formula.

[corretto titolo]

Microsoft 365 e Office | Excel | Per la casa | Altro

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento

6 risposte

Ordina per: Meno recente
  1. Eleuterio Tedeschi 18,750 Punti di reputazione Moderatore volontario
    2024-08-14T12:23:29+00:00

    Se pubblichi la macro ti diciamo dove e cosa devi modificare,

    ciao.

    P.S.

    Excel e non eccel, ho corretto io

    La risposta è stata utile?

    0 commenti Nessun commento
  2. Anonimo
    2024-08-14T12:41:09+00:00

    Se pubblichi la macro ti diciamo dove e cosa devi modificare,

    ciao.

    P.S.

    Excel e non eccel, ho corretto io

    Grazie per la correzione, errore di digitazione.

    Non saprei nemmeno da dove partire con la macro, non sono esperto.

    Se riesci a darmi una mano, grazie

    La risposta è stata utile?

    0 commenti Nessun commento
  3. Eleuterio Tedeschi 18,750 Punti di reputazione Moderatore volontario
    2024-08-14T13:13:49+00:00

    Senza un abbozzo di codice e senza il file prova:

    Sub Stampa() 
    
    Dim wksTemp As Worksheet 
    
        For Each wksTemp In Worksheets 
    
            If UCase(wksTemp.Range("J3").Value) = "SI" Then 
    
                wksTemp.PrintOut 
    
            End If 
    
        Next wksTemp 
    
    End Sub
    

    Ciao.

    La risposta è stata utile?

    0 commenti Nessun commento
  4. Anonimo
    2024-08-14T13:58:15+00:00

    Senza un abbozzo di codice e senza il file prova:

    Sub Stampa() 
    
    
    
    Dim wksTemp As Worksheet 
    
    
    
     
    
    
    
        For Each wksTemp In Worksheets 
    
    
    
            If UCase(wksTemp.Range("J3").Value) = "SI" Then 
    
    
    
                wksTemp.PrintOut 
    
    
    
            End If 
    
    
    
        Next wksTemp 
    
    
    
         
    
    
    
    End Sub
    

    Ciao.

    Grazie mille, funziona👍👍

    Ti disturbo l'ultima volta per chiederti, è possibile inserire un codice che stampi piu copie? Per esempio, in una colonna ho una serie di numeri che indicano quante stampe del relativo foglio

    Ce qualcosa che si può fare?

    Tipo ce scritto 2, allora del relativo foglio stampa due volte

    Grazie mille

    La risposta è stata utile?

    0 commenti Nessun commento
  5. Eleuterio Tedeschi 18,750 Punti di reputazione Moderatore volontario
    2024-08-14T14:18:21+00:00

    è possibile inserire un codice che stampi piu copie? Per esempio, in una colonna ho una serie di numeri che indicano quante stampe del relativo foglio

    Aggiungi il numero di copie al metodo PrintOut:
    wksTemp.PrintOut Copies:= numerodicopie

    dove numerodicopie è il valore che puoi recuperare,

    ciao.

    La risposta è stata utile?

    0 commenti Nessun commento