Corso VBA Excel ITA - 81 - Progetto gestionale - Controlli completi dell'archivio clienti

Vediamo tutti i controlli che ho inserito nella userform, parliamo di focus e di uscita dalle userform.
Repository dei file su GitHub: github.com/Nic...

[@francescosedita6938]

ok grazie

[@fender569]

Grazie e grande come sempre

[@NickTheGeek]

Grazie a te fender

[@filippo61]

Molto chiaro e preciso. Grazie :)

[@NickTheGeek]

Grazie a te

[@valentinoosterwalder5569]

Ciao Nick, come sempre complimenti per le spiegazioni. In riferimento al Focus sui pulsanti la soluzione c'è... Ogni controllo per il quale non vuoi il Focus devi impostare la proprietà Tabstop su False e vedrai che i tasti impostati in questo modo non avranno più Focus, ma potrai selezionarli a piacimento. Cari saluti, Valentino

[@NickTheGeek]

Grazie Valentino, se però utilizzo il Tabstop significa che quel pulsante non avrà mai il focus, invece a me interessa che i pulsanti non abbiano il focus solo all'apertura della userform, mentre poi premendo il tab ricevano comunque il focus.

[@valentinoosterwalder5569]

@@NickTheGeek Ciao Nick, non ho capito bene cosa vuoi dire con focus e non focus. Il TabStop impedisce all'ordine di tabulazione di fermarsi su quel determinato pulsante, che però non è disabilitato, quindi hai sempre la possibilità di cliccarlo. Un pulsante può non avere il Focus ma è comunque selezionabile... Se però vuoi gestire il tabstop puoi farlo nel codice del pulsante con il comando cmdPulsante.TabStop = True/False. Non so se parliamo della stessa cosa, magari è una questione di sostantivi... ;-)

[@NickTheGeek]

Ciao Valentino. Con TabStop = False impedirei al pulsante di prendere il focus (il tratteggio), invece a me interessa che la tabulazione si fermi sui tasti, quindi premendo il Tab voglio che il focus si sposti ciclicamente su tutti i pulsanti; l'obiettivo è solo quello di non rendere visibile il focus (tratteggio) su alcun pulsante nel momento in cui apro la userform.

[@valentinoosterwalder5569]

@@NickTheGeek Ciao Nick, grazie per la spiegazione. Ti ho inviato un file al tuo indirizzo email. Vedi se è quello che intendevi... Buona giornata! Dimenticavo... Nel tasto "Esci", la sub che riattiva i TabStop non è necessaria...

[@NickTheGeek]

Grazie, lo guardo e ti dico

[@cristianomasciulli6472]

Grazie molto interessante

[@NickTheGeek]

Grazie a te

[@francesred]

Ciao Nicola, per non far visualizzare (mn. 16:58) i messaggi si può usare dapprima l'istruzione Application.DisplayAlerts = False seguita poi da quella di ripristino Application.DisplayAlerts = True.

[@NickTheGeek]

Ciao Franco, grazie

[@pinodiblasio3568]

Ciao Nicola sto cercando di adattare i tuoi esempi ad un mio progetto. Avrei la necessita di far caricare nella listbox solamente le righe il cui valore sia diverso da euro 0. Mi spiego meglio ho una listbox con 4 colonne la prima carica tutte le categorie di costi, la seconda i relativi importi in euro la terza colonna carica le categorie di ricavi e la 4 colonna carica i relativi importi in euro. Quindi viene fuori una sorta di bilancio. Io vorrei però che non si caricassero le righe dove il rispettivo valore è 0. Tornado al tuo esempio come dire voglio caricare tutto eccetto i clienti con ordini pari a 0. Si può fare? Se si come? Mi accontenterei anche di far caricare tutto e poi filtrare solo quelli con valore diverso da zero. Grazie e complimenti per il tuo modo semplice con cui spieghi.

[@NickTheGeek]

Ciao Pino, grazie per i complimenti. Non so se ho capito bene il problema, comunque il prossimo video (82) potrebbe esserti utile. Subito dopo l'inizio del ciclo For che esegue il caricamento delle righe, puoi inserire una If per verificare se la condizione che ti interessa si verifica o meno. Nel caso degli ordini pari a zero, potrei inserire una If così: For i = 2 to ultima_riga_clienti If Cells(i, 11) > 0 Then ... Next i In questo modo mi caricherebbe la riga solo se la cella con gli ordini è maggiore di zero. Nel tuo caso, se vuoi che entrambe le colonne 2 e 4 siano diverse da zero: For i = 2 to ultima_riga If Cells(i, 2) 0 And Cells(i, 4) 0 Then ... Next i Fammi sapere se era questo che intendevi.

[@alessandromarin9168]

8 MINUTI PER NIENTE

[@NickTheGeek]

prego, figurati