Risultati da 1 a 10 di 10

Discussione: aggiornare dati da un'altra tabella



  1. #1
    L'avatar di giesa15
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    milano
    Messaggi
    27
    Versione Office
    2011 MAC
    Likes ricevuti
    1

    aggiornare dati da un'altra tabella

    Un saluto a tutti gli amici che mi hanno aiutato, Gerardo, pkrome59, ges, pitagora.
    Sono a porvi un altro quesito, il mio file si evolve ed ho bisogno dei vs suggerimenti. In allegato file “elenco colori” in cui si trova il foglio “COLORI” alimentato dagli altri 2 fogli “GIRIGLIA” e “PARZIALE”.

    Il foglio COLORI è la parte finale di un documento che riporta anche delle immagini (che ho omesso) è per questo motivo che è così impaginato.
    In pratica vorrei in questo foglio una funzione/formula che mi copiasse col. e q.tà riportati nel foglio “griglia”. Ho provato con il cerca verticale ma alcune righe hanno il codice doppio o triplo e la formula va bene solo x la prima riga..…Come potreste aiutarmi?
    L’ideale poi sarebbe inserire la condizione x cui tutte le celle con codice uguale si colorano (x esempio in verde), ma quest’ultima non sarebbe così importante.
    Grazie x il vs interessamento, ciao
    File Allegati File Allegati

  2. #2
    L'avatar di aiutoexcel
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Ravenna
    Età
    34
    Messaggi
    3
    Versione Office
    2013
    Likes ricevuti
    0
    Likes dati
    0
    Buonsera

    Che ne dici di aggiungere una colonna nel foglio griglia che potrebbe chiamarsi codice&col in cui metti la formula =B8&"_"&TESTO(C8;"00")? In questo modo crei una nuova chiave di ricerca univoca che puoi utilizzare nel foglio colori.

    Roberto Ranalli
    www.AiutoExcel.it

  3. #3
    L'avatar di pkrome59
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Reggio Calabria
    Età
    58
    Messaggi
    1188
    Versione Office
    Office 2013
    Likes ricevuti
    1198
    Likes dati
    2134
    Ciao Giesa15, credo che vadano bene, comunque fai una verifica delle seguenti formule:

    In B3; E3; H3; K3;.......;AR3; AU3:
    =SE.ERRORE(INDICE(GRIGLIA!$B$8:$B$487;PICCOLO(SE(GRIGLIA!$A$8:$A$487=COLORI!A3;RIF.RIGA(GRIGLIA!$A$8:$A$487)-RIF.RIGA(GRIGLIA!$A$8)+1);CONTA.SE($A$3:$A3;$A3)));"")

    In C3; F3; I3; L3;........;AS3; AV3:
    =SE.ERRORE(INDICE(GRIGLIA!$K$8:$K$487;PICCOLO(SE(GRIGLIA!$A$8:$A$487=COLORI!A3;RIF.RIGA(GRIGLIA!$A$8:$A$487)-RIF.RIGA(GRIGLIA!$A$8)+1);CONTA.SE($A$3:$A3;$A3)));"")

    formule matrici da attivare con i tasti CTRL+MAIUSCOLO+INVIO e da tirare giù alla bisogna.
    Allego il file di prova.
    File Allegati File Allegati

  4. I seguenti utenti hanno dato un "Like"


  5. #4
    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
    Ciao a tutti
    grazie alla formula di pkrome59 sono riuscito a capire bene il topic e ho cercato di miglirarla, sopratutto perchè con MAC 2011 è disponibile la funzione AGGREGA cosi da non dover premere CTRL+SHIFT+ENTER per attivare la formula
    e quindi per la cella B3 e tutte le altre celle nel campo (col.)
    Ovviamente da adattare e copiare in basso:

    =SE.ERRORE(INDICE(GRIGLIA!$B$8:$B$487;AGGREGA(15;6;(RIF.RIGA(GRIGLIA!$A$8:$A$487)-RIF.RIGA(GRIGLIA!$A$8)+1)/(GRIGLIA!$A$8:$A$487=COLORI!A3);CONTA.SE($A$3:$A3;$A3)));"")

    per quanto riguarda le quantità ( se non ho capito male) ho preferito usare la funzione MATR.SOMMA.PRODOTTO che è più specifica per analizzare i dati e in questo caso sommare con delle condizioni
    copia ed incolla in tutte le celle (q.tà) da copiare in basso

    =MATR.SOMMA.PRODOTTO((GRIGLIA!$A$8:$A$424=A3)*(GRIGLIA!$B$8:$B$424=B3)*(GRIGLIA!$C$8:$I$424))

    Adesso però concedetemi di chiedere aiuto a tutti gli esperti di VBA
    ho questo codice che mi colora tutti i duplicati, però al contrario della FCondizionale ad ogni duplicato mi da un colore diverso, solo che il mio problema è che non riesco adattarlo a tutte le colonne dove giesa15 voleva visualizzare i duplicati (infatti questo vale solo per il range P3:P13

    Codice: 
    Sub ColourDuplicates()    Dim Rng As Range
        Dim Cell As Range
        Dim Colour As Long
        Set Rng = Range("P3:P" & Range("P" & Rows.Count).End(xlUp).Row)
        Rng.Interior.ColorIndex = xlNone
        Colour = 6
        For Each Cell In Rng
            If WorksheetFunction.CountIf(Range("P3:P" & Cell.Row), Cell) = 1 Then
                Cell.Interior.ColorIndex = Colour
                Colour = Colour + 1
            Else
                Cell.Interior.ColorIndex = Rng.Cells(WorksheetFunction.Match(Cell.Value, Rng, False), 1).Interior.ColorIndex
            End If
        Next Cell
    End Sub



    Un saluto a tutti
    File Allegati File Allegati
    Ultima modifica fatta da:Gerardo Zuccalà; 10/03/16 alle 02:03

  6. I seguenti 2 utenti hanno dato un "Like" a Gerardo Zuccalà per questo post:


  7. #5

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7165
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1304
    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    .....
    Ciao Gerardo,
    il codice ti colora le celle di un colore diverso per quella parte che ho evidenziato in rosso.
    In pratica, nella parte in blu viene assegnato il colore uguale a 6 (che è giallo), poi c'è il passaggio della funzione COUNTIF .. cioè SE la funzione CONTA.SE è uguale a 1 allora la cella dovrà essere colorata da Colour (che è giallo) ma poi segue che quando si verifica la predetta condizione Colour non dovrà essere SEMPRE Colour (cioè 6, cioè giallo) ma dovrà aumentare di 1 Colour = Colour +1 (è una scelta di chi ha scritto la macro!) quindi per le altre celle assumerà il valore 7, 8, 9 ecc. da qui tutti i diversi colori.

    Riporto una tabellina dei colori vba in base al numero assegnato:
    Ultima modifica fatta da:Canapone; 14/06/17 alle 11:00
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  8. I seguenti utenti hanno dato un "Like"


  9. #6
    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
    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Ciao Gerardo,
    il codice ti colora le celle di un colore diverso per quella parte in rosso.
    In pratica, nella parte in blu viene assegnato il colore uguale a 6 (che è giallo), poi c'è il passaggio della funzione COUNTIF .. cioè SE la funzione CONTA.SE è uguale a 1 allora la cella dovrà essere colorata da Colour (che è giallo) ma poi segue che in questo caso Colour non dovrà essere SEMPRE Colour (cioè 6, cioè giallo) ma dovrà aumentare di 1 Colour = Colour +1 (è una scelta di chi ha scritto la macro!) quindi per le altre celle assumerà il valore 7, 8, 9 ecc. da qui tutti i diversi colori.
    Ciao ges grazie!
    Premetto che questo codice l'avevo tra le mie scartoffie e tempo fa me lo ero salvato perchè lo ritengo di un livello superiore rispetto alla normale FC in materia di duplicati, il mio problema però non è cambiare il colore bensì adattare il codice ad altre colonne come puoi vedere questo codice lavora solo per la colonna (P)

    Codice: 
    Set Rng = Range("P3:P" & Range("P" & Rows.Count).End(xlUp).Row)
    ma lo dovrei adattare anche per le colonne A, D, G, J, M..ecc.ecc.ecc. tutte quelle colonne dove c'è l'intestazione di campo è "codice"
    grazie

  10. #7

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7165
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1304
    Ciao Gerardo,
    mi hai fatto lavorare un sacco per adattare la tua richiesta, ma alla fine penso di esserci riuscito! :90:

    Codice: 
    Sub ColourDuplicates()
        Dim Rng As Range, Rng2 As Range, Cell As Range
        Dim Cell2 As Range, Colour As Integer
        Set Rng2 = ActiveSheet.UsedRange
        Rng2.Interior.ColorIndex = xlNone
        Colour = 3
        For Each Rng In Rng2.Columns
            For Each Cell In Rng.Cells
                If Application.CountIf(Rng, Cell.Value) > 1 And Cell.Interior.ColorIndex = xlNone And Not IsEmpty(Cell.Value) Then
                    For Each Cell2 In Rng.Cells
                        If Cell2.Value = Cell.Value Then Cell2.Interior.ColorIndex = Colour
                    Next
                    Colour = Colour + 1
                    If Colour = 57 Then Colour = 3
                End If
                Next:  Next
            End Sub
    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!

  11. I seguenti 2 utenti hanno dato un "Like" a ges per questo post:


  12. #8
    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
    Grande ges! Da telefonino non ho avuto modo di testarla, ma conoscendoti sono sicuro che funziona, certo che sto VBA è proprio incredibile quello che si può fare, e sono sicuro che geisa15 ( se è ancora interessata) apprezzerà sicuramente
    Ciao ges alla prossima

    OT il bunner pubblicitario non se lo è filato ancora nessuno.. Pazienza

  13. #9

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7165
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2065
    Likes dati
    1304
    Citazione Originariamente Scritto da Gerardo Zuccalà Visualizza Messaggio
    .....

    OT il bunner pubblicitario non se lo è filato ancora nessuno.. Pazienza
    Pazienza! :58:
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  14. #10
    L'avatar di giesa15
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    milano
    Messaggi
    27
    Versione Office
    2011 MAC
    Likes ricevuti
    1
    Grazie Gerardo per le formule! sto ancora cercando di adattarle al mio caso reale vi dico qualcosa appena ho finito.
    riguardo alla tabellina con i colori di ges....wow! incredibile, la velocità con cui rispondete è sicuramente un plus!
    nella macro però non ho capito perché a volte si evidenzia la voce "col." e altre la voce "q.tà" (es.: colonna B e F)
    bunner? quale bunner? ciao a presto
    Ultima modifica fatta da:Canapone; 14/06/17 alle 11:00

Discussioni Simili

  1. [Risolto] Macro per copiare righe specifiche da una tabella ad un'altra
    Di MAT89 nel forum Domande su Excel VBA e MACRO
    Risposte: 16
    Ultimo Messaggio: 29/11/16, 10:08
  2. [Risolto] Somma dei valori di altra tabella = zero
    Di Alessandro nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 08/11/16, 18:31
  3. Aggiornare dati giornalieri secondo elenco
    Di jonajams nel forum Domande su Excel in generale
    Risposte: 8
    Ultimo Messaggio: 09/06/16, 11:48
  4. Togliere dati da una tabella e metterli in un altra tabella
    Di Kikkillone nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 06/04/16, 10:20
  5. Aggiornare i dati di un database
    Di John nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 06/11/15, 10: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
  •