EXCEL: inputbox con valori ammissibili definiti in foglio

[valle1975]

Ciao, mi appresto ad utilizzare per la prima volta delle INPUTBOX, dopo essermi letto un pò di materiale sul forum, siti vari e help in linea.
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.

[ricky53]

Ciao,
ATTENZIONE: ho qualche perplessità sul codice che hai scritto.

Comunque aggiungi in coda alle tue istruzioni questo codice

Codice: Seleziona tutto

    For I = 2 To 1000
        If Sheets("Dati").Cells(I, 2) = sInput Then
            MsgBox "Valore inserito correttamente"
            Exit Sub
        End If
    Next I
    MsgBox "Il valore non è stato trovato"


Ciao da Ricky53

[valle1975]

Grazie mille.
Si effettivamente era una macro ancora da adattare alle mie esigenze.
Ho adattato il tuo consiglio alla mia esigenza e sono riuscito a sistemarla alla mia esigenza.
Per altri utenti con le mie stesse esigenze, posto il codice finale:

Codice: Seleziona tutto

Sub MODIFICA_CONTESTAZIONE()

Dim N As Integer

Message = " MODIFICA CONTESTAZIONE "
Title = "Inserire Numero della contestazione da Modificare"

N = InputBox(Title, Message)
If N <= 0 Then MsgBox ("ERRORE!! Numero Contestazione NON CORRETTO")
If N > 0 Then
GoTo ok
End If
Exit Sub

ok:
For B = 2 To 1000  ' indica di controllare i valori della colonna B dalla riga 2 alla riga 1000 .il numero di righe da esaminare per la validità dell'inserimento
             If Sheets("Dati").Cells(B, 2) = N Then
'            MsgBox "Valore inserito correttamente"
            GoTo Leggi
        End If
    Next B
    MsgBox ("ATTENZIONE! NON ESISTE La CONTESTAZIONE Numero " & N)
Exit Sub




Leggi: '
da qui segue il codice della Macro operativa


Grazie mille ancora.

[ricky53]

Come sempre il piacere è nell'essere utili a chi pone un quesito.
Buon proseguimento delle tue attività e .. siamo qui.

Ciao da Ricky53