Moderatori: Anthony47, Flash30005
If Range("D12") = "" Or Range("D14") = "" Then
MsgBox ("Campi obbligatori non compilati tutti"): Exit Sub
End If
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
'...
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
'...
'...
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
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
Ah ha, hai fatto bene a ricordarti di questo "piccolo particolare".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
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
Torna a Applicazioni Office Windows
inserisci valore in celle a seguito di condizione Autore: ucame |
Forum: Applicazioni Office Windows Risposte: 10 |
[EXCEL] controllo corrispondenza tra valori con un vincolo Autore: sbs |
Forum: Applicazioni Office Windows Risposte: 9 |
Codice per popolare celle con condizione Autore: ucame |
Forum: Applicazioni Office Windows Risposte: 3 |
Come impostare il formato data predefinito in excel? Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: tommasog e 8 ospiti