prelevare classifiche

[raimea]

ciao
tramite macro, e PULSANTE se possibile
vorrei riuscire a copiare e riportare la classifica di una nazione che seleziono in AD5 fgl ---> filtra

quindi:
in AD5 scelgo la nazione / campionato ,
lo vado a cercare in fgl CAMP col AM

quando l'ho trovato copio la situazione dalle col B:AL
e le incollo in fgl filtra in AC7 in giu'

da notare che non tutti i campionati hanno lo stesso num di squadre
quindi si deve verificare di quante righe e' composta la classifica
per copiare / incollare il corretto numero di squadre

spero di essere stato chiaro
vi allego il file :
https://db.tt/K26IEURf

Ps
x correttezza informo che ho chiesto aiuto anche su altro forum
ma x ora sono "fermo".

grazie
ciao

[Anthony47]

Prova con questa:

Codice: Seleziona tutto

Sub getClass()
'Vedi http://www.pc-facile.com/forum/viewtopic.php?f=26&t=102577
Dim myCamp As String, myTeams As Long, myMatch
'
myCamp = Foglio8.Range("AD5")
myMatch = Application.Match(myCamp, Foglio1.Range("AM:AM"), 0)
If Not IsError(myMatch) Then
    Foglio8.Range("AC7:BN41").ClearContents     'Azzera l' area su FILTRA
    myTeams = Application.WorksheetFunction.CountIf(Foglio1.Range("AM:AM"), myCamp)
    Foglio1.Cells(myMatch, "B").Resize(myTeams, 38).Copy        '<<< 38: copia anche il Campionato
    Foglio8.Range("AC7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
End If
End Sub


(sul file che hai pubblicato va in errore la Private Sub Worksheet_Change del foglio FILTRA se la macro e' eseguita avendo attivo un foglio diverso da FILTRA, a causa di un Range("G7:H500").Select che ovviamente non potra' essere eseguita; quindi o cambi la Worksheet_Change o fai in modo che la Sub getClass sia solo eseguita dal foglio FILTRA).

Mi son permesso di copiare anche la colonna Campionato (AM di CAMP); se non ti va modifica nell' istruzione marcata <<< quel 38 in 37.

Ciao

[raimea]

ciao
tutto ok

fai in modo che la Sub getClass sia solo eseguita dal foglio FILTRA

ho applicato questa soluzione

Mi son permesso di copiare anche la colonna Campionato (AM di CAMP)

ottimo

mille grazie
ciao

[Anthony47]

Pero' quando riporti la macro in altri forum ti chiederei di copiarla senza omissioni...

Ciao, alla prossima.

[raimea]

ciao
sistemato,
effettivamente non ci ero arrivato subito , a cosa servisse quella descrizione/riferimento con apice.
pensavo un tuo appunto personale , ecco perche' l'avevo tolta.

ora e' "integra"

ancora grazie
ciao