La consultazione del forum è libera per tutti.
Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).
Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.
Buongiorno, avrei cortesemente bisogno del Vostro aiuto per applicare un filtro fino a che la cella contenga dati.
Mi spiego: ho una colonna A che ha una serie di numeri progressivi variabili in base ai records importati e mi servirebbe che la macro filtrasse uno ad uno i numeri progressivi fino a che ce ne siano.
Al momento ho impostato 60 filtri singoli ma, nel caso i records importati fossero di più, la macro non filtrerebbe quelli oltre al numero 60:
Sheets("MEDIE_sist").Select
Range("A:L").AutoFilter Field:=1, Criteria1:="1"
Range(Range("C1"), Range("L1").End(xlDown)).SpecialCells(xlCellTypeVisible).Copy
Sheets("MEDIE_AP").Select
Range("A5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A3:J3").Select
Application.CutCopyMode = False
Selection.Copy
Criteria1:="1" cambia da 1 a 60 ripetendo per altre 59 volte questa porzione di codice, rendendo la macro molto più lunga e pesante, nonchè rischiosa.
Grazie per qualsiasi suggerimento che magari possa impostare un loop di filtri fino a che la colonna A sia valorizzata con un numero.
Ciao
La mancanza di risposte credo dipenda da due fattori:
a) l'assenza di un allegato dove poter vedere la macro completa;
b) la motivazione non immediatamente percepibile.
Se ho capito quale è il problema, dovrebbe bastare un ciclo che modifichi il criterio del filtro ogni volta che si cambia e il controllo della condizione che la cella sia piena. Ma, ripeto, non è che sia sicuro di ave capito bene.
Ciao,
Mario
