Excel2003: riferimento perso dopo elimiazione righe

[karug64]

Salve a tutti.
Nel mio foglio("menu") nella cella U18 c'e' questa formula =Dossier!A2

Il foglio("Dossier") viene alimentato da una routine. Non appena la cella A2 assume un valore, ovviamente, sul foglio("menu") viene riporato quel valore.

Dopo aver alimentato il foglio("Dossier") lancio un'altra routine (riporata di seguito) che provvede a cancellare le righe doppie

Codice: Seleziona tutto

Sub elimina_doppi()
Application.ScreenUpdating = True
Set currentCell = Worksheets("Dossier").Range("B2")
Do While Not IsEmpty(currentCell)
Set nextCell = currentCell.Offset(1, 0)
If nextCell.Value = currentCell.Value Then
currentCell.EntireRow.Delete
End If
Set currentCell = nextCell
Loop
Set cur = Worksheets("Dossier").Range("B2")
End Sub


Appena esco da questa routine, (nonostante la cella A2 del foglio(Dossier") contenga un valore, perdo il riferimento sul foglio("Menu") che diventa =Dossier!#RIF

Non capisco il perche' e non so risolvere.
Potete aiutarmi ?
Grazie

[Anthony47]

Forse la tua macro cancella le righe iniziali di Dossier?
Se vuoi forzare la formula a rimanere su A2, potresti usare la notazione

Codice: Seleziona tutto

=indiretto("Dossier!A2")

Ciao

[ricky53]

Ciao,
confermo quanto scritto da Anthony.

Il caso si verifica se la "B2" e la "C2" sono uguali ---->> viene cancellata la riga "2" con il risultato che conosci ("#RIF").

Io ti consiglio di utilizzare questo codice

Codice: Seleziona tutto

Sub Elimina_Doppi()
    Dim Ws1 As Worksheet, I As Long, RR As Long
    Set Ws1 = Sheets("Dossier")
    RR = Ws1.Range("B" & Rows.Count).End(xlUp).Row
    For I = RR To 2 Step -1
        If Ws1.Cells(I, 2) = Ws1.Cells(I - 1, 2) Then
            Ws1.Rows(I).EntireRow.Delete
        End If
    Next I
End Sub

[ricky53]

Ciao,
per non vedere lo sfarfallio dello schermo puoi aggiungere " Application.ScreenUpdating = False" all'inizio e ripristinare alla fine. Il codice sarà

Codice: Seleziona tutto

Sub Elimina_Doppi()
    Application.ScreenUpdating = False
    Dim Ws1 As Worksheet, I As Long, RR As Long
    Set Ws1 = Sheets("Dossier")
    RR = Ws1.Range("B" & Rows.Count).End(xlUp).Row
    For I = RR To 2 Step -1
        If Ws1.Cells(I, 2) = Ws1.Cells(I - 1, 2) Then
            Ws1.Rows(I).EntireRow.Delete
        End If
    Next I
    Application.ScreenUpdating = True
End Sub