![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Microsoft 365 e Office | Excel | Per la casa | Windows
Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Buongiorno, ho un file excel composto da dieci fogli che sono dei moduli che i collaboratori stampano e compilano.
Nel primo foglio c'è un elenco dei moduli. io vorrei inserire una colonna, affianco ai nomi dei moduli, con un pulsante che mi stampa il modulo richiesto.
Es:
COLONNA A COLONNA B
controllo veicoli stampa
controllo ore stampa
controllo pulizia stampa
ecc....
Ecco , vorrei che cliccando sul pulsante stampa mi stampasse il foglio corrispondente al modulo.
Grazie per l'aiuto
- Alt+F11 per aprire l'editor di VBA
- Alt+IM per inserire un nuovo modulo di codice
- Nel nuovo modulo vuoto, incolla il seguente codice:
'=========>>
Option Explicit
'--------->>
Public Sub Tester()
Dim Rng As Range
Dim res As Variant
Dim sStr As String
Set Rng = ActiveSheet.Buttons(Application.Caller).TopLeftCell
sStr = Rng.Offset(0, -1).Value
ThisWorkbook.Sheets(sStr).PrintOut
End Sub
'<<=========
- Alt+Q per chiudere l'editor di VBA e tornare a Excel
- Salva il file con l’estensione xlsm
Assegna tutti i pulsanti alla macro Tester.
Potresti scaricare il mio file di prova Enzo20200423.xlsm
===
Regards,
Norman