select case

Hai un problema con Excel?

Nuova discussione

select case
di mash (utente non iscritto) data: 13/05/2013 10:20:18
Select Case e ciclo for i....
Perchè non funziona ?????

Public sub Pagine_all()

Select Case varPag

Case Is = "pagina1"
     For i = 1 To 6
     If UserForm2.Controls("optpag" & i).value = False Then
     varPag = "esiste"
     Else
     varPag = "non esiste"
     End If
     Next i
End Select
End Sub

di totygno71 (utente non iscritto) data: 13/05/2013 11:44:19
Ma varPag a cosa corrisponde???
di Vecchio Frac data: 13/05/2013 20:05:07
Ma esattamente che errore ottieni? e su che riga?
Ciò premesso, ricordati che l'operatore Is generalmente non viene usato per il test di uguaglianza.
La variabile "varPag" deve essere sempre di tipo stringa.
In conclusione basta solo
Select Case varPag Case "pagina1"
di Vecchio Frac data: 13/05/2013 20:18:33
Mi accorgo solo adesso che a distanza di pochissimo hai aperto qui la stessa discussione una seconda volta (rif: excelvba.it/Forum/thread.php?f=2&t=4242).
Ciò non è corretto, si aprono due filoni quando in realtà la discussione è la stessa. In generale non si deve postare la medesima identica problematica nelle due sezioni del forum.
Chiudo pertanto questa discussione (posteriore in ordine cronologico) e invito a proseguire l'altra.

select case
di mash (utente non iscritto) data: 13/05/2013 10:16:02
Ciao a tutti, ho scritto questo codice in un modulo ma non so perchè quando viene richiamato dal pusante sulla userform non funziona : è come se non mi facesse il ciclo for i = ....

Public sub Pagine_all()

Select Case varPag

Case Is = "pagina1"
     For i = 1 To 6
     If UserForm2.Controls("optpag" & i).value = False Then
     varPag = "esiste"
     Else
     varPag = "non esiste"
     End If
     Next i
End Select
End Sub

di Albatros54 (utente non iscritto) data: 13/05/2013 13:54:00
prova cosi:

Public Sub Pagine_all()

Select Case varPag

Case pagina1
     For i = 1 To 6
     If UserForm2.Controls("optpag" & i).Value = False Then
     varPag = "esiste"
     Else
     varPag = "non esiste"
     End If
     Next i
End Select
End Sub

di Vecchio Frac data: 13/05/2013 20:19:52
Questa discussione è identica a quella postata nell'altra sezione del forum.
Non si devono postare le stesse discussioni in entrambi i forum.
Ho chiuso l'altra discussione (dopo aver postato una risposta, peraltro) e invito a proseguire questa.

Vuoi Approfondire?