Risultati da 1 a 9 di 9

Discussione: Media con cerca vert



  1. #1
    L'avatar di Kinoppi90
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    firenze
    Messaggi
    35
    Versione Office
    2007
    Mi Piace ricevuti
    0
    Mi Piace dati
    3

    Media con cerca vert

    Salve ragazzi,
    sono di nuovo qua a scocciarvi con i miei quesiti.
    Stavolta avrei bisogno di cercare un nome in più tabelle disposte in più fogli e che mi restituisca il valore che ha nella cella alla sua destra,
    oppure se quella cella è vuota cercarlo alla sua sinistra.
    Ad esempio, nel file che allego abbiamo Florenzi nel foglio G1 in posizione D3 (ma devo farlo per tutti i giocatori) e Florenzi nel foglio G2 in posizione Q3,
    Nel foglio G1 il valore che vorrei mi restituisse è il Voto 7 che è alla sua destra mentre nel G2 è sempre il voto in questo caso 6,8 che è alla sua sinistra.
    Mi servirebbe che con un click su una macro nel foglio Media Voti mi inserisca nelle colonne G1 G2 i rispettivi voti e nel foglio Media voti la Media accanto a Florenzi in G5 la media che in questo
    caso sarà data da (7+6,8)/2 ovvero un bel 6.9
    Spero di essermi spiegato bene.
    Non riesco a trovare la soluzione da solo.
    Grazie in anticipo a tutto il forum.
    File Allegati File Allegati

  2. #2

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    36
    Messaggi
    2595
    Versione Office
    2016
    Mi Piace ricevuti
    706
    Mi Piace dati
    623

    Re: Media con cerca vert

    Ciao,
    non ho capito perchè vuoi usare una macro?
    Dopo saresti in grado di gestirla in caso di modifiche?

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

  3. #3
    L'avatar di Kinoppi90
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    firenze
    Messaggi
    35
    Versione Office
    2007
    Mi Piace ricevuti
    0
    Mi Piace dati
    3

    Re: Media con cerca vert

    Ciao Cromagno e grazie intanto dell'interessamento
    Hai ragione andrebbe benissimo anche con formule excel...
    Sto cercando di imparare il VBA, ho già fatto molte macro per questo progettino e forse forse potrei essere in grado di gestirla (però non ne sono certissimo).
    Però se c'è meno da impazzire mi ripeto andrebbe bene anche con excel.

  4. #4

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    36
    Messaggi
    2595
    Versione Office
    2016
    Mi Piace ricevuti
    706
    Mi Piace dati
    623

    Re: Media con cerca vert

    Citazione Originariamente Scritto da Kinoppi90 Visualizza Messaggio
    Ciao Cromagno e grazie intanto dell'interessamento
    Hai ragione andrebbe benissimo anche con formule excel...
    Sto cercando di imparare il VBA, ho già fatto molte macro per questo progettino e forse forse potrei essere in grado di gestirla (però non ne sono certissimo).
    Però se c'è meno da impazzire mi ripeto andrebbe bene anche con excel.
    Ok...
    ma se vuoi imparare, avresti dovuto anche allegare la macro che hai provato a scrivere, così ti si poteva dire cosa non andava.

    Appena posso gli do uno sguardo...

    Ciao
    Tore

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

  5. #5

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    36
    Messaggi
    2595
    Versione Office
    2016
    Mi Piace ricevuti
    706
    Mi Piace dati
    623

    Re: Media con cerca vert

    Lato formule potresti fare cosi:

    nella cella D5 del foglio "Media Voti" (da copiare poi a destra ed in basso) metti questa formula matriciale (quindi da confermare con la combinazione di tasti CTRL+MAIUSC+INVIO anzichè solo con INVIO):

    =MAX(INDICE(INDIRETTO("'"&D$3&"'!A1:AA12");MAX(SE.ERRORE(RIF.RIGA($D$3:$AA$12)/(INDIRETTO("'"&D$3&"'!D3:AA12")=$B5);""));MAX(SE.ERRORE(RIF.COLONNA($D$3:$AA$12)/(INDIRETTO("'"&D$3&"'!D3:AA12")=$B5);""))+1);INDICE(INDIRETTO("'"&D$3&"'!A1:AA12");MAX(SE.ERRORE(RIF.RIGA($D$3:$AA$12)/(INDIRETTO("'"&D$3&"'!D3:AA12")=$B5);""));MAX(SE.ERRORE(RIF.COLONNA($D$3:$AA$12)/(INDIRETTO("'"&D$3&"'!D3:AA12")=$B5);""))-1))

    Per la media, basta la funzione MEDIA da mettere nella cella C5 e copiare poi in basso:

    =MEDIA(D5:E5)


    ti riallego il file...
    Fai sapere se riesci a capire la formula o vuoi passare comunque al VBA.
    File Allegati File Allegati

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

  6. I seguenti 2 utenti hanno dato un MI Piace a cromagno per questo post:


  7. #6
    L'avatar di Kinoppi90
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    firenze
    Messaggi
    35
    Versione Office
    2007
    Mi Piace ricevuti
    0
    Mi Piace dati
    3

    Re: Media con cerca vert

    No no mi sono espresso male.
    Per questo problemino non ho provato a scrivere una macro... le macro le ho fatte per altre cose ��
    Grazie mille Cromagno provo subitissimo e ti faccio sapere.
    Grazie ancora per la tua gentilezza e la celertà.

  8. #7
    L'avatar di Kinoppi90
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    firenze
    Messaggi
    35
    Versione Office
    2007
    Mi Piace ricevuti
    0
    Mi Piace dati
    3

    Re: Media con cerca vert

    Grazie 1000 Cromagno...
    Perfetto proprio quello che mi serviva... la formula funziona perfettamente!!
    Se riusci a farla in VBA... (ma non ho proprio idea su come farla.... ti andrebbe di darmi una bella mano così poi me la studio?)
    Se è troppo impegnativa va benissimo anche così e ti ringrazio molto

  9. #8

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    36
    Messaggi
    2595
    Versione Office
    2016
    Mi Piace ricevuti
    706
    Mi Piace dati
    623

    Re: Media con cerca vert

    Citazione Originariamente Scritto da Kinoppi90 Visualizza Messaggio
    Grazie 1000 Cromagno...
    Perfetto proprio quello che mi serviva... la formula funziona perfettamente!!
    Se riusci a farla in VBA... (ma non ho proprio idea su come farla.... ti andrebbe di darmi una bella mano così poi me la studio?)
    Se è troppo impegnativa va benissimo anche così e ti ringrazio molto
    Questo potrebbe essere un modo:

    Codice: 
    Option Explicit
    
    
    Sub Importa_Voti()
    Dim Sh As String, Dati As Range, Corrisp As Range
    Dim Studenti As Range, URstudents As Long, Nome As Range
    Dim Voto As Double, UCfogli As Long, i As Long, riga As Long
    Dim Media As Double, RngAverage As Range
    
    
    Application.ScreenUpdating = False
    URstudents = Range("B5").End(xlDown).Row
    UCfogli = Cells(3, Columns.Count).End(xlToLeft).Column
    Set Studenti = Worksheets("Media Voti").Range("B5:B" & URstudents)
    Range(Cells(5, 3), Cells(URstudents, UCfogli)).ClearContents
    
    
    For i = 4 To UCfogli
        Sh = Cells(3, i).Value
        If Worksheets(Sh).Name <> "Media Voti" Then
            Set Dati = Worksheets(Sh).Range("D3:AA12")  'modificare il range all'evenienza
            For Each Nome In Studenti
                riga = Nome.Row
                Set Corrisp = Dati.Find(Nome.Value, , xlValues)
                If Not Corrisp Is Nothing Then
                    Voto = IIf(Corrisp.Offset(0, 1) <> "", Corrisp.Offset(0, 1), Corrisp.Offset(0, -1))
                    Worksheets("Media Voti").Cells(riga, i).Value = Round(Voto, 1)
                End If
            Next
        End If
    Next i
    
    
    For i = 5 To URstudents
        Set RngAverage = Range(Cells(i, 4), Cells(i, UCfogli))
        Media = Application.WorksheetFunction.Average(RngAverage)
        Range("C" & i).Value = Media    'usare "Round" per arrotondare la media
    Next i
    
    
    Application.ScreenUpdating = True
    Set Studenti = Nothing
    Set Dati = Nothing
    Set Corrisp = Nothing
    Set RngAverage = Nothing
    End Sub
    se ci dovessero essere molti fogli e/o range più ampi converrebbe usare delle matrici nel codice.
    File Allegati File Allegati

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

  10. I seguenti utenti hanno dato un "Mi Piace"


  11. #9
    L'avatar di Kinoppi90
    Clicca e Apri
    Data Registrazione
    Sep 2016
    Località
    firenze
    Messaggi
    35
    Versione Office
    2007
    Mi Piace ricevuti
    0
    Mi Piace dati
    3

    Re: Media con cerca vert

    Sei un Grandissimo Cromagno!!!!!!!
    Grazie 1000 ora me la studio per bene!!!!!!!

Discussioni Simili

  1. [Risolto] cerca vert
    Di Agodan nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 09/10/16, 13:31
  2. Cerca.Vert con Se
    Di jigen nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 02/08/16, 11:31
  3. Cerca.vert
    Di Snoopy nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 09/06/16, 16:01
  4. Cerca Vert
    Di smanimania nel forum Domande su Excel in generale
    Risposte: 11
    Ultimo Messaggio: 22/02/16, 17:13
  5. cerca vert
    Di Lucagiuseppe nel forum Domande su Excel in generale
    Risposte: 10
    Ultimo Messaggio: 02/02/16, 17:58

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
  •