Testare valore errato inputbox



  • Testare valore errato inputbox
    di Armando (utente non iscritto) data: 16/02/2012

    Salve a tutti il mio problema è di verificare anche, nella routine di una userform, se il dato inserito in textbox è sbagliato o no e quindi far apparire il messaggio: "numero di scheda errato"o andare avanti con la routine.
    i numeri sono del tipo alfanumerico (esempio:s10,s20,s30 ecc.)e si trovano in un range di celle in colonna. se inserisco sulla textbox il codice s10 potrò poi copilare la scheda relativa ma se scrivo un codice sbagliato la macro va in errore.la routine deve capire che il numero della scheda, riporato nel range a11:a704 è sbagliato ,darmi il messaggio di errore e predisporsi x il nuovo inserimento.
    vi allego le istruzioni corrette senza il controllo di errore.
    in che punto e cosa scrivo per ottenere ciò che voglio?
    grazie tante per l'aiuto! saluti armando

    private sub commandbutton1_click()
    dim manutenzione as string
    range("a11:a704").select
    for each cell in selection
    if cell.value = textbox7.value then
    manutenzione = cell.address
    end if
    next
    if range(manutenzione).offset(3, 6) = "" and range(manutenzione).offset(4, 3) = "" then
    msgbox "seleziona prima ok o scrivi nota"
    me.hide
    exit sub
    else
    userform2.hide 'togli finestra solo num. scheda
    userform2bis.show 'finestra numero scheda e pwd
    end if
    end sub