Ho un problema che non riesco a risolvere: devo definire che i valori di una inputbox ammissibili siano quelli contenuti nel foglio Dati all'interno dell'intervallo B2 : B1000.
Nel caso tale valore sia uguale a zero e Non presente nei valori di quell'intervallo, deve restituirmi un errore in msgbox e ripropormi l'inputbox.
Partivo da questo esempio, ma non so come modificarlo per definire quel range di valori ammissibili.
- Codice: Seleziona tutto
Sub Tester()
Dim sInput As Byte
Do While Len(sInput) = 0
Message = " MODIFICA CONTESTAZIONE "
Title = "Inserire Numero della contestazione da Modificare"
N = InputBox(Title, Message)
If StrPtr(sInput) = 0 Then
MsgBox Prompt:="Hai cancellato!", _
Buttons:=vbCritical, _
Title:="CANCELLATO"
Exit Sub
Else
If Len(sInput) = 0 Then
MsgBox Prompt:= _
"Hai premuto 'OK' ma non hai digitato niente!", _
Buttons:=vbInformation
End If
End If
Loop
MsgBox sInput ' per verificare
'''' resto del codice
End Sub
Grazie per l'aiuto. Saluti.