[excel] macro elimina righe

[alessiodonofrio]

salve ragazzi, ho bisogno di eliminare da una tabella tutte le righe già presenti in un 'altra tabella, che sono identificabili per un codice univoco presente nella colonna A. Ho fatto una macro di questo tipo :

Sub eliminarighe()

UR = Worksheets("foglio1").Range("A" & Rows.Count).End(xlUp).Row
For RR = UR To 2 Step -1
If Cells(RR, "A") <> Cells.Range("A2:A310").Worksheet("foglio2") Then Rows(RR).Delete
Next RR

End Sub

purtroppo mi da errore di runtime 9 - indice non incluso nell' intervallo.

potete aiutarmi ?

[Anthony47]

Per capire quell' errore avresti dovuto almeno dire su quale riga veniva fuori; la cosa piu' probabile e' che in quel momento non ci fosse nessun workbook attivo.
Comunque avresti avuto altri errori bloccanti; se il tuo obiettivo e' eliminare le righe di Foglio1 che in colonna A hanno un valore presente nella colonna A di Foglio2, allora potresti usare questa variante:

Codice: Seleziona tutto

Sub eliminarighe()
Sheets("Foglio1").Select
UR = Range("A" & Rows.Count).End(xlUp).Row
For RR = UR To 2 Step -1
If Application.WorksheetFunction.CountIf(Sheets("Foglio2").Range("A2:A310"), Cells(RR, "A")) > 0 Then _
    Rows(RR).Delete
Next RR
End Sub


Fai sapere, ciao

[alessiodonofrio]

ciao anthony si questa variante funziona perfettamente, ti ringrazio !

[Giamma]

Ciao Anthony47,
sono un profane dell'argomento, ma devo risolvermi un problema.... con una form seleziono un codice all interno di una riga e dovrei cancellare questa riga, non sapendo come fare, ho provato ad usare questa macro ma si blocca su:

For RR = UR To 2 Step -1

mi dice "variabile non definite"

Grazie per l aiuto

[Anthony47]

Ciao giamma, benvenuto nel forum.
Non so se la macro fara' quello che ti serve, ma quell' errore indica che hai impostato, in testa al "Modulo" in cui hai inserito la macro, l' istruzione "Option Explicit".

Cancellala e riprova (dopo aver fatto sufficienti copie di backup del tuo file...).

E se questa macro non risolve il tuo problema allora scrivi ancora ma descrivici cosa devi ottenere.

Ciao