Vi chiedo ancora una mano per realizzare una macro per me troppo complessa..
In Foglio21 la Colonna47 di Tabella1, può contenere 4 valori ripetuti più volte senza un ordine logico.
I 4 valori sono: Grandi – Mezzani – Piccoli – Superpiccoli.
La macro che mi servirebbe, dovrebbe individuare tutte le celle di Colonna47 che contengano il valore “Grandi” e eliminare l’intera riga (cosa che è possibile fare con la macro preparatami da Anthony47 riadattandola (Topic : Cancellazione selettiva riga Tabella del 21/12/11)
- Codice: Seleziona tutto
MyComp = Sheets("Foglio9").Range("N46").Value
'
Sheets("21").Select
With ActiveSheet.ListObjects("Tabella1")
For I = 1 To 10000
MyLine = Application.Match(MyComp, .ListColumns("Codice Fiscale").Range, 0)
If IsError(MyLine) Then Exit For
.ListRows(MyLine - 1).Delete
Next I
End With
In seguito dovrebbe col seguente ordine:
individuare tutti I valori “Mezzani” e trasformarli in “Grandi”
individuare tutti I valori “Piccoli” e trasformarli in “Mezzani”
individuare tutti I valori “Superpiccoli” e trasformarli in “Piccoli”
Grazie per l’impegno!
marte