| | Post: 308 | Registrato il: 13/12/2015
| Città: MILANO | Età: 58 | Utente Senior | 2010 | | OFFLINE | |
|
18/01/2021 17:06 | |
Ciao a tutti.
...ho scoperto di essere nella TOP 10 di Gennaio..e quindi non posso mollare!! 😂.
Vorrei scegliere la stampante e procedera alla stampa se è flaggato SI.
Ma deve esserci un errore madornale in quello che ho scritto.
Sub StampaFlag()
Dim i As Integer
For i = 1 To Sheets.Count - 1
With Sheets(i)
If Range("K62").Value = True Then 'scegli printer
SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
MsgBox "Stampa Cancellata"
Exit Sub
End If
.PrintOut
Sheets("ForSpec").Select
Range("C3").Select
End If
End With
Next i
End Sub
Grazie per l'aiuto. [Modificato da BG66 18/01/2021 17:13] BG66
Excel 2010 |
|
| | Post: 1.060 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Veteran | Excel 2016-32bit Win11 | | OFFLINE |
|
18/01/2021 17:30 | |
Sì, il riferimento del controllo è alla cella $K$11, non $K$62.
Inoltre, avrai un problema se il foglio è solitario, in tal caso non ti funzionerebbe il For/Next. [Modificato da rollis13 18/01/2021 17:32]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 3.039 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
18/01/2021 18:10 | |
Ciao
@Rollis.....perchè se il foglio è 1 solo non dovrebbe eseguire il loop?
Forse se è stato cancellato il Personal??
saluti
[Modificato da dodo47 18/01/2021 18:11] Domenico
Win 10 - Excel 2016 |
| | Post: 1.061 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Veteran | Excel 2016-32bit Win11 | | OFFLINE |
|
18/01/2021 22:11 | |
Approfitto per ricambiare il saluto di Domenico.
Nel file allegato al post #1 ho trovato un file con un solo foglio "ForSpec" e in questa situazione il ciclo:
For i = 1 To Sheets.Count - 1
ovvero:
For i = 1 To 1 - 1
che equivale a:
For i = 1 To 0
non può fare nemmeno il primo 'giro'. [Modificato da rollis13 18/01/2021 22:12]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 308 | Registrato il: 13/12/2015
| Città: MILANO | Età: 58 | Utente Senior | 2010 | | OFFLINE | |
|
19/01/2021 07:02 | |
Ciao a tutti.
Il file ha inizialmente un solo foglio (ForSpec) che si incrementerà successivamente (duplicandosi e inserendo in etichetta il nome del discente).
Quello che non mi è chiaro è dove e come correggere lo script per ovviare, eventualmente, ad entrambi i bachi.
Grazie per l'aiuto.
BG66
Excel 2010 |
| | Post: 1.062 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Veteran | Excel 2016-32bit Win11 | | OFFLINE |
|
19/01/2021 08:49 | |
E lo chiedi a noi che non conosciamo il tuo progetto ! Hai pure lo sviluppo matematico, solo tu sai perché hai messo quel -1 nel ciclo For/Next.
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
| | Post: 309 | Registrato il: 13/12/2015
| Città: MILANO | Età: 58 | Utente Senior | 2010 | | OFFLINE | |
|
19/01/2021 09:09 | |
Ciao @rollis13.
Generalizzando la richiesta e per imparare dai miei errori (purtroppo,i miei script nascono più da adattamenti che da formazione specifica).
Se tu dovessi fare uno script che:
1) si appoggia ad un flag per l'accettazione
2) ti chiede quale stampante vuoi usare.
3) il numero dei fogli si implementerà...strada facendo.
come la scriveresti?
Grazie per l'aiuto.
[Modificato da BG66 19/01/2021 09:10] BG66
Excel 2010 |
| | Post: 1.063 | Registrato il: 16/08/2015
| Città: CORDENONS | Età: 67 | Utente Veteran | Excel 2016-32bit Win11 | | OFFLINE |
|
19/01/2021 09:18 | |
Così come l'hai impostata ma con i due aggiustamenti suggeriti. [Modificato da rollis13 19/01/2021 09:18]
______________________________________________________________
C'è chi fa le COSE a CASO e chi fa CASO alle COSE (Ignoto) |
|
|