Macro per filtro e macro leva filtro

[Gennaro]

Buon pomeriggio, ho avuto l'occasione la settimana scorsa di essere aiutato per un problema con open, masticando un poco vba di excel ma digiuno di Open ne approfitto poichè sono bloccato e non riesco ad andare avanti. Come da allegato mi occorre una macro che utilizza il filtro e altra che lo rimuove e facendo 'operazione manualmente sembrerebbe che tutto funzioni perfettamente ma registrando le relative macro non riesco a capire perchè NON funzionano. Le due macro andranno inserite in un progetto senza le quali si dovrà per forza operare ritardando notevolmente la soluzione finale. Spero in un Vostro aiuto. Grazie
Nota la colonna da filtrare è la N con la X

[lucky63]

registrando le relative macro non riesco a capire perchè NON funzionano

.
Limitazioni del registratore di macro ...

Limitazioni del registratore di macro.png (48.23 KiB) Visto 349 volte

.

masticando un poco vba

.

X filtrati in colonna N.png (16.45 KiB) Visto 349 volte

.

Codice: Seleziona tutto

Option VBASupport 1 

Sub FiltraPerX_InColonnaN
Worksheets("Foglio1").Range("A1").AutoFilter Field:= 14, _
Criteria1:= "X"
End Sub


Sub MostraTutti
Worksheets("Foglio1").Range("A1").AutoFilter
Worksheets("Foglio1").AutoFilterMode = True
End sub

.

[Gennaro]

Ciao Lucky63, grazie ancora per il tuo intervento però questa volta non è risolutivo. La tua macro funzione perfettamente ma purtroppo inserita nel mio progetto si rifiuta di funzionare oltretutto lascia il quadratino antiestetico che non si riesce a togliere in nessuna maniera. Molto probabilmente devo avere qualcosa che non gira bene nel mio progetto quindi ci studierò un poco e semmai chiederò nuovamente l'intervento del forum. Poichè tranne i quadratini la macro è perfetta metto risolto poichè hai risposto alla mia richiesta.

[lucky63]

tranne i quadratini la macro è perfetta

lascia il quadratino antiestetico che non si riesce a togliere in nessuna maniera

... credevo volessi mantenerli ... ho modificato le due macro e ora non appaiono ...
.

X filtrati in colonna N - Senza vizualizzare i quadrattini di filtraggio.png (13.34 KiB) Visto 334 volte

.

Codice: Seleziona tutto

Option VBASupport 1 

Sub FiltraPerX_InColonnaN
Worksheets("Foglio1").Range("A1").AutoFilter Field:= 14, _
Criteria1:= "X"
Worksheets("Foglio1").AutoFilterMode = False
End Sub


Sub MostraTutti
Worksheets("Foglio1").AutoFilterMode = True
Worksheets("Foglio1").Range("A1").AutoFilter
End sub

.

Test - Macro - Prova filtra “X” in colonna “N” - Senza vizualizzare i quadrattini di filtraggio.ods

(27.04 KiB) Scaricato 5 volte

...
Poi ti ricordo che il [Risolto] va messo davanti al titolo del quesito di apertura iniziale altrimenti non si vede nel riepilogo degli argomenti ..
.

Modifica risolto.png (73.9 KiB) Visto 331 volte

.