compilazione obbligatoria celle excel

[giumula]

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
grazie infinite

[Flash30005]

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

[Anthony47]

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

[giumula]

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

[Flash30005]

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

[giumula]

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

[Flash30005]

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

[giumula]

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

[Flash30005]

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

[giumula]

!!!E' perfetto!!!
sono commosso anche per il tuo intuito nella comprensione del problema.
Voi 2 fate grande questo forum.
continuate così

[Tes 83]

Buonasera a tutti,
vorrei un seggurimento su come implementare alla macro che ho registato simile a quella della nostra amica.

Vi spiego, se compilo la cella d10 anche la cella anche la cella f10 e g 10 devo essere compilati altrimenti non abilito la stampa, come faccio

[Tes 83]

Questa è la macro che ho registato:
Sub Macro3()
'
' Macro3 Macro
'
'
ChDir "H:\MAN\Consegne"
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"H:\MAN\Consegne\Consegne Mattina.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

[Tes 83]

Io ho provato a mettere in testa alla mia macro l'istruzione che avete formulato per giumula e funziona perfettamente ma nel mio caso la casella d 10 non sembre va compilata, ma se compilata vanno compilate anche le celle f 10 e g 10.

grazie mille

[Anthony47]

Questa richiesta non l'avevo notata...
In linea di massima, mi pare che bisogna subordinare il codice della tua Macro3 a una If:

Codice: Seleziona tutto

Sub Macro3()

If Range("D10")<>"" and (Range("F10")="" Or Range("G10")="") then
    Msgbox("Controllare le celle Obbligatorie F10 e G10; salvataggio pdf Abortito"
    Exit Sub
end if
ChDir "H:\MAN\Consegne"
'etc etc


Se pero' cosi' non risolvi, allora per evitare equivoci dovresti descrivere la tua esigenza senza lasciarcela immaginare da quanto fatto con giumula "qualche anno fa".


Ciao

[Tes 83]

Buongiorno Anthony,
Mi dispiace ma il tuo succerimento non funziona, quindi provo a descrivere meglio la mia esigenza.
Io ho creato un file di excel che serve a me e i miei colleghi per il passaggio di consegne, questo file a fine compilazione giornaliera tramite la pressione di un pulsante (macro 3) crea un pdf che ci inviamo tramite mail, spesso capita che qualche campo non venga compilato, di qui la mia esigenza di far apparire la scritta " non tutti i campi sono stati compilati".
Il proplema è che non sempre questi campi devono essere compilati ma se compilato il primo anche altri diventano obbligatori, ovvero se compilo la cella D 10 va compilata di conseguenza la cella F 10 e G10.
Ti ringrazio in anticipo per la collaborazione e spero che cosi sia più chiaro, ti inserisco nuovamente la mia macro

Sub Macro3()
'
' Macro3 Macro
'

'
ChDir "H:\MAN\Consegne"
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"H:\MAN\Consegne\Consegne Centrale.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End Sub

[Tes 83]

Scusami ancora Anthony, ma ho dimenticato un particolare importante, il discorso cella compilata D 10 e di conseguenza F 10 e G 10 vale anche per le successive ,quindi se D 11 Di conseguenza F 11 e G 11.
Grazie ancora

[Anthony47]

ho dimenticato un particolare importante, il discorso cella compilata D 10 e di conseguenza F 10 e G 10 vale anche per le successive ,quindi se D 11 Di conseguenza F 11 e G 11

Ah ha, hai fatto bene a ricordarti di questo "piccolo particolare".
Prova con

Codice: Seleziona tutto

Sub Macro3()

If Range("D10") <> "" And (Range("F10") = "" Or Range("G10") = "") Or _
  Range("D11") <> "" And (Range("F11") = "" Or Range("G11") = "") Then
    MsgBox ("Controllare le celle Obbligatorie F10/F11 e G10/G11; salvataggio pdf Abortito")
    Exit Sub
End If
ChDir "H:\MAN\Consegne"
'etc etc


Ciao

[Tes 83]

Buonasera a tutti e sopratutto a Anthony74,
Così e perfetta ora funziona alla grande.
Grazie mille per il succerimento