Sviluppare funzionalita su Microsoft Office con VBA calcoli automatici in userform

Login Registrati
Stai vedendo 1 articolo (di 1 totali)
  • Autore
    Articoli
  • #54433 Score: 0 | Risposta

    Frasubb
    Partecipante
      1 pt

      Ciao a tutti,

      provando a farlo da solo, ho cercato di realizzare un calcolo automatico nella mia userform1 tramite questo codice

      Private Sub TxtDaPag_Exit(ByVal Cancel As MSForms.ReturnBoolean)
      
          Dim accordato As Double
          Dim acconto As Double
          Dim nettoAPagare As Double
          Dim numeroRate As Integer
          Dim importoRata As Double
      
          ' Recupera i valori dalle textbox
          accordato = TxtAccord.Value
          acconto = TxtAccTo.Value
          numeroRate = TxtNumRate.Value
      
          ' 1. Calcolo Netto a Pagare
          TxtNetto_a_Pagare.Value = TxtAccord.Value - TxtAccTo.Value
          
          ' 2. Calcolo Importo Rata (senza interessi)
          If numeroRate > 0 Then
              TxtDaPag.Value = TxtNetto_a_Pagare.Value / TxtNumRate.Value
          Else
              MsgBox "Il numero di rate deve essere maggiore di zero."
              Exit Sub
          End If
      
      
          
      End Sub

       

      Quando però vado a confermare l'inserimento dei dati da trasferire nel foglio di lavoro, questa cosa me la fa però prima mi segnala un errore in queste righe del codice stesso

       

          ' Recupera i valori dalle textbox
          accordato = TxtAccord.Value
          acconto = TxtAccTo.Value
          numeroRate = TxtNumRate.Value
      
      

      Dove sbaglio ?

      Oltretutto non riesco a settare bene la tabulazione anche se a vederla mi sembra giusta, ma da TxtDaPag a CmdInvia, invece che andarci direttamente come da ordine di tabulazione stessa, il cursore compie di nuovo tutto il giro delle textbox presenti nella userform1. Tutto questo, cher prima funzionava bene, ovviamente usando il tasto TAB.

      E' possibile risolvere per favore ?

      Grazie a tutti, allego file esempio

       

      Allegati:
      You must be logged in to view attached files.
    Login Registrati
    Stai vedendo 1 articolo (di 1 totali)
    Rispondi a: calcoli automatici in userform
    Gli allegati sono permessi solo ad utenti REGISTRATI
    Le tue informazioni: