Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

EXCEL: inputbox con valori ammissibili definiti in foglio

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

EXCEL: inputbox con valori ammissibili definiti in foglio

Postdi valle1975 » 21/10/10 17:19

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.
Valerio
---------------------------------
Win Xp + MS Office 2010 Ita
valle1975
Utente Senior
 
Post: 196
Iscritto il: 27/09/10 16:33

Sponsor
 

Re: EXCEL: inputbox con valori ammissibili definiti in fogli

Postdi ricky53 » 21/10/10 17:38

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
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: EXCEL: inputbox con valori ammissibili definiti in fogli

Postdi valle1975 » 22/10/10 13:53

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.
Valerio
---------------------------------
Win Xp + MS Office 2010 Ita
valle1975
Utente Senior
 
Post: 196
Iscritto il: 27/09/10 16:33

Re: EXCEL: inputbox con valori ammissibili definiti in fogli

Postdi ricky53 » 22/10/10 17:18

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

Ciao da Ricky53
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL: inputbox con valori ammissibili definiti in foglio":


Chi c’è in linea

Visitano il forum: Nessuno e 10 ospiti