if else endif

Versione Completa   Stampa   Cerca   Utenti   Iscriviti     Condividi : FacebookTwitter
xam99
00lunedì 27 febbraio 2017 18:26
Ciao a tutti.
Un aiuto.
Mi incasino sempre con gli if else endif
Ho 2 celle che devono sempre essere tutte e due compilate.

se B1 è vuota msgbox1...
se B2 è vuota msgbox2...

------------------------------------------------------------------------
Dim ART1, ART2 As String

ART1 = ActiveSheet.Range("B1").Value
ART2 = ActiveSheet.Range("B2").Value

If ART1 = "" Then
MsgBox "devi inserire un ARTICOLO 1!", vbExclamation, "ATTENZIONE!"
Exit Sub
'End If

If ART2 = "" Then
MsgBox "devi inserire un ARCOLO 2!", vbExclamation, "ATTENZIONE!"
Exit Sub
------------------------------------------------------------------------

xam
patel45
00lunedì 27 febbraio 2017 18:49
If ART1 = "" Then
  MsgBox "devi inserire un ARTICOLO 1!", vbExclamation, "ATTENZIONE!"
  Exit Sub
ElseIf ART2 = "" Then
  MsgBox "devi inserire un ARTICOLO 2!", vbExclamation, "ATTENZIONE!"
  Exit Sub 
End If
tanimon
00lunedì 27 febbraio 2017 18:57
ciao
ed un saluto a Patel

questa discussione come è finita?

ciao
Frank
xam99
00lunedì 27 febbraio 2017 19:41
Grazie patel,
è ok. [SM=g27811]
xam
Questa è la versione 'lo-fi' del Forum Per visualizzare la versione completa clicca qui
Tutti gli orari sono GMT+01:00. Adesso sono le 06:58.
Copyright © 2000-2024 FFZ srl - www.freeforumzone.com