Risultati da 1 a 12 di 12

Discussione: Creazione mastrino



  1. #1
    L'avatar di Agodan
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Napoli
    Età
    49
    Messaggi
    9
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Creazione mastrino

    buonasera a tutti, ho questo problema che nn so risolvere. Ma ancora più difficile è sapermi spiegare bene. Ci provo.

    Ho un tabella excel con una serie di clienti che si ripetono perchè hanno comprato più volte in un anno.

    Se utilizzo cerca.vert.. mi fa il totale annuo per ogni singolo cliente.
    Io invece vorrei ad esempio per il sig. Rossi, una funzione che mi crei il relativo mastrino con le singole operazioni effettuate, una per riga, ed il totale finale.

    Mi aiutate per favore.
    Grazie
    Agostino

  2. #2
    L'avatar di Pitagora
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Milano
    Età
    54
    Messaggi
    782
    Versione Office
    WIN , 2013 2016
    Likes ricevuti
    318
    Likes dati
    1

    Re: creazione mastrino eazione mastrino

    Buona Sera

    Allega la tabella

    Saluti
    Window 8.1 Excel 2013/2016

  3. #3

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

    Re: creazione mastrino eazione mastrino

    Ciao Adogan,
    visto che non l'hai ancora fatto, sarebbe gradita una tua presentazione nell'apposita SEZIONE del forum.
    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 Agodan
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Napoli
    Età
    49
    Messaggi
    9
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: creazione mastrino

    ciao ti allego file esempio
    grazie
    File Allegati File Allegati
    Ultima modifica fatta da:Canapone; 08/02/17 alle 12:46

  5. #5

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

    Re: creazione mastrino

    Ciao a tutti,
    prova in G26 questa formula da trascinare a destra e in basso:

    =MATR.SOMMA.PRODOTTO((H$9:H$20)*($E$9:$E$20=$D26)*($F$9:$F$20=$E26)*($G$9:$G$20=$F26))
    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!

  6. #6
    L'avatar di Pitagora
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Milano
    Età
    54
    Messaggi
    782
    Versione Office
    WIN , 2013 2016
    Likes ricevuti
    318
    Likes dati
    1

    Re: creazione mastrino

    Buon Giorno

    Penso che una Tabella o una Pivot Table possono essere adatte alle tue necessità.

    Filtra per Cognome entrambe

    Saluti
    File Allegati File Allegati
    Window 8.1 Excel 2013/2016

  7. #7

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6811
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: creazione mastrino

    Ciao a tutti.

    Giusto per il gusto di partecipare e per il mio concittadino propongo una mia soluzione in VBA.

    Sul Foglio2 nella cella P1 si deve digitare il nominativo e dare Invio

    Codice: 
    Option Compare Text
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim lr As Long
    Dim ur1 As Long
    Dim ur2 As Long
    Dim ur3 As Long
    Dim ur4 As Long
    Dim rng As Range
    Dim cel As Range
    lr = Cells(Rows.Count, 11).End(xlUp).Row
    ur1 = Cells(Rows.Count, 2).End(xlUp).Row
    ur3 = Cells(Rows.Count, 11).End(xlUp).Row
    ur4 = Cells(Rows.Count, 12).End(xlUp).Row
    Set rng = Range("B2:b" & ur1)
    If Not Intersect(Target, Range("P1")) Is Nothing Then
    If Target.Value = "" Then Exit Sub
    Range("l2:h50").ClearContents
    For Each cel In rng
    ur2 = Cells(Rows.Count, 8).End(xlUp).Row
    If cel.Value = Range("p1").Value Then
    Cells(ur2 + 1, 8).Value = cel.Value
    Cells(ur2 + 1, 9).Value = cel.Offset(0, 1).Value
    Cells(ur2 + 1, 10).Value = cel.Offset(0, 2).Value
    Cells(ur2 + 1, 11).Value = cel.Offset(0, 3).Value
    Cells(ur2 + 1, 12).Value = cel.Offset(0, 4).Value
    End If
    Next cel
    Call totali
    End If
    End Sub
    e questa è la macro per i totali

    Codice: 
    Sub totali()
    Dim ur As Long
    ur = Cells(Rows.Count, 11).End(xlUp).Row
    Range("k" & ur + 1).Value = Application.WorksheetFunction.Sum(Range("k2:k" & ur))
    Range("l" & ur + 1).Value = Application.WorksheetFunction.Sum(Range("l2:l" & ur))
    End Sub
    Allego il file.

    P.S. Non sono riuscito in alcun modo ad integrare le istruzioni della macro totali nella Worksheet_Change; non so quante volte mi ha dato spazio dello stack esaurito mandandomi in crash Excel. Se qualcuno ci vuole provare.....
    File Allegati File Allegati
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  8. #8

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6811
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: creazione mastrino

    Su indicazione dell'amico Rubik72 che saluto e ringrazio ho provveduto a modificare la mia precedente macro che così risulta più corretta.

    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ur1 As Long
    Dim ur2 As Long
    Dim rng As Range
    Dim cel As Range
    If Not Intersect(Target, Range("P1")) Is Nothing Then
        Application.EnableEvents = False
        Range("l2:h50").ClearContents
        ur1 = Cells(Rows.Count, 2).End(xlUp).Row
        ur2 = Cells(Rows.Count, 8).End(xlUp).Row
        Set rng = Range("B2:b" & ur1)
        If Target.Value = "" Then Exit Sub
        For Each cel In rng
            If cel.Value = Range("p1").Value Then
                ur2 = ur2 + 1
                For i = 1 To 5
                    Cells(ur2, 7 + i).Value = cel.Offset(0, i - 1).Value
                Next
            End If
        Next cel
        Call totali
        Application.EnableEvents = True
    End If
    End Sub
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  9. #9
    L'avatar di Agodan
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Napoli
    Età
    49
    Messaggi
    9
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: creazione mastrino

    grazie, dalla tua risposta ho capito due cose, una positiva e l'altra negativa.

    La positiva.
    Quello che hai mandato è il risultato che voglio ottenere.

    La negativa
    Ho capito che nn la potrò mai applicare la mio file, troppo complicata, ed io che da un mese cercavo di combinare funzioni di vario tipo senza mai arrivare ad un risultato soddisfacente.

    grazie ancora
    ps
    Voglio imparare anche io vba per excel

  10. #10

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6811
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: creazione mastrino

    Ciao Agostino

    Mi fa piacere che hai apprezzato la mia soluzione che era stata data in alternativa a quelle proposteti da Ges e da Pitagora (che saluto) per dimostrarti le potenzialità insite nel VBA.

    Io non credo che tu non possa applicarla al tuo file; se alleghi un file che sia strutturalmente uguale al tuo (ma ovviamente senza dati sensibili) possiamo lavorarci e trovare soluzioni.

    Quanto ad imparare il VBA non è una cosa difficile (poi per un commercialista.....) basta un po' di tempo e tanta passione

    Comunque seguendo il forum potrai apprendere molto e anche cercando su internet.

    Ti propongo il link di un corso sul VBA fatto molto bene

    http://forum.wintricks.it/showthread.php?t=155252

    Va da sé che una buona conoscenza di Excel (lato foglio) è da mettere in preventivo.

    Per qualunque necessità siamo qua.

    P.S. Tu di che zona di Napoli sei?
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

  11. #11
    L'avatar di Agodan
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    Napoli
    Età
    49
    Messaggi
    9
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0

    Re: creazione mastrino

    Citazione Originariamente Scritto da alfrimpa Visualizza Messaggio
    ...
    grazie per il suggerimento.
    Il tempo lo trovo se mi appassiono, excel inteso lato foglio lo conosco abbastanza bene, io sono della periferia di Napoli, quartiere Ponticelli, tu ?
    tu lavori con excel ho fai anche lezioni su excel.

    Saluti
    Ultima modifica fatta da:Canapone; 08/02/17 alle 12:46

  12. #12

    L'avatar di alfrimpa
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Napoli
    Età
    64
    Messaggi
    6811
    Versione Office
    2013
    Likes ricevuti
    720
    Likes dati
    165

    Re: creazione mastrino

    Ciao Agostino

    Io abito a via Tasso.

    Non lavoro con Excel (sono un funzionario di banca, Banco di Napoli, in pensione) ma sono solo un appassionato che cerca di trasmettere le proprie conoscenze (poche ) a chi ne ha bisogno e lo faccio per puro divertimento .

    Quanto alle lezioni non ne ho mai fatte ma mai dire mai....

    A te interessa qualcosa in particolare?
    Alfredo

    "Non esistono cose facili o difficili; esistono cose che si sanno e cose che non si sanno"

    "Solo due cose sono infinite: l'universo e la stupidità umana; riguardo l'universo ho ancora dei dubbi" (Albert Einstein)

Discussioni Simili

  1. Mastrino
    Di marittiello nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 24/01/17, 18:49
  2. Creazione configuratore
    Di anarmet nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 07/10/16, 14:18
  3. Creazione box con autoriempimento
    Di Wickedoz nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 06/07/16, 18:29
  4. Creazione grafico
    Di 87scarface87 nel forum Domande sui Grafici di Excel
    Risposte: 2
    Ultimo Messaggio: 24/06/16, 00:36
  5. Creazione preventivatore.
    Di Ste911 nel forum Domande su Excel VBA e MACRO
    Risposte: 28
    Ultimo Messaggio: 21/06/16, 00:17

Tag per Questa Discussione

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
  •