Risultati da 1 a 29 di 29

Discussione: Estrapolare valore in base a più condizioni



  1. #1
    L'avatar di superpioix
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Italia
    Età
    35
    Messaggi
    13
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    5

    Estrapolare valore in base a più condizioni

    Salve a tutti avrei necessità di riuscire ad estrapolare un valore di una determinata tabella tenendo presente due condizioni, la prima la data più recente e la seconda l'arnia di provenieza. Il risultato che dovrei ottenere io sarebbe il relativo stato di quell'arnia alla data più recente.

    Allego un piccolo schema che può servire a capire.

    In pratica io vorrei che in una cella a mia scelta alla data del 8/7/16 nell'arnia 1 mi desse come risultato la condizione DEBOLE, mentre se chiedo sempre lo stesso giorno però l'arnia 2 mi dovrebbe dare la condizione FORTE

    Spero di essere stato chiaro, grazie mille a tutti
    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: Estrapolare valore in base a più condizioni

    Ciao Simone benvenuto in forum excel
    Premetto che non sapevo cosa era un Arnia ma su google ho avuto subito la risposta
    poi non ho capito che versione di excel hai, perchè che io sappia non esiste la version 2006 (come tu hai scritto nel tuo proflo) ma esistono le versioni per PC 2000/2003/2007/2010/2013/2016 per MAC 2011 e 2015, questa è una informazione importante per scegliere il tipo di formula da fare.

    Ho fatto una formula considerando che potrebbero esserci delle Date e Arnie duplicate

    Nella cella A15 metti il criterio (Arnia 1 o 2)

    Supponendo che hai la versione di Excel 2007 ti creo questa formula matriciale che per essere confermata devi premere CTRL+SHIFT+ENTER

    e in A18 metti questa formula matriciale

    =SE.ERRORE(INDICE(A$3:A$10;PICCOLO(SE(($A$3:$A$10=MAX($A$3:$A$10)*($C$3:$C$10=$A$15));RIF.RIGA($A$3:$A$10)-RIF.RIGA($A$3)+1);RIGHE(A$18:A18)));"")



    A
    B
    C
    D
    E
    1
    DATA VISITA
    APIARIO
    ARNIA
    STATO DELLA FAMIGLIA
    OPERAZIONI
    2
    3
    20/06/2016
    VILLASIMIUS (VIGNA)
    2
    NUCLEO
    NUTRITORE 2 FOGLI CEREI
    4
    21/06/2016
    VILLASIMIUS (VIGNA)
    1
    NUCLEO
    NUTRITORE 2 FOGLI CEREI
    5
    24/06/2016
    VILLASIMIUS (VIGNA)
    1
    NUCLEO
    NUTRITORE 2 FOGLI CEREI
    6
    24/06/2016
    VILLASIMIUS (VIGNA)
    2
    NUCLEO
    NUTRITORE 2 FOGLI CEREI
    7
    28/06/2016
    VILLASIMIUS (VIGNA)
    1
    DEBOLE
    NUTRITORE MELARIO
    8
    28/06/2016
    VILLASIMIUS (VIGNA)
    2
    FORTE
    NUTRITORE MELARIO
    9
    08/07/2016
    VILLASIMIUS (VIGNA)
    1
    DEBOLE
    FOGLIO CEREO
    10
    08/07/2016
    VILLASIMIUS (VIGNA)
    2
    FORTE
    FOGLIO CEREO
    11
    12
    13
    14
    Numero di Arnia
    15
    2
    <<<---- Arnia
    16
    17
    Risultato
    18
    08/07/16
    VILLASIMIUS (VIGNA)
    2
    FORTE FOGLIO CEREO
    19
    20
    21



    PS Se per caso non ci dovessero essere duplicati si puo fare una formula più semplice
    in attesa di un riscontro un saluto

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


  4. #3
    L'avatar di superpioix
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Italia
    Età
    35
    Messaggi
    13
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    5

    Re: Estrapolare valore in base a più condizioni

    Grazie mille Gerardo!!
    Ci stavo sbattendo la testa da una settimana, io ero arrivato al punto che mi dava sempre il valore della prima riga quando la data era identica e non riuscivo ad andare avanti.
    Ora funziona perfettamente, per quanto riguarda la versione mi è sfuggito un 1 ho la versione 2016.
    Si può modificare la funzione?
    Grazie mille ancora

    Simone
    Ultima modifica fatta da:Canapone; 10/07/17 alle 16:00

  5. #4
    L'avatar di Irclen
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Quarrata
    Età
    48
    Messaggi
    165
    Versione Office
    Office2016
    Likes ricevuti
    5
    Likes dati
    7

    Re: Estrapolare valore in base a più condizioni

    Ciao Gerardo.
    L'ho provato, funziona, ma in caso di aggiunta di Date non si aggiorna.
    Da cosa dipende? Forse dai riferimenti assoluti nella formula?
    O bisogna dare gli intervalli con più righe?

    ----------Post unito in automatico----------

    Un saluto Simone.
    Puoi modificare dalle impostazioni in alto a destra vicino ad Accedi.
    Poi vai su Modifica Profilo sulla sinistra, dentro metti la versione di Office dove lo chiede e salva.
    Ultima modifica fatta da:Gerardo Zuccalà; 27/07/16 alle 13:59 Motivo: tolto il QOUTE

  6. #5
    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: Estrapolare valore in base a più condizioni

    Ciao Superpiox
    grazie per il riscontro

    tu scrivi:
    , per quanto riguarda la versione mi è sfuggito un 1 ho la versione 2016.
    Si può modificare la funzione?

    Visto che hai la versione di excel 2016 potresti usare questa formula che ha il vantaggio di non premere CTRL+SHIFT+ENTER per attivarla
    solo copia ed incolla, Trascinala a destra ed in basso

    in A18
    =SE.ERRORE(INDICE(A$3:A$10;AGGREGA(15;6;(RIF.RIGA($A$3:$A$10)-RIF.RIGA($A$3)+1)/(($A$3:$A$10=MAX($A$3:$A$10)*($C$3:$C$10=$A$15)));RIGHE(A$18:A18)));"")


    Un saluto

  7. I seguenti utenti hanno dato un "Like"


  8. #6
    L'avatar di superpioix
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Italia
    Età
    35
    Messaggi
    13
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    5

    Re: Estrapolare valore in base a più condizioni

    Ciao Irclen e grazie mille Gerardo, ho modificato il profilo e la funzione, va che una meraviglia!!!
    Senti potrei chiederti un'altra cosa?

    Nella colonna OPERAZIONI avrei voluto una lista delle possibili operazioni tramite un menù a tendina tipo quello di convalida dati elenco...... dove al fianco di ogni possibile azione ci sia un quadratino di spunta che una volta cliccato ( quindi spuntato) restituisca nella cella la scritta corrispondente e nel caso vengano cliccate più opzioni vengano elencate tutte le operazioni effetfettuate.

    Prendendo l'esempio che hai fatto tu il 20/6/16 ci sarebbero due operazioni effettuate, l'inserimento del nutritore e l'inserimento dei fogli cerei.
    Sarebbe possibile effettuare questo tipo di operazione??

    Grazie mill

    Simone

  9. #7
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2078
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117

    Re: Estrapolare valore in base a più condizioni

    Ciao

    prova così

    metti due date uguali e la stessa arnia
    e vedi



    per i dati da segliere in colonna D

    menu a tendina o caselle di spunta?
    File Allegati File Allegati

  10. #8
    L'avatar di superpioix
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Italia
    Età
    35
    Messaggi
    13
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    5

    Re: Estrapolare valore in base a più condizioni

    Ciao Gianfranco grazie mille per la risposta ma scusami non ho capito cosa intendi, ho provato lo schema e non esegue quello che cercavo.
    La condizione che mi restituisse lo stato della famiglia va bene lo abbiamo risolto, io ora volevo interagire sulla tabella Colonna E righe 3-10 volevo inserire un menù a tendina con varie opzioni che venivano segnate in automatico una volta spuntata la voce. Il tutto per non stare a scrivere molte cose ma cliccando solo 2 o 3 "x"

    Per la colonna E preferirei un menu con la possibilità di spunta delle varie voci

    Simone
    Ultima modifica fatta da:superpioix; 27/07/16 alle 18:29 Motivo: Non avevo letto bene tutta la risposta

  11. #9
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2078
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117

    Re: Estrapolare valore in base a più condizioni

    Ciao
    ho scritto una baggianata
    Codice: 
    L'ho provato, funziona, ma in caso di aggiunta di Date non si aggiorna.
    Da cosa dipende? Forse dai riferimenti assoluti nella formula?
    O bisogna dare gli intervalli con più righe?
    praticamente ho modificato una formula già
    perfetta di suo
    perché ho capito sbagliato

    chiedo umilmente perdono

    per il menu a tendina
    ti basta una convalida

  12. #10
    L'avatar di superpioix
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Italia
    Età
    35
    Messaggi
    13
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    5

    Re: Estrapolare valore in base a più condizioni

    No un convalida dati usando l'opzione elenco ti permettere di scegliere solo un valore, io avrei voluto un menu dove era possibile scegliere da 1 a 10 possibili opzioni e magari se dovesse capitare sceglierne anche due o tre alla volta come è successo nell'esempio.
    ho messo un nutritore e ho messo dei fogli cerei.
    Mettiamo che domani vado in apiario e faccio Inserimento fogli, controllo ed inserimento melario io vorrei che da questo elenco seleziono queste 3 voci e me le trascrive nella cella di riferimento
    Ultima modifica fatta da:Canapone; 10/07/17 alle 16:00

  13. #11
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2078
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117

    Re: Estrapolare valore in base a più condizioni

    Una cosa così
    o altro
    File Allegati File Allegati

  14. #12
    L'avatar di superpioix
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Italia
    Età
    35
    Messaggi
    13
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    5

    Re: Estrapolare valore in base a più condizioni

    Più o meno, solo che così con convalida dati puoi solo scegliere un'opzione. Io vorrei la lista delle operazioni singole e farle interagire tra loro a seconda di quello che vado a spuntare

  15. #13
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2078
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117

    Re: Estrapolare valore in base a più condizioni

    refresh mancato

    ora ho capito
    conosco solo l'ape maia

    pensavo fossero frasi fatte non concatenazioni di operazioni

    ----------Post unito in automatico----------

    ciao

    vedi se è quello che vuoi

    è un esempio bisogna sistemarlo
    sia come ordine di check sia limitare l'inserimento alla colonna

    se va bene lo si sistema.

    ad ora in qualsiasi cella tu faccia doppio click viene inserito il valore delle check spuntate

    ciao

    ----------Post unito in automatico----------

    ecco ora funziona al doppio click
    solo sulle celle
    E3:E10
    File Allegati File Allegati

  16. #14
    L'avatar di superpioix
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Italia
    Età
    35
    Messaggi
    13
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    5

    Re: Estrapolare valore in base a più condizioni

    Ciao Gianfranco il risultato è perfetto è proprio quello che vorrei ottenere, l'unica cosa avrei voluto che l'elenco delle possibili azioni risultasse meno visibile per quello preferivo che fosse in un menù a tendina.

    Credi che si possa fare?

  17. #15

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

    Re: Estrapolare valore in base a più condizioni

    Ciao Simone e ciao Gianfranco

    Non ho seguito la discussione ed essendo in vacanza (senza pc e senza Excel) la mia è solo un'idea prendetela quindi con il beneficio di inventario.

    Gianfranco perchè non pensi ad una lisbox multiselect abbinata al Selection_Change del foglio?

    La si potrebbe far comparire in corrispondenza della cella selezionata e gestire con VBA le successive operazioni.

    Gianfranco tu sei sicuramente in grado di farlo.

    Se non è così perdonate le boiate che ho detto.

    Alfredo

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

    Re: Estrapolare valore in base a più condizioni

    Ciao SueperPioix e tutti gli amici del forum


    Credo che creare un menu a tendina sia semplicissimo
    creati in una qualsiasi parte del foglio (esempio nella colonna Z) un lista di tutte le "Operazoni" che ti servirà come convalida dati (menu a tendina)

    adesso selezzione tutte le celle da E3:E10
    -->>Vai in alto nella Ribbon-->> clicca su "dati" -->>clicca su "Convalida dati" -->>clicca su "impostazioni" -->> dal primo menu a tendina scegli elenco --->> posiziona il cursore del mouse dentro il campo origine--->> adesso selezione la lista che avevi messo nella colonna (Z)

    Dovresti avere il menu a tendina

    Fammi sapere

  19. #17
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2078
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117

    Re: Estrapolare valore in base a più condizioni

    Ciao
    Gerardo
    il ns amico non vuole menu a tendina ma dei concatena determinati da chekbox

    il più è fatto

    ora resta da capire il meno visibile

    o si utilizza l'ottima idea di Al
    oppure una form
    che compaia a comando

    deve decidere il ns amico pioix

    per ora vado a nanna ho fatto la notte

  20. #18
    L'avatar di superpioix
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Italia
    Età
    35
    Messaggi
    13
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    5

    Re: Estrapolare valore in base a più condizioni

    Ciao Gerardo, si il menù a tendina non ho difficoltà a crearlo ma facendo così posso usare solo un'opzione a meno che non mi metta a scrivere tutte le possibili combinazioni.
    Credo che quello che propone Al sia perfetto cit. "Gianfranco perchè non pensi ad una lisbox multiselect abbinata al Selection_Change del foglio?

    La si potrebbe far comparire in corrispondenza della cella selezionata e gestire con VBA le successive operazioni."

    Quello che ha fatto Gianfranco va bene però se era possibile avere la lista delle operazioni sotto forma di menù a tendina in corrispondenza della cella dove dovrebbe andare a scrivere i vari valori sarebbe perfetta.

    Grazie mille

    Simone

  21. #19
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2078
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117

    Re: Estrapolare valore in base a più condizioni

    Ciao
    ho fatto un codice semplice
    per poterlo modificare in un attimo

    l'importante è che le check abbiano i numeri consecutivi.

    se clicchi su una cella della colonna E
    le check si vedono
    spunta quello che vuoi
    al doppio click sulla cella si inserisce il concatena e
    le check diventano invisibili.
    puoi metterle dove vuoi e legarle o no alle celle

    fammi sapere se ti piace

    ----------Post unito in automatico----------

    ciao
    questo file ha la famosa listbox

    ma non riesco a collegarla alla cella attiva

    speriamo in qualche aiuto

    ricordati che sono esempi da completare con la gestione degli errori
    File Allegati File Allegati

  22. I seguenti utenti hanno dato un "Like"


  23. #20
    L'avatar di superpioix
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Italia
    Età
    35
    Messaggi
    13
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    5

    Re: Estrapolare valore in base a più condizioni

    Ciao Gianfranco la funzione Schema 3 è fantastica funziona benissimo, chiaramente è da integrare con le voci che mancano però l'idea è buona.
    Lo schema 4 non l'ho capito o non mi funziona, certo che la possibilità di avere la listbox nella cella che va scritta sarebbe ottimo.

    Comunque grazie mille per tutto vediamo se qualcuno integra qualcosa

    Simone
    Ultima modifica fatta da:Canapone; 10/07/17 alle 16:00

  24. #21
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2078
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117

    Re: Estrapolare valore in base a più condizioni

    prova ora
    File Allegati File Allegati

  25. I seguenti utenti hanno dato un "Like"


  26. #22
    L'avatar di superpioix
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Italia
    Età
    35
    Messaggi
    13
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    5

    Re: Estrapolare valore in base a più condizioni

    Gianfranco è quasi perfetto, ho provato ad aggiungere altre opzioni e le legge, ho ampliato il range di intervallo in E15:E1000 ed è ok a parte una cosa che quando faccio doppio click su una cella che non è presente nella prima scherma ( nel senso che per arrivarci devi scorrere con la barra per esempio E46) al doppio click mi spedisce alla cella E2 e molte volte non mi inserisce nulla...

    Come mai?

  27. #23
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2078
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117

    Re: Estrapolare valore in base a più condizioni

    ciao
    è perché richiami la listbox da una cella e fai doppio click su un'altra.

    per semplificarti la vita guarda questo file
    la cella attiva diventa gialla e al doppio click
    inserisce i dati e ritorna trasparente.
    File Allegati File Allegati

  28. I seguenti utenti hanno dato un "Like"


  29. #24
    L'avatar di superpioix
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Italia
    Età
    35
    Messaggi
    13
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    5

    Re: Estrapolare valore in base a più condizioni

    Gianfranco tralasciando la storia del menù a tendina che compare nella cella che mi serve la funzione è perfetta.
    Ho messo il blocco nelle prime 15 righe in modo da farmi ricadere la list box sempre in prima pagine e poi ho incrementato le possibili variabili e le celle dove utilizzare la funzione.
    Ti ringrazio davvero tanto!!!

    Ti allego lo screen di come viene :))

    Ps. mi sto rendendo conto solo ora che come inserisce i testi lo sfondo me lo cambia in bianco, che voce dovrei cambiare per impostarlo in Turchese colore 1?
    File Allegati File Allegati

  30. #25
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2078
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117

    Re: Estrapolare valore in base a più condizioni

    Ciao

    ti segno in rosso dove cambiare colore
    Codice: 
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim mioarr(5) As Variant
    X = 1
    For n = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(n) = True Then
    mioarr(X) = Me.ListBox1.List(n)
    X = X + 1
    End If
    Next n
    For i = 1 To UBound(mioarr)
    selez = selez & vbCrLf & mioarr(i)
    mysel = mysel & " " & mioarr(i)
    Next
    If Not Application.Intersect(Target, Range("E3:E1000")) Is Nothing Then
    ActiveCell.Select
    ActiveCell.Interior.ColorIndex = xlNone
    Selection.Value = mysel
    cont = 1
    For a = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(a) = True Then
    ctrl = True
    Me.ListBox1.Selected(a) = False
    End If
    Next
    ctrl = False
    End If
    Me.ListBox1.Visible = False
    Range("E2").Select
    End Sub
    in blu la cella da selezionare
    in uscita.


    questa ti serve per non dover cliccare invio
    per convalidare l'inserimento

    ----------Post unito in automatico----------

    questo per cambiare il colore della cella attiva
    ( visti i colori gialla è bruttina)

    Codice: 
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("E3:E1000")) Is Nothing Then
    ActiveCell.Interior.ColorIndex = 6
    Me.ListBox1.Visible = True
     With ListBox1
    .Clear
    .AddItem "MELARIO"
     .AddItem "FOGLIO CEREO"
     .AddItem "2"
     .AddItem "3"
     .AddItem "4"
     .AddItem "5"
     .AddItem "FOGLI CEREI"
     .AddItem "NUTRITORE"
     End With
    End If
    End Sub
    già che ci sei colora lo sondo della listbox
    che in bianco è un pugno nell'occhio

  31. #26
    L'avatar di superpioix
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Italia
    Età
    35
    Messaggi
    13
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    5

    Re: Estrapolare valore in base a più condizioni

    Ho provato a cambiare i colori ma è impossibile trovare il colore giusto, ma comunque li ho personalizzati.

    Diciamo che il risultato è più che soddisfacente! Grazie mille!

    Ps. Guardando i modelli di excel mi è capitato di vedere per esempio quello dei elenco contatti da integrare nel mio "programmino", sapresti dirmi come si ottiene quella tabella che si autoaggiorna con il tipo di contatto e che puoi filtrare semplicemente cliccando il tipo che ti serve?

    Grazie e notte

    Simone
    Ultima modifica fatta da:Canapone; 10/07/17 alle 16:01

  32. #27
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2078
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117

    Re: Estrapolare valore in base a più condizioni

    ciao cominciamo dal colore

    uguale si può non dare limiti ad excel

    seleziona la cella del colore che ti interessa
    dal menu home seleziona colore riempimento
    clicca su altri colori
    personalizzati

    in questo momento hai il corrispettivo RGB del colore

    scriviti i numeri
    e cambia
    Codice: 
    ActiveCell.Interior.ColorIndex = xlNone
    in

    Codice: 
    ActiveCell.Interior.Color = RGB(127, 187, 199)
    chiaro che i tre numeri sono quelli che rilevi tu.

    tutto qui

    per il secondo problema non ho capito cosa vuopi

    o metti un esempio
    o ci dai l'url per vedere cosa vuoi fare

  33. #28
    L'avatar di superpioix
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    Italia
    Età
    35
    Messaggi
    13
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    5

    Re: Estrapolare valore in base a più condizioni

    Ciao comincio anche io dal colore, ho aggiunto la stringa ActiveCell.Interior.ColorIndex = RGB(36, 193, 204) ma mi da errore di debug e non funziona più la listbox.
    Per quanto riguarda la curiosità del secondo quesito ti invio il file e la parte che mi interesserebbe capire è quella relativa alla tabella sotto la colonna B dove raggruppa tutti i tipi di contatto che inserisci nelle altre celle

    Scusa aveto letto male ho lasciato Index, però c'è un altro problema come convalido il tutto col doppio click la cella diventa con lo sfondo bianco e ogni volta devo ricololare io si può ovviare?

    ----------Post unito in automatico----------

    Scusa aveto letto male ho lasciato Index, però c'è un altro problema come convalido il tutto col doppio click la cella diventa con lo sfondo bianco e ogni volta devo ricololare io si può ovviare?[/QUOTE]


    Ho risolto il problema dello sfondo ora rimane sempre dello stesso colore e non devo cambiare io :)
    Però si è creato un nuovo problema ovvero se clicco in una cella adiacente non scompare più la listbox
    Ho provato a paragonarlo al tuo file originale ed è identico, cambiano sono i contenuti della listbox e i colori. Ti incollo il codice se può aiutare



    Public ctrl As Boolean
    Option Base 1


    Private Sub ListBox1_Click()


    End Sub


    Private Sub Worksheet_Activate()
    Me.ListBox1.Visible = False






    End Sub


    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)


    Dim mioarr(5) As Variant
    X = 1
    For n = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(n) = True Then
    mioarr(X) = Me.ListBox1.List(n)
    X = X + 1
    End If
    Next n
    For i = 1 To UBound(mioarr)
    selez = selez & vbCrLf & mioarr(i)
    mysel = mysel & " " & mioarr(i)
    Next


    If Not Application.Intersect(Target, Range("E3:E1000")) Is Nothing Then


    ActiveCell.Select
    ActiveCell.Interior.Color = RGB(36, 193, 204)
    Selection.Value = mysel
    cont = 1
    For a = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(a) = True Then
    ctrl = True
    Me.ListBox1.Selected(a) = False
    End If
    Next
    ctrl = False
    End If
    Me.ListBox1.Visible = False
    Range("E12").Select


    End Sub










    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("E3:E1000")) Is Nothing Then
    ActiveCell.Interior.Color = RGB(36, 193, 204)
    Me.ListBox1.Visible = True
    With ListBox1
    .Clear
    .AddItem "NUTRITO LA FAMIGLIA"
    .AddItem "FOGLIO CEREO"
    .AddItem "2 FOGLI CEREI"
    .AddItem "MELARIO"
    .AddItem "TOLTO MELARIO"
    .AddItem "CONTROLLO"
    .AddItem "TRATTAMENTO ANTIVARROA"
    .AddItem "EQUILIBRRA FAMIGLIA"
    .AddItem "INSTALLAZIONE POSTAZIONE"
    .AddItem "BLOCCO DI COVATA"
    .AddItem "ELIMINAZIONE CELLE REALI"
    .AddItem "POSA APISCAMPO"
    .AddItem "RACCOLTA PROPROLI"
    .AddItem "MESSA TRAPPOLA POLLINE"


    End With
    End If


    End Sub
    File Allegati File Allegati

  34. #29
    L'avatar di Gianfranco55
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Vicenza
    Età
    62
    Messaggi
    2078
    Versione Office
    2016
    Likes ricevuti
    553
    Likes dati
    117

    Re: Estrapolare valore in base a più condizioni

    ciao

    ti segnalo gli errori

    Codice: 
    Public ctrl As Boolean
    Option Base 1
    
    Private Sub Worksheet_Activate()
    Me.ListBox1.Visible = False
    End Sub
    
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim mioarr(5) As Variant
    X = 1
    For n = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(n) = True Then
    mioarr(X) = Me.ListBox1.List(n)
    X = X + 1
    End If
    Next n
    For i = 1 To UBound(mioarr)
    selez = selez & vbCrLf & mioarr(i)
    mysel = mysel & " " & mioarr(i)
    Next
    If Not Application.Intersect(Target, Range("E3:E1000")) Is Nothing Then
    ActiveCell.Select
    ActiveCell.Interior.Color = RGB(36, 193, 204)
    Selection.Value = mysel
    cont = 1
    For a = 0 To Me.ListBox1.ListCount - 1
    If Me.ListBox1.Selected(a) = True Then
    ctrl = True
    Me.ListBox1.Selected(a) = False
    End If
    Next
    ctrl = False
    End If
    Me.ListBox1.Visible = False
    Range("E12").Select
    End Sub
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("E3:E1000")) Is Nothing Then
    ActiveCell.Interior.Color = RGB(36, 193, 204)
    Me.ListBox1.Visible = True
    With ListBox1
    .Clear
    .AddItem "NUTRITO LA FAMIGLIA"
    .AddItem "FOGLIO CEREO"
    .AddItem "2 FOGLI CEREI"
    .AddItem "MELARIO"
    .AddItem "TOLTO MELARIO"
    .AddItem "CONTROLLO"
    .AddItem "TRATTAMENTO ANTIVARROA"
    .AddItem "EQUILIBRRA FAMIGLIA"
    .AddItem "INSTALLAZIONE POSTAZIONE"
    .AddItem "BLOCCO DI COVATA"
    .AddItem "ELIMINAZIONE CELLE REALI"
    .AddItem "POSA APISCAMPO"
    .AddItem "RACCOLTA PROPROLI"
    .AddItem "MESSA TRAPPOLA POLLINE"
    End With
    End If
    End Sub
    colore rosso
    se al click usi lo stesso colore dello sfondo
    cambiare il colore non serve ad una cippa lippa
    cambia questo RGB

    colore arancio

    nota che stai selezionando una cella der range E3:E1000
    perciò attivi la macro selection Change
    ecco il perché la tendina è sempre visibile.
    metti la cella che vuoi ma non interna al range
    che ne so E2 F2 A1

    quella che vuoi ma esterna a E3:E1000

    ora vedo l'altro file
    allegato
    con la tabella filtrata.

    ciao

Discussioni Simili

  1. [Risolto] Formattazione condizionale in base a più condizioni
    Di nick0573 nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 03/02/17, 11:59
  2. [Risolto] da una tabella estrapolare un valore da due dati di partenza
    Di Eddie18 nel forum Domande su Excel in generale
    Risposte: 5
    Ultimo Messaggio: 19/01/17, 09:57
  3. Risposte: 6
    Ultimo Messaggio: 29/09/16, 23:54
  4. Restituire dei valori in base a piu condizioni
    Di Ale64 nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 05/07/16, 22:36
  5. Risposte: 7
    Ultimo Messaggio: 22/06/16, 16:17

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
  •