Corso VBA Excel ITA - 88 - Progetto gestionale - Validazione al conferma (seconda parte)

[@zefiro678]

Ormai mi considero un "Corso VBA per Excel" addicted! Complimenti per la tua chiarezza. Detto da me che non sapevo nemmeno cosa fosse la programmazione. E auguri per un 2021 splendido 👍

[@NickTheGeek]

Occhio alle dipendenze! Grazie, mi fa piacere che il corso sia utile, soprattutto a chi parte da zero. Buon anno anche a te.

[@fender569]

Bel Regalo di Natale 🎄 🎅 🎄

[@NickTheGeek]

Grazie, non è il massimo ma accontentiamoci :D

[@tomiz999]

Madonna mi ricordo quando qualche anno fa guardavo i tuoi video di mh4u e vedere un tuo video nella home mi ha fatto piangere giuro oddio che ricordi aiuto

[@NickTheGeek]

Addirittura! Belli i tempi quando tutti eravamo più giovani :D

[@VittorioVetto1]

GRAZIE PER IL TUO IMPEGNO E PER IL REGALO CHE STAI FACENDO A TUTTI!! BUON NATALE

[@NickTheGeek]

Grazie a te, buone feste!

[@droitaucoeur1]

Ciao Nicola. Ho dimenticato di dirti questo. Normalmente in questo formulario, la data di nascita e il codice fiscale devono essere bloccati, perché sono dati che rimango a vita e non devono essere cambiati. Le modifiche devono essere fatte sul primo formulario quando riempisci i dati del cliente. Per questo, prima di fare le entrate, aggiungi un msgbox "Vogliate verificare tutti i campi prima di confermare", con il bottone "Attenzione". Aggiungi un'altra texbox, nascondendola dietro l'ultima textbox; blocca il bottone Conferma. Per sbloccare il bottone, la persona dovrà premere il tasto TAB per potere proseguire alla conferma.

[@NickTheGeek]

Ciao Jacky, grazie.

[@Sancaru72]

Ciao Nick. Per far restare il campo rosso in caso di data futura ho aggiunto un Else al tuo codice: If CDate(Me.txtDataNascita.Value)

[@NickTheGeek]

Ciao Sandro, grazie per i complimenti e per il suggerimento. Per il campo rosso, in questi giorni non posso verificare ma lo faccio senz'altro al più presto; per il controllo Calendario ho deciso volontariamente di non usare nessun componente "terzo" rispetto a quelli già disponibili in Excel.

[@NickTheGeek]

Ho fatto la prova, e così funziona perché in pratica si ritorna alla situazione di partenza, in cui facevamo la verifica per colorare la cella di rosso o di bianco; ho anche provato a invertire le verifiche (prima la data futura e poi il formato), ma il problema resta, ovviamente al contrario, cioè si ripresenterebbe sbagliando per due volte consecutive il formato. Grazie.

[@droitaucoeur1]

Ciao Nicola. Un'altra maniera di fare: Option Explicit Dim ctrl As Control Dim i, lig, col As Integer Private Sub UserForm_Initialize() For Each ctrl In Controls If TypeName(ctrl) = "TextBox" Then i = i + 1 'Tag è la proprietà della TextBox che si riferisce alla colonna: 1 = A: 2 = B: 3 = C ecc. ctrl.Tag = i 'Cells(1, i) = ctrl.Tag per controllo End If Next End Sub Private Sub CommandButton1_Click() With Sheets(1) lig = .Range("a" & Rows.Count).End(xlUp).Row + 1 .Cells(lig, 1) = lig - 1 For col = 1 To 4 Set ctrl = Me.Controls("TextBox" & col) .Cells(lig, col) = ctrl If IsNumeric(ctrl) Then .Cells(lig, col) = CDbl(ctrl) If IsDate(ctrl) Then .Cells(lig, col) = CDate(ctrl) Next col End With For i = 1 To 4: Me.Controls("TextBox" & i) = "": Next End Sub

[@NickTheGeek]

Ciao Jacky, grazie.

[@postalucia]

Ciao Nicola, continuo a lavorare su VBA quindi i tuoi video sono il punto di riferimento! Grazie ancora. Avrei bisogno di un ripasso ma non riesco a trovarlo tra i video del corso: come implementare i codici Cliente (C001), i codici Movimento (M001) ecc nei fogli di excel che poi vengono riportati nelle ListBox e che servono come riferimento nel caso di modifiche, consultazioni o cancellazioni . Non lo trovo tra tutti i codici. Mi puoi dare un suggerimento su dove cercare? grazie! 😇

[@NickTheGeek]

Ciao, grazie a te per il commento. Si potrebbe risolvere aggiungendo una verifica (If) ogni volta che si scrive una nuova riga nei vari fogli: ad esempio quando si inserisce un cliente nuovo (video 107), prima di scrivere il codice cliente (C#####) con la linea: Cells(prima_riga_vuota_clienti, 1) = "C" & Format(Right(Cells(prima_riga_vuota_clienti - 1, 1), 5) + 1, "00000") potresti verificare se nel foglio è presente una sola riga (ad esempio verificando se la cella A2 è vuota); se affermativo, allora il codice da scrivere è direttamente C00001, perché evidentemente quel foglio è vuoto, nel senso che contiene solo le intestazioni, quindi: Cells(prima_riga_vuota_clienti, 1) = "C00001" se invece la verifica è negativa, allora puoi scrivere il codice cliente con la linea scritta sopra.

[@carlogasparini2579]

Buongiorno, sto seguendo i tuoi video con entusiasmo e sto cercando di adattare, nel possibile, il tuo lavoro alle mie esigenze. Io sto cercando di fare un gestionale per un reparto di lavorazione metalmeccanica. Hai consigli su progetti in rete a cui appoggiarmi e prendere spunto oltre al tuo? Continua così....

[@NickTheGeek]

Ciao Carlo, purtroppo non so esserti utile, non conosco progetti da cui attingere informazioni.

[@droitaucoeur1]

Per quando riguarda la data di nascita, non sò se ho ben capito. Potresti fare cosi: If Year(txt) > Year(Date) then.

[@NickTheGeek]

Ciao Jacky, grazie.