Risultati da 1 a 10 di 10

Discussione: Pagato non pagato.3



  1. #1
    L'avatar di kojak08
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    MASSA
    Età
    80
    Messaggi
    17
    Versione Office
    Excel 2010
    Likes ricevuti
    0
    Likes dati
    0

    Pagato non pagato.3

    Ciao a tutti,
    sono il solito rompi, non me ne volete.
    Il mio Pagato non pagato è in evoluzione, ma ho un grosso problema su alcune voci che sono composite ma con un unico totale, mi spiego meglio con il file.
    Aiutatemi, Grazie
    kojak08
    File Allegati File Allegati

  2. #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
    1126

    Re: Pagato non pagato.3

    Ciao kojak
    La domanda è interessante anche se non ho capito quale potrebbe essere il metodo migliore da applicare (formule o VBA) tuttavia in entrambi i casi servirebbe sapere da dove prendere i nomi delle persone che la somma è 7455€.
    Altrimenti come si fa a sapere i nomi se non sono scritti da nessuna parte? a meno che sono sempre gli stessi nomi, ma a quel punto non serve popolare i nomi se sono sempre i soliti
    Ciao

  3. #3

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7166
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2066
    Likes dati
    1305

    Re: Pagato non pagato.3

    Penso che quello che chiedi si possa ottenere solo col vba.
    Come dice Gerardo non ci sono nomi, quindi presumo che i nomi li metti tu solo al fine di attribuire l'importo corrispondente, se è così e ho capito bene potresti ottenere quel che vuoi con una UserForm

    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If Not Intersect(Target, Range("F11")) Is Nothing Then
        UserForm1.Show
      End If
    End Sub
    Codice: 
    Private Sub CommandButton2_Click()
        Range("F11") = ""
        Range("F11") = Val(TextBox2) + Val(TextBox4) + Val(TextBox6) + Val(TextBox8) + Val(TextBox10) + Val(TextBox12)
        TextBox1 = ""
        TextBox2 = ""
        TextBox3 = ""
        TextBox4 = ""
        TextBox5 = ""
        TextBox6 = ""
        TextBox7 = ""
        TextBox8 = ""
        TextBox9 = ""
        TextBox10 = ""
        TextBox11 = ""
        TextBox12 = ""
    End Sub
    Allego file, dimmi se può andare.
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  4. #4
    L'avatar di kojak08
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    MASSA
    Età
    80
    Messaggi
    17
    Versione Office
    Excel 2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: Pagato non pagato.3

    Ciao Gerardo, Ciao Ges,
    Grazie.
    Premesso che il VBA per me è arabo, avete capito benissimo di cosa ho bisogno, e quello che propone ges va bene, ma non rimane memoria dei nomi e degli importi.
    Io pensavo che , cliccando sulla cella dove dovrebbe andare l'importo si potesse aprire un foglio, dove inserisco i nomi e gli importi e che ogni qualvolta ritorno su
    quella cella mi si riapre il foglio che posso comunque modificare.
    Poi, è possibile copiare la formula o non sò cosa su tutte le celle successive ?, perché ho provato nell'esempio di ges, ma non ci sono riuscito.
    Ciao, Grazie
    kojak08

  5. #5
    L'avatar di kojak08
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    MASSA
    Età
    80
    Messaggi
    17
    Versione Office
    Excel 2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: Pagato non pagato.3

    Ciao,
    Gerardo, Ges, aiutatemi a risolvere il problema che avete ben individuato e che io nella mia del 15/4/16 vi ho più prolissamente illustrato.
    Se non è possibile, pace, però mi piacerebbe sapere se si può fare altrimenti. Grazia
    kojak08

  6. #6

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7166
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2066
    Likes dati
    1305

    Re: Pagato non pagato.3

    Ciao kojak,
    visto che i nomi e gli importi non possiamo lasciarli appesi nella Userform e da qualche parte li dobbiamo archiviare, ti propongo una soluzione in cui tu inserisci i dati (nomi dipendenti e importi) e questi si registrano in un altro foglio in modo che tu ne possa avere sempre traccia analitica dei pagamenti.

    La Userform ovviamente come hai chiesto si attiva nel momento che clicchi sulla cella degli importi e se quella riga è segnata come "STIPENDI PERSONALI", negli altri casi non si attiva.

    Non sapevo se i nomi dei dipendenti sono sempre gli stessi oppure cambiano, nel dubbio ti ho proposto la situazione in cui i nomi possono cambiare e li devi inserire tu stesso, ma se vuoi li possiamo mettere fissi nella UserForm.

    Nel foglio "SPESE PERSONALE" ti troverai così registrati i nomi di ciascuno e sotto ogni nome il relativo importo e il giorno che sono stati pagati e a fine riga il totale speso.

    Bene, ti allego ora il file, dimmi tu se necessita o meno di ulteriori modifiche.

    Per il forum riporto anche il codice che ho usato.

    Codice: 
    Private Sub CommandButton2_Click()
        Dim wks1 As Worksheet, wks2 As Worksheet
        Set wks1 = Worksheets("SCADENZIARIO PAG non PAG")
        Set wks2 = Worksheets("Spese personale")
        wks1.Range(ActiveCell.Address) = Val(TextBox2) + Val(TextBox4) + Val(TextBox6) + Val(TextBox8) + Val(TextBox10) + Val(TextBox12)
        irow = wks2.Range("A" & Rows.Count).End(xlUp).Row
        While wks2.Range("A" & irow) <> ""
            irow = irow + 2
        Wend
            wks2.Range("B" & irow) = ComboBox1.Text
            wks2.Range("C" & irow) = ComboBox2.Text
            wks2.Range("D" & irow) = ComboBox3.Text
            wks2.Range("E" & irow) = ComboBox4.Text
            wks2.Range("F" & irow) = ComboBox5.Text
            wks2.Range("G" & irow) = ComboBox6.Text
            irow = irow + 1
            wks2.Range("A" & irow) = wks1.Range(ActiveCell.Address).Offset(0, -5)
            wks2.Range("B" & irow) = Val(TextBox2)
            wks2.Range("C" & irow) = Val(TextBox4)
            wks2.Range("D" & irow) = Val(TextBox6)
            wks2.Range("E" & irow) = Val(TextBox8)
            wks2.Range("F" & irow) = Val(TextBox10)
            wks2.Range("G" & irow) = Val(TextBox12)
            ComboBox1 = ""
            ComboBox2 = ""
            ComboBox3 = ""
            ComboBox4 = ""
            ComboBox5 = ""
            ComboBox6 = ""
            TextBox2 = ""
            TextBox4 = ""
            TextBox6 = ""
            TextBox8 = ""
            TextBox10 = ""
            TextBox11 = ""
            TextBox12 = ""
        End Sub
    Codice: 
    Private Sub UserForm_Initialize()
        Dim wks2 As Worksheet
        Set wks2 = Worksheets("Spese personale")
        For x = 2 To 7
            ComboBox1.AddItem wks2.Cells(1, x)
            ComboBox2.AddItem wks2.Cells(1, x)
            ComboBox3.AddItem wks2.Cells(1, x)
            ComboBox4.AddItem wks2.Cells(1, x)
            ComboBox5.AddItem wks2.Cells(1, x)
            ComboBox6.AddItem wks2.Cells(1, x)
        Next
    End Sub
    Edit: riallego il file c'era un errore nel codice (avevo scritto wen invece che wend), inoltre per una miglior leggbilità ho lasciato uno spazio tra un inserimento e l'altro
    File Allegati File Allegati
    Ultima modifica fatta da:ges; 19/04/16 alle 16:18
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  7. I seguenti utenti hanno dato un "Like"


  8. #7
    L'avatar di kojak08
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    MASSA
    Età
    80
    Messaggi
    17
    Versione Office
    Excel 2010
    Likes ricevuti
    0
    Likes dati
    0

    Re: Pagato non pagato.3

    Ciao ges,
    ti ringrazio per quao mi hai mandato, e trovo che già potrebbe andare per me. Navigando su internet ho trovato questo file di M. Cucchiara "Budget Spese Personali e della Famiglia" dove i totali inseriti in una cella es. 500 con un userform normale simula un foglio di exce per creare un dettaglio di quel 500.
    Io, come ti avevo già detto, di VBA, non ne capisco niente, ma mi chiedo è possibile applacarlo al mio file. Ti prego vagli a dare una occhiata,è su Youtube.
    Non mi mandare a quel paese delle meraviglie.
    Grazie kojak08

  9. #8
    L'avatar di svizzera
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Möhlin Svizzera
    Età
    67
    Messaggi
    337
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    10

    Re: Pagato non pagato.3

    Ciao Ges
    Complimenti per il lavoro, prendo spunto. Mi potresti dare informazione come poter applicarlo nei successivi mesi, Grazie

  10. #9
    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
    1126

    Re: Pagato non pagato.3

    Citazione Originariamente Scritto da svizzera Visualizza Messaggio
    Ciao Ges
    Complimenti per il lavoro, prendo spunto. Mi potresti dare informazione come poter applicarlo nei successivi mesi, Grazie
    Ciao Svizzera
    Come da regolamento è meglio aprire una discussione nuova e non svegliare vecchie discussioni, anche se questa è molto simile

    Un saluto

  11. #10
    L'avatar di svizzera
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    Möhlin Svizzera
    Età
    67
    Messaggi
    337
    Versione Office
    2010
    Likes ricevuti
    0
    Likes dati
    10

    Re: Pagato non pagato.3

    Ciao Gerardo
    Buone feste.

Discussioni Simili

  1. [Risolto] Registra l'avvenuto pagamento di una bolletta condominiale "Pagato"
    Di Vincenzo Damiani nel forum Domande su Excel VBA e MACRO
    Risposte: 17
    Ultimo Messaggio: 29/12/16, 13:50
  2. Pagato non pagato.2
    Di kojak08 nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 13/04/16, 17:51

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
  •