Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

compilazione obbligatoria celle excel

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

compilazione obbligatoria celle excel

Postdi giumula » 28/02/12 18:42

salve a tutti,
mi serve una mano per un foglio excell che deve essere compilato obbligatoriamente in alcune celle .
Vorrei che chi compila il foglio non possa stamparlo col pulsante "STAMPA", che ho creato con una macro registrata, e che stampa l'area di lavoro definita.
Es. se non compili la cella D12 che corrisponde al nome e la cella D14 del codice fiscale, allora quando vai a premere il tasto stampa (MACRO) , questa non avviene e ti compare il messaggio di errore "compilare nome, compilare cognome" oppure "i seguenti campi non sono compilati; nome, codice fiscale..".
ho letto altri topic simili, però lì si trattava di impedire il salvataggio del documento, mentre a me non interessa salvarlo, ma solo stamparlo...
spero di non avere chiesto una cosa difficile
:oops: grazie infinite :oops:
giumula
Newbie
 
Post: 5
Iscritto il: 28/02/12 18:06

Sponsor
 

Re: compilazione obbligatoria celle excel

Postdi Flash30005 » 28/02/12 22:03

Ciao Giumula e benvenuto nel Forum

Penso si possa fare mettendo un controllo celle vuote (con obbligo di contenere un valore) prima del comando di stampa che hai registrato.
Pertanto pubblica la macro da te registrata e l'elenco delle celle che devono essere compilate prima della stampa

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: compilazione obbligatoria celle excel

Postdi Anthony47 » 29/02/12 01:36

Credo che dovrebbero bastere queste istruzioni in testa alla tua macro:
Codice: Seleziona tutto
If Range("D12") = "" Or Range("D14") = "" Then
    MsgBox ("Campi obbligatori non compilati tutti"): Exit Sub
End If

Se non risolvi allora procedi come richiesto da Flash.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: compilazione obbligatoria celle excel

Postdi giumula » 29/02/12 12:28

Funziona perfettamente!!!!
Ho consegnato il lavoro.
Siete entrambi impagabili. sospettavo che fosse abbastanza semplice..ma non per me, e negli altri siti di forum nessuno rispondeva.
grazie mille.
la macro che è uscita è la seguente.....................

Codice: Seleziona tutto
Sub STAMPA_FOGLIO()
'
' STAMPA_FOGLIO Macro
' Macro registrata il 16/02/2012 da Asl7
'

If Range("D12") = "" Or Range("I12") = "" Or Range("D14") = "" Or Range("I14") = "" Or Range("D20") = "" Or Range("E20") = "" Or Range("D24") = "" Then
    MsgBox ("i Campi obbligatori non sono tutti compilati "): Exit Sub
End If

    Range("B2:K61").Select
    Range("K61").Activate
    Selection.PrintOut Copies:=1, Collate:=True
End Sub
giumula
Newbie
 
Post: 5
Iscritto il: 28/02/12 18:06

Re: compilazione obbligatoria celle excel

Postdi Flash30005 » 01/03/12 16:59

Puoi anche avere tutto più "compatto" per facilitare eventuali future modifiche del Range
Codice: Seleziona tutto
   
'...
Area2 = "D12,I12,D14,I14,D20,E20,D24"
    For Each cella In Range(Area2)
        If cella.Value = "" Then
        Application.ScreenUpdating = True
            MsgBox Prompt:="La cella " & cella.Address & " è vuota! ", _
                      Buttons:=vbCritical, _
                      Title:="Avvertimento!"
                      cella.Select
                      'Errore = 1
            Exit Sub
        End If
    Next
'...
'...

Oltre a segnalarti il messaggio ti fornisce l'indirizzo della cella vuota e la seleziona per facilitare la scrittura.
Il tipo e testo del messaggio lo vari secondo tua esigenza

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: compilazione obbligatoria celle excel

Postdi giumula » 06/03/12 12:15

vi chiedo un altro aiuto!
Ho una cella (C28) collegata ad un menù a tendina di un altro foglio ed in base a ciò che si sceglie si deve scegliere una voce in un'altra cella (G28) anche essa con menù a tendina. Ho 10 celle come questa (C29; C30 ecc.) e 10 come la G28 (G29; G30 ECC)
Per indicare a chi compila che scegliendo in C28 la voce (ad es. "ferrari !" o "lamborghini !" anzichè "fiat" ) c'è da compilare la seconda cella G28, ho inserito un messaggio in una cella attigua (E28)con questa formula

=SE(VAL.NUMERO(TROVA("!";C28));" scegli colore";"")

la scritta è bella evidente, ma c'è qualcuno che continua ad ignorarla e quindi non indica ciò che mi serve obbligatoriamente.
Come posso rendere obbligatoria la compilazione delle celle come la G28 se si sceglie "ferrari !" o "lamborghini !" ?.
Ricordate che sto usando la macro per il pulsante di stampa che mi ha suggerito Flash che blocca la stampa di altre celle, che però non hanno menù a tendina, ma sono a compilazione libera.
'...
Area2 = "D12,I12,D14,I14,D20,E20,D24"
For Each cella In Range(Area2)
If cella.Value = "" Then
Application.ScreenUpdating = True
MsgBox Prompt:="La cella " & cella.Address & " è vuota! ", _
Buttons:=vbCritical, _
Title:="Avvertimento!"
cella.Select
'Errore = 1
Exit Sub
End If

grazie INFINITAMENTE
giumula
Newbie
 
Post: 5
Iscritto il: 28/02/12 18:06

Re: compilazione obbligatoria celle excel

Postdi Flash30005 » 06/03/12 23:19

Con lo stesso procedimento della precedente macro dovresti "Controllare" la variazione valore della cella C28
in tal caso se nella cella G28 continua ad esserci "scegli colore", l'utente avrà lo stesso messaggio di errore

Se non è sufficiente questo input posta ancora

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: compilazione obbligatoria celle excel

Postdi giumula » 07/03/12 07:03

effettivamente non sono stato molto chiaro.

La cella C28 contiene un menù a tandina in cui la scelta solo di alcune voci richiede l'indicazione di un numero nella cella G28 ( e cioè solo quelle che nell'elenco hanno il testo che finisce con "!")
Il "!" serve alla formula della cella E28 perchè compaia in essa il messaggio " l'articolo scelto necessita la compilazione della cella G28".

La cella G28 contiene un menù a tendina che non deve sempre contenere un valore, cioè non va sempre compilato, ma obbligatoriamente solo quando nella C28 si scelgono le voci che finiscono con "!", oppure quando nella E28 compare il messaggio della formula.
E' contorto? Però senza quest'ultima modifica che mi serve funziona bene.
grazie
giumula
Newbie
 
Post: 5
Iscritto il: 28/02/12 18:06

Re: compilazione obbligatoria celle excel

Postdi Flash30005 » 07/03/12 13:03

Aggiungi le righe codice o sostituisci l'intera macro "Stampa"
Codice: Seleziona tutto
Sub STAMPA_FOGLIO()

If Range("D12") = "" Or Range("I12") = "" Or Range("D14") = "" Or Range("I14") = "" Or Range("D20") = "" Or Range("E20") = "" Or Range("D24") = "" Then
    MsgBox ("non tutti i campi OBBLIGATORI sono stati compilati"): Exit Sub
End If

'---- <<< aggiungere queste righe
For RR = 28 To 42 Step 2
If Range("E" & RR).Value = "INSERIRE NOTA AIFA" And Range("G" & RR).Value = "" Then
MsgBox ("I campi NOTA AIFA non sono stati compilati")
Range("G" & RR).Select
Exit Sub
End If
Next RR
'---<<<< fine aggiunta

    Range("B2:K61").Select
    Range("K61").Activate
    Selection.PrintOut Copies:=1, Collate:=True
End Sub


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: compilazione obbligatoria celle excel

Postdi giumula » 07/03/12 16:16

!!!E' perfetto!!!
sono commosso anche per il tuo intuito nella comprensione del problema.
Voi 2 fate grande questo forum.
continuate così
giumula
Newbie
 
Post: 5
Iscritto il: 28/02/12 18:06


Torna a Applicazioni Office Windows


Topic correlati a "compilazione obbligatoria celle excel":


Chi c’è in linea

Visitano il forum: alfrimpa e 31 ospiti