Risultati da 1 a 28 di 28

Discussione: Primi passi in vba....e primo progetto



  1. #1
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67

    Primi passi in vba....e primo progetto

    Buona sera a tutti.
    un po per necessità e un po per curiosità, mi sono addentrato nel fantastico ( e infinito )mondo del VBA.
    Qualcosa ho letto e ancora tanto ho da imparare ( e voi già tanto mi avete dato ).
    Ovviamente quando non trovo soluzione, avendo letto tanto ma non trovato risposta al dubbio, ve lo sottopongo.

    Il mio caso è presente nel file allegato.
    Ho trovato il modo di resettare le TextBox,ma non so come fare lo stesso con le ComboBox ( ovvero pulire solo i valori per simulare altro scenario).
    e poi....( per iniziare ) come posso fare per moltiplicare i valori presenti in :
    Numero agenti x Adesione Giorno x Adesione Mese x Valore Medio Adesione x 7% e il prodotto vada a finire in COMPENSO PRODUZIONE RETE 7%?

    come sempre.....GRAZIE!

    https://www.dropbox.com/s/plpbj8mfml...MULA.xlsm?dl=0

  2. I seguenti 3 utenti hanno dato un "Like" a Andrea_Ra per questo post:


  3. #2
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125
    Ciao Andrea!! ma chi è stato il tuo professore Mr. baloon??
    complimenti ottimo lavoro anche se io farei il pulsante "Apri" un po più piccolo

  4. I seguenti utenti hanno dato un "Like"


  5. #3

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7108
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296
    Bravo Andrea, è solo "buttandosi" che s'impara!
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  6. I seguenti utenti hanno dato un "Like"


  7. #4

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Ciao a tutti,

    @Andrea
    beh, è uguale anche per la combobox (il valore intendo, non l'elenco).
    Quindi il codice per il pulsante "Cancella dati" diventerebbe:

    Codice: 
    Private Sub CommandButton2_Click()
    
    
    Dim obj As Control
    For Each obj In Me.Controls
    If TypeOf obj Is MsForms.TextBox Then
        obj.Value = ""
    End If
    If TypeOf obj Is MsForms.ComboBox Then
        obj.Value = ""
    End If
    Next
    
    
    End Sub
    o più semplicemente:

    Codice: 
    Private Sub CommandButton2_Click()
    
    Dim obj As Control
    For Each obj In Me.Controls
    If TypeOf obj Is MsForms.TextBox Or TypeOf obj Is MsForms.ComboBox Then
        obj.Value = ""
    End If
    Next
    
    End Sub

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  8. #5

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7108
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296
    Non capisco perché provo ad aprire il file che si blocca.
    Comunque in generale per pulire i campi delle ComboBox (o TextBox) basta che alla fine del codice (prima di End sub) inserisci le seguenti istruzioni:

    Esempio:
    TextBox1 =""
    TextBox2=""
    Combobox1=""
    Combobox2=""

    Il resto non te lo so dire non riuscendo ad aprire il file.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  9. #6

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7108
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296
    Citazione Originariamente Scritto da cromagno Visualizza Messaggio
    Ciao a tutti,

    @Andrea
    beh, è uguale anche per la combobox (il valore intendo, non l'elenco).
    Quindi il codice per il pulsante "Cancella dati" diventerebbe:

    Codice: 
    Private Sub CommandButton2_Click()
    
    
    Dim obj As Control
    For Each obj In Me.Controls
    If TypeOf obj Is MsForms.TextBox Then
        obj.Value = ""
    End If
    If TypeOf obj Is MsForms.ComboBox Then
        obj.Value = ""
    End If
    Next
    
    
    End Sub
    o più semplicemente:

    Codice: 
    Private Sub CommandButton2_Click()
    
    Dim obj As Control
    For Each obj In Me.Controls
    If TypeOf obj Is MsForms.TextBox Or TypeOf obj Is MsForms.ComboBox Then
        obj.Value = ""
    End If
    Next
    
    End Sub
    Ecco c'era un altro codice diverso da quello da me indicato.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  10. #7

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923
    Ciao a tutti,

    @Andrea,
    non avevo visto la seconda domanda.

    Nel codice per il pulsante "Calcola" puoi scrivere così:

    Codice: 
    Private Sub CommandButton3_Click()
    With Me
        If .NumeroAgenti <> "" And .adesionigiorno <> "" And .adesionemese <> "" _
        And .valoremedioadesione <> "" Then
            .compensorete.Value = (.NumeroAgenti * .adesionigiorno * _
            .adesionemese * .valoremedioadesione) * (7 / 100)
        End If
    End With
    End Sub
    Naturalmente potresti aggiungere un MsgBox in caso una delle condizioni If non venisse rispettata.
    Stessa cosa farai per le altre percentuali.

    @ges
    Allego il file, magari questo riesci ad aprirlo.
    File Allegati File Allegati

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  11. #8
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67
    @Gerardo
    eh eh esatto..un Prof davvero bravo e soprattutto paziente
    p.s: accetto il tuo consiglio per il pulsante :43:

  12. #9
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67
    Citazione Originariamente Scritto da cromagno Visualizza Messaggio
    Ciao a tutti,

    @Andrea,
    non avevo visto la seconda domanda.

    Nel codice per il pulsante "Calcola" puoi scrivere così:

    Codice: 
    Private Sub CommandButton3_Click()
    With Me
        If .NumeroAgenti <> "" And .adesionigiorno <> "" And .adesionemese <> "" _
        And .valoremedioadesione <> "" Then
            .compensorete.Value = (.NumeroAgenti * .adesionigiorno * _
            .adesionemese * .valoremedioadesione) * (7 / 100)
        End If
    End With
    End Sub
    Naturalmente potresti aggiungere un MsgBox in caso una delle condizioni If non venisse rispettata.
    Stessa cosa farai per le altre percentuali.

    @ges
    Allego il file, magari questo riesci ad aprirlo.
    Buon giorno Cromagno,
    ho applicato alla lettera il tuo suggerimento ma penso che qualche riga di codice me la sono dimenticata ( perchè la ignoro ), del tipo End If o End Then

    Codice: 
    Private Sub CommandButton3_Click() With Me If .NumeroAgenti <> "" And .adesionigiorno <> "" And .adesionemese <> "" _ And .valoremedioadesione <> "" Then .compensorete.Value = (.NumeroAgenti * .adesionigiorno * _ .adesionemese * .valoremedioadesione) * (7 / 100) If .adesionepersonalegiorno <> "" And .adesionepersonalemese <> "" _ And .valoremedioadesionepersonale <> "" Then .compensodiretto.Value = (.adesionepersonalegiorno * .adesionepersonalemese * _ .valoremedioadesionepersonale) * (28 / 100) If .adesioneindiretta <> "" And .adesioneindirettamese <> "" _ And .valoremedioadesioneindiretta <> "" Then .compensoindiretto.Value = (.adesioneindiretta * .adesioneindirettamese * _ .valoremedioadesioneindiretta) * (21 / 100) End If End With End Sub

  13. #10
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3204
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    154
    Buongiorno a tutti

    posso intrufolarmi? Grazie.

    Quando scrivi del codice non dimenticare l'indentazione, cioè "scalare" la scrittura per ricordarti di qualcosa che devi chiudere.

    Codice: 
    Private Sub CommandButton3_Click()
    
    
    With Me
        If .NumeroAgenti <> "" And .adesionigiorno <> "" And .adesionemese <> "" _
            And .valoremedioadesione <> "" Then
            .compensorete.Value = (.NumeroAgenti * .adesionigiorno * _
            .adesionemese * .valoremedioadesione) * (7 / 100)
        ElseIf .adesionepersonalegiorno <> "" And .adesionepersonalemese <> "" _
            And .valoremedioadesionepersonale <> "" Then
            .compensodiretto.Value = (.adesionepersonalegiorno * .adesionepersonalemese * _
            .valoremedioadesionepersonale) * (28 / 100)
        ElseIf .adesioneindiretta <> "" And .adesioneindirettamese <> "" _
            And .valoremedioadesioneindiretta <> "" Then
            .compensoindiretto.Value = (.adesioneindiretta * .adesioneindirettamese * _
            .valoremedioadesioneindiretta) * (21 / 100)
        End If
    End With
    End Sub
    Ti ho aggiunto quello che "avevi dimenticato"

    Vedi come il codice si legge meglio.
    Benvenuto nel clan dei "VBAbisti". Ciao,
    Mario

  14. #11
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3204
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    154
    Ciao Andrea
    un'altra cosa importante. Imparala ed abituati ad applicarla.
    Le variabili vanno dichiarate. Se all'inizio del tuo lavoro metti in un Modulo "Option Explicit" (senza le virgolette) sarai costretto a dichiararle ed eviterai possibili errori.

    Ciao ancora,
    Mario

  15. #12
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67
    @Marius, quante cose ho da imparare ma sono sicuro che leggendo e provando i vostri input riuscirò man mano a crescere.
    Applico i suggerimenti e ti/vi do feed back.
    Volevo dare un MI PIACE ma non lo trovo piu sotto ai profili :171:
    A presto.
    Andrea

  16. #13
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67
    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    Ciao Andrea
    un'altra cosa importante. Imparala ed abituati ad applicarla.
    Le variabili vanno dichiarate. Se all'inizio del tuo lavoro metti in un Modulo "Option Explicit" (senza le virgolette) sarai costretto a dichiararle ed eviterai possibili errori.

    Ciao ancora,
    Mario
    Ciao Marius, ho applicato i suggerimenti ma noto una cosa:
    posso sottoporre solo uno scenario alla volta ( o compenso rete o compenso produzione indiretta o compenso produzione indiretta ).
    Il mio caso mensile invece presenta tutti e tre gli scenari:

    1) agenti che producono
    2) mia produzione
    3) produzione indiretta ( tramite segnalazioni

    Indi per cui, con calcola, deve presentarmi in tutte e 3 le TextBox le relative moltiplicazioni .

    p.s.: presi singolarmente gli scenari sono:286:
    :255:Andrea

  17. I seguenti utenti hanno dato un "Like"

    ges

  18. #14

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7108
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296
    Citazione Originariamente Scritto da Andrea_Ra Visualizza Messaggio
    ....
    Volevo dare un MI PIACE ma non lo trovo piu sotto ai profili :171:
    A presto.
    Andrea
    Ciao Andrea,
    in basso a sinistra di ogni post trovi il pulsante.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  19. #15
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67
    Ciao Ges,ricordavo bene che ci fosse il pulsantino, ma da questa mattina non lo vedo.
    Mi è rimasto solo Segnala messaggio.
    http://postimg.org/image/3k202gbxt/

  20. #16
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    49
    Messaggi
    4916
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1125
    Ciao Andrea adesso lo vedi il pollicione del mi piace??
    :286:

  21. I seguenti utenti hanno dato un "Like"


  22. #17
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67
    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    Ciao Andrea adesso lo vedi il pollicione del mi piace??
    :286:
    ora ci siamo( mi stavo domando se fossi io il problema e quasi quasi mi stavo anche rispondendo ) :166:

  23. #18
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67
    mi chiedo se il fatto che uno scenario escluda l'altro si dettato del fatto che sia inserito il ElseIf
    Codice: 
    Private Sub CommandButton3_Click()
    
    With Me
      -->  If .NumeroAgenti <> "" And .adesionigiorno <> "" And .adesionemese <> "" _
            And .valoremedioadesione <> "" Then
            .compensorete.Value = (.NumeroAgenti * .adesionigiorno * _
            .adesionemese * .valoremedioadesione) * (7 / 100)
        --> ElseIf .adesionepersonalegiorno <> "" And .adesionepersonalemese <> "" _
            And .valoremedioadesionepersonale <> "" Then
            .compensodiretto.Value = (.adesionepersonalegiorno * .adesionepersonalemese * _
            .valoremedioadesionepersonale) * (28 / 100)
       --> ElseIf .adesioneindiretta <> "" And .adesioneindirettamese <> "" _
            And .valoremedioadesioneindiretta <> "" Then
            .compensoindiretto.Value = (.adesioneindiretta * .adesioneindirettamese * _
            .valoremedioadesioneindiretta) * (21 / 100)

  24. #19
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3334
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    mi sono perso l'esordio di Andrea :243:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  25. I seguenti utenti hanno dato un "Like"


  26. #20
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3334
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da Andrea_Ra Visualizza Messaggio
    Ciao Marius, ho applicato i suggerimenti ma noto una cosa:
    posso sottoporre solo uno scenario alla volta ( o compenso rete o compenso produzione indiretta o compenso produzione indiretta ).
    Il mio caso mensile invece presenta tutti e tre gli scenari:

    1) agenti che producono
    2) mia produzione
    3) produzione indiretta ( tramite segnalazioni

    Indi per cui, con calcola, deve presentarmi in tutte e 3 le TextBox le relative moltiplicazioni .

    p.s.: presi singolarmente gli scenari sono:286:
    :255:Andrea
    Ciao Andrea prova così nella routine CALCOLA

    Codice: 
    With Me
        On Error Resume Next
        .compensorete.Value = (.NumeroAgenti * .adesionigiorno * _
        .adesionemese * .valoremedioadesione) * (7 / 100)
        
        .compensodiretto.Value = (.adesionepersonalegiorno * .adesionepersonalemese * _
        .valoremedioadesionepersonale) * (28 / 100)
    
        .compensoindiretto.Value = (.adesioneindiretta * .adesioneindirettamese * _
        .valoremedioadesioneindiretta) * (21 / 100)
    End With
    by

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  27. #21
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3204
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    154
    Ciao Andrea
    sono uno ... scecco (che non è uno sceicco senza la "i" bensì un asino in siciliano).
    Non avevo guardato il tuo primo post con i risultati che volevi, avevo visto tante If non chiuse ...
    Che figura :187:
    Spero di rifarmi. Alla prossima. Ciao,
    Mario

  28. #22
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3334
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    Ciao Andrea
    sono uno ... scecco (che non è uno sceicco senza la "i" bensì un asino in siciliano).
    Non avevo guardato il tuo primo post con i risultati che volevi, avevo visto tante If non chiuse ...
    Che figura :187:
    Spero di rifarmi. Alla prossima. Ciao,
    Mario
    Anche se sei sceIcco senza la I sei sempre un grande (e non mi riferisco all'età siamo quasi coetanei)

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  29. #23
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67
    Ciao Baloon ben trovato,
    come sempre e nuovamente hai risolto il caso.
    Ora provo io a fare una cosa ( ma ho gia salvato il file prima di fare danni ) e vediamo come procede. ( poi metto Risolto )

    Grazie a tutti.:255:

  30. #24
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67
    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    Ciao Andrea
    sono uno ... scecco (che non è uno sceicco senza la "i" bensì un asino in siciliano).
    Non avevo guardato il tuo primo post con i risultati che volevi, avevo visto tante If non chiuse ...
    Che figura :187:
    Spero di rifarmi. Alla prossima. Ciao,
    Mario
    Mario ahahhhhaah non me ne ero nemmeno accorto della tua svista...( ma qualcuno più attento si ):166:

  31. #25
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67
    Bene Bene, sono arrivato alla fine e grazie al vostro aiuto, con qualche giusto consiglio, comincio a capire la logica dei vari processi.
    @Baloon ho implementato il tuo codice:261:

    Codice: 
    With Me    On Error Resume Next
        .totaleadesionimeseagenti.Value = (.NumeroAgenti * .adesionigiorno) * (22)
        
        .totaleadesionimesepersonale.Value = (.adesionepersonalegiorno * 22)
        
        .totaleadesionimeseindiretta.Value = (.adesioneindiretta * 22)
        
        .compensorete.Value = (.totaleadesionimeseagenti * .valoremedioadesione) * (7 / 100)
        
        .compensodiretto.Value = (.totaleadesionimesepersonale * _
        .valoremedioadesionepersonale) * (28 / 100)
    
    
        .compensoindiretto.Value = (.totaleadesionimeseindiretta * _
        .valoremedioadesioneindiretta) * (21 / 100)
    
    
    End With
    qui il file finito
    https://www.dropbox.com/s/plpbj8mfml...MULA.xlsm?dl=0

    Grazie a tutti e alla prossima:18:

  32. #26
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67
    P.s: ho aggiunto un tassellino ( totale mese ) ma pensando alla stringa del codice non funziona.
    dovrebbe sommare:

    compenso diretto+
    compenso indiretto+
    compenso rete=

    e invece mi prende i 3 risultati e me li affianca l'uno all 'altro ( e ovviamente il conto non torna )
    Codice: 
    With Me    On Error Resume Next
        .totaleadesionimeseagenti.Value = (.NumeroAgenti * .adesionigiorno) * (22)
        
        .totaleadesionimesepersonale.Value = (.adesionepersonalegiorno * 22)
        
        .totaleadesionimeseindiretta.Value = (.adesioneindiretta * 22)
        
        .compensorete.Value = (.totaleadesionimeseagenti * .valoremedioadesione) * (7 / 100)
        
        .compensodiretto.Value = (.totaleadesionimesepersonale * _
        .valoremedioadesionepersonale) * (28 / 100)
    
    
        .compensoindiretto.Value = (.totaleadesionimeseindiretta * _
        .valoremedioadesioneindiretta) * (21 / 100)
        
        .totalemese.Value = (.compensodiretto + .compensoindiretto + .compensorete)
    End With
    :216:

  33. #27
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3334
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da Andrea_Ra Visualizza Messaggio
    P.s: ho aggiunto un tassellino ( totale mese ) ma pensando alla stringa del codice non funziona.
    dovrebbe sommare:

    compenso diretto+
    compenso indiretto+
    compenso rete=

    e invece mi prende i 3 risultati e me li affianca l'uno all 'altro ( e ovviamente il conto non torna )
    Codice: 
    With Me    On Error Resume Next
        .totaleadesionimeseagenti.Value = (.NumeroAgenti * .adesionigiorno) * (22)
        
        .totaleadesionimesepersonale.Value = (.adesionepersonalegiorno * 22)
        
        .totaleadesionimeseindiretta.Value = (.adesioneindiretta * 22)
        
        .compensorete.Value = (.totaleadesionimeseagenti * .valoremedioadesione) * (7 / 100)
        
        .compensodiretto.Value = (.totaleadesionimesepersonale * _
        .valoremedioadesionepersonale) * (28 / 100)
    
    
        .compensoindiretto.Value = (.totaleadesionimeseindiretta * _
        .valoremedioadesioneindiretta) * (21 / 100)
        
        .totalemese.Value = (.compensodiretto + .compensoindiretto + .compensorete)
    End With
    :216:
    i valori nelle combobox e textbox sono valori testo perciò per ottenere un numero devi moltiplicare per 1. Nei casi precedenti c'è già una moltiplicazione che trasforma il testo in valore. Inoltre ho tolto il me.with perchè l'ho reputato superfluo.

    Codice: 
    Private Sub CommandButton3_Click()
    
        On Error Resume Next
        totaleadesionimeseagenti = (NumeroAgenti * adesionigiorno * 22)
        
        totaleadesionimesepersonale = (adesionepersonalegiorno * 22)
        
        totaleadesionimeseindiretta = (adesioneindiretta * 22)
        
        compensorete = (totaleadesionimeseagenti * valoremedioadesione) * 0.07
        
        compensodiretto = (totaleadesionimesepersonale * _
        valoremedioadesionepersonale) * 0.28
    
    
        compensoindiretto = (totaleadesionimeseindiretta * _
        valoremedioadesioneindiretta) * 0.21
        
        totalemese = (compensodiretto * 1 + compensoindiretto * 1 + compensorete * 1)
    
    
    End Sub

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  34. I seguenti utenti hanno dato un "Like"


  35. #28
    L'avatar di Andrea_Ra
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Ravenna
    Età
    45
    Messaggi
    124
    Versione Office
    Excel 2007
    Likes ricevuti
    4
    Likes dati
    67
    perfettissimo e corretto anche il caso che, non si fossero selezioni fatte, cmq il totale mensile compare.

    Grazie a tutti e buona serata.
    :286:

Discussioni Simili

  1. cercare i primi 10 valori piu alti di una colonna
    Di alex_drastic nel forum Domande su Excel in generale
    Risposte: 31
    Ultimo Messaggio: 04/02/17, 22:17
  2. estrazione primi 10 prodotti venduti
    Di marco crema nel forum Domande su Excel in generale
    Risposte: 19
    Ultimo Messaggio: 16/12/16, 15:12
  3. primi passi
    Di michy nel forum Domande su Excel in generale
    Risposte: 1
    Ultimo Messaggio: 09/09/16, 15:45
  4. trovare i primi tre numeri maggiori di un elenco con ripetizioni
    Di Allocco nel forum Domande su Excel in generale
    Risposte: 15
    Ultimo Messaggio: 10/07/16, 21:42
  5. Somma.piu.se ma solo i primi n numeri
    Di Chabba nel forum Domande su Excel in generale
    Risposte: 12
    Ultimo Messaggio: 05/01/16, 16:26

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •