Ciao a tutti, devo realizzare una Macro per eliminare righe su un foglio excel contenenti determinati valori, sono arrivato a questa soluzione ma non funziona correttamente, potete darle un ' occhiata e correggere miei eventuali errori?
vi ringrazio anticipatamente a tutti per il vostro supporto:
MACRO:Sub BUSINESS()
Dim Cancella(3) As String
Cancella(1) = "*S.R.L.*"
Cancella(2) = "*S.A.S.*"
Cancella(3) = "*SCUOLA*"
For C = 1 To 3
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
For CR = UR To 2 Step -1
UC = Worksheets("Foglio1").Cells(CR, Columns.Count).End(xlToLeft).Column
Rows(CR & ":" & CR).Select
For CC = 1 To UC
If UCase(Cells(CR, CC).Value) Like Cancella(1) Or UCase(Cells(CR, CC).Value) Like Cancella(2) _
Or UCase(Cells(CR, CC).Value) Like Cancella(3) Then Rows(CR & ":" & CR).Delete Shift:=xlUp
Next CC
Next CR
Next C
End Sub
Lanciando la macro così fatta il file viene analizzato e le righe contenenti le parole negli array vengono cancellate, ma se aggiungo più parole e modifico sia il valore " Dim Cancella(3) As String" aumentando da 3 a 10 e variando anche " For C= 1 To 10 la macro si blocca e mi tocca forzare la chiusura del foglio perdendo tutte le modifiche.
quello che devo ottenere dalla macro è ripulire una lista di nominativi da clienti Business.
allego anche il file originale così da poter valutare meglio la mia macro e glki errori che cisono.
grazie ancora a tutti per l'aiuto che vogliate fornirmi
link file: https://www.dropbox.com/s/zczctpl2siprq ... .xlsx?dl=0