Excel 2010 - estrazione righe

[oscarcasin]

Buongiorno a tutti, utilizzo Excel 2010 ed avrei bisogno di un aiuto. Da una tabella tipo quella sottostante, vorrei che excel estragga (ad esempio piu in basso sempre nel medesimo foglio) solamente determinate righe. Nello specifico vorrei che venisse ricompilata una tabella estraendo la riga in corrispondenza di quegli incontri in cui la differenza reti è superiore a 3.

Ho provato a consultare il forum ed ho visto che in materia ci sono diversi post ma non riesco ad adattarli in maniera specifica.

Grazie a tutti dell'aiuto.

Codice: Seleziona tutto

Data        Incontro          C  F  Diff.
05/10  CHIEVO     ATALANTA    0  1  1
05/10  INTER      ROMA        0  3  3
06/10  BOLOGNA    VERONA      1  4  3
06/10  CATANIA    GENOA       1  1  0
06/10  JUVENTUS   MILAN       3  2  1
06/10  LAZIO      FIORENTINA  0  0  0
06/10  NAPOLI     LIVORNO     4  0  4
06/10  PARMA      SASSUOLO    3  1  2
06/10  SAMPDORIA  TORINO      2  2  0
06/10  UDINESE    CAGLIARI    2  0  2

[ricky53]

Ciao,
hai provato con il filtro?
Sulla colonna con la differenza reti imposta "> di tre"
ottenuto il risultato con Copia/Incolla avrai quello che ti occorre.

Se l'operazione va fatta più volte si può pensare di automatizzare queste fasi con una macro ...
Vedi tu e ... sentiamoci

[oscarcasin]

Grazie Ricky, in realtà quello che io vorrei è che nel momento stesso in cui aggiorno la tabella tramite la query web, in automatico venga creata l'estrazione delle righe senza dovere applicare alcun filtro: non so se mi spiego.

Sul forum ho visto diversi argomenti che utilizzano formule (a dire il vero piuttosto complesse) e non macro.

[ricky53]

Ciao,
quando si pone un quesito è cosa buona e giusta dare tutte le informazioni di cui si è in possesso.
Allora: adesso sappiamo che hai una query web che ti aggiorna la tabella. BENE.

Ci sono altre cose che devi dirci che ci possono aiutare a trovare una soluzione?

Con le formule la vedo complicata.

Io penso che si potrà realizzare una macro che aggiorni la query e che copi i dati con la condizione che lo scarto goal sia >3.
Hai altre condizioni/regole che vanno applicate per arrivare al risultato atteso?

[oscarcasin]

Scusami Ricky, non volevo nascondere l'informazione:evidentemente la mia scarsa dimestichezza con il Excel (sono un utente base) mi ha fatto sottovalutare la sua importanza.

Quindi se ho capito bene attraverso una macro potrei:
- aggiornare i risultati;
- e sempre nel medesimo foglio estrarre quegli incontri che hanno piu di tre goal di differenza

Sarebbe l'ideale

Grazie ancora

[ricky53]

Ciao,
adesso sai che più informazioni fornisci su un quesito e più facile sarà ottenere delle soluzioni.


In merito alla soluzione: si è così.

Puoi inviare la query che utilizzi per ottenere la tabella con gli incontri?

Un file di esempio aiuterebbe

[Anthony47]

Ciao oscarcasin, benvenuto nel forum.
Vedo che hai XL2010, quindi dovresti poter usare l' evento AfterRefresh della web query, come suggerito all' utente AntonioPatella qui: viewtopic.php?t=98829#p568768
Ovviamente la macro da scatenare dopo l' evento e' specifica per il problema posto da te, quindi la Private Sub qt_AfterRefresh nella discussione linkata dovrebe essere sostituita da quest' altra versione:

Codice: Seleziona tutto

Private Sub qt_AfterRefresh()
If Not Success Then Exit Sub
Dim qtAdr As String, I As Long, I2 As Long
'
qtAdr = "F5"    '<<< La cella con l' intestazione "Diff"
'
Sheets("Foglio2").Range("A2:G200").ClearContents
I2 = 2
For I = 1 To 200
    If Range(qtAdr).Offset(I, 0).Value = "" Then Exit For
    If Range(qtAdr).Offset(I, 0).Value > 3 Then
        Sheets("Foglio2").Cells(jj, 1).Resize(1, 6).Value = Cells(I, 1).Resize(1, 6).Value
    End If
Next I
End Sub


Presuppone che la web query sia inserita su Foglio1 e mette i dati in colonna A:F da riga 5 in poi; su Foglio2 viene creata, da riga 2 in avanti, la tabella derivata da quella di Foglio1.
L' area Range("A2:G200") di Foglio2 VIENE AZZERATO senza nessun preavviso prima di inserire i dati che rispecchiano il criterio dato (usa Riga1 per inserirci le intestazioni).

Ho dei dubbi sul tipo di dati estratti dalla query, per qualsiasi debug servira' l' url da cui prelevi, soprattutto in caso di run time error 13.

Ciao, fai sapere.

[oscarcasin]

Grazie a tutti davvero per l'aiuto

Allego il file. In sostanza nel foglio "Aggiornamento Serie A" riporto tramite la query i risultati degli incontri dell'ultima giornata di serie A.

Poi nel foglio 1 li riordino. Ciò che vorrei fare è che per gli incontri con una differenza reti maggiore di 3 vengano evidenziate nelle celle sotto in giallo.

Proseguendo nel mio progetto vorrei poi allargare gli aggiornamenti a differenti campionati andando a raggruppare tutti gli incontri con la famosa differenza in un ulteriore foglio.

Ecco il file. Grazie a tutti ancora.

http://www.mediafire.com/download/logcj ... oglio.xlsx

[Anthony47]

Vedo che non hai nemmeno provato a usare il suggerimento che ti ho dato...
Cambiando approccio, lavorando su Foglio1:
-in A21 inserisci la formula

Codice: Seleziona tutto

=PICCOLO(SE(O$6:O$20>3;RIF.RIGA(O$6:O$20);"");RIF.RIGA(A1))

da confermare con Contr-Maiusc-Enter, non il solo Enter.

-In B21 inserisci la formula

Codice: Seleziona tutto

=SE(VAL.ERRORE($A21);"";INDICE(B$1:B$20;$A21))

Copiala nelle celle adiacenti su cui vuoi riportare il risultato dalla tabella soprastante
-copia infine le formule di A21:O21 verso il basso per un numero di righe sufficienti a rappresentare il possibili risultati con differenza >3.

Ciao

[oscarcasin]

Ciao Anthony e grazie per le formule. Ho provato e fanno proprio ciò di cui ho bisogno. Grazie anche per le macro ma per quelle ho bisogno di un po piu di tempo perchè devo "assimilare" questo aspetto di Excel.

Stasera provo a lavorarci un po e vediamo che combino.

Nel frattempo grazie ancora per il prezioso aiuto.