[Excel] Macro per convertire valori in Tabella

[marte1503]

Ciao a tutti
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

[Flash30005]

Non ho Excel 2007 pertanto non posso usare quel codice

Ma questa macro scansiona la colonna 47 ("AU")
e in prima battuta cancella le righe con stringa "Grandi"
poi sostituisce come richiesto

Codice: Seleziona tutto

Sub Sostituisci()
Dim VettS(4) As String
VettS(1) = "Grandi"
VettS(2) = "Mezzani"
VettS(3) = "Piccoli"
VettS(4) = "Superpiccoli"
UR = Cells(Rows.Count, 47).End(xlUp).Row
For RR = UR To 1 Step -1
    If Cells(RR, 47).Value = VettS(1) Then Rows(RR & ":" & RR).Delete
Next RR
UR = Cells(Rows.Count, 47).End(xlUp).Row
For VV = 2 To 4
    For RR = 1 To UR
        If Cells(RR, 47).Value = VettS(VV) Then Cells(RR, 47).Value = VettS(VV - 1)
    Next RR
Next VV

End Sub

Ciao

[marte1503]

Grazie 1000 Flash
la tua macro funziona benissimo!!

A presto
Grazie
marte