alexthevoice ha scritto:Salve ragazzi, io devo eliminare delle righe sun un foglio di lavoro con 30.000 righe, voglio eliminare tutte le righe che contengono la parola "pippo", tutte quelle che contengono la parola "topolino" etc etc...
Vi avviso che non sono esperto in fatto di macro, non ne so proprio nulla...
Rimango speranzioso in attesa...
Cordiali saluti
Alessandro
Anch'io ho lo stesso problema devo eliminare delle rige che contengono determinate parole.
Ho applicato la macro alle mio file ma la macro fa solo uno scrolling e non elimina nulla l'ho tenuta in esecuzione per una notte intera ma alla fine continuava a fare lo scrolling e basta.
Riporto il codice spero che qualcuno mi possa aiutare.
Dim Cancella(30) As String
Cancella(1) = "SYMANT"
Cancella(2) = "LICENZE"
Cancella(3) = "MULTILICENZE"
Cancella(4) = "VMWARE"
Cancella(5) = "GARANZIA"
Cancella(6) = "MAINTENAN"
Cancella(7) = "PREVENTIVE"
Cancella(8) = "ESTENSIONE"
Cancella(9) = "SW BTO"
Cancella(10) = "MCAFEE"
Cancella(11) = "RED HA"
Cancella(12) = "WINDOWS SERVER CAL"
Cancella(13) = "ANTI VIRUS"
Cancella(14) = "PANDA"
Cancella(15) = "TREND MICRO"
Cancella(16) = "NUANCE"
Cancella(17) = "APPLICATION"
Cancella(18) = "ENTERPRISE"
Cancella(19) = "COREL"
Cancella(20) = "APPLICATIVI"
Cancella(21) = "VISUAL STDIO"
Cancella(22) = "- MICROS"
Cancella(23) = "ADOBE"
Cancella(24) = "LICENZA"
Cancella(25) = "VEEAM"
Cancella(26) = "AGFA"
Cancella(27) = "MAINTENANCE"
Cancella(28) = "LOTUS"
Cancella(29) = "EXCHANGE"
Cancella(30) = "OBBLIGAT ISS"
For C = 1 To 30
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 Cancella(C) = UCase(Cells(CR, CC).Value) Then Rows(CR & ":" & CR).Delete Shift:=xlUp
Next CC
Next CR
Next C
End Sub