Buona giornata, sputnik_r.
I Record in Riga 10,11,12,13,14,15 e 16 non si riferiscono a Date duplicate ma, avendo indicato in Colonna "I" un valore i Record verranno cancellati e quindi creeranno "#RIF!" nelle Celle sottostanti
La filosofia della mia proposta era di eliminare le Date duplicate; se la tua esigenza è quella di non considerare le Date duplicate ma di cancellare tutti i Record identificati da un Valore inserito in Colonna "I", cambia tutto.
Sub Elimina_Date_duplicate()
Dim Titolo As String, Messaggio As String, Default As String, PswA As String
Titolo = "Protezione Codice ''Elimina Date duplicate" ' Definisce il titolo.
Messaggio = "Per accedere a questa Funzione, devi inserire la Password di autenticazione"
Default = ""
PswA = Application.InputBox(Messaggio, Titolo, Default)
If PswA <> Psw Then
MsgBox "La Password" & Chr(10) & PswA & Chr(10) _
& "non è corretta; chiedi autorizzazione al Responsabile."
End
End If
Application.ScreenUpdating = False
Dim Nrc As Long, x As Long
Call Visualizza_DataSet
Nrc = Range("B" & Rows.Count).End(xlUp).Row
For x = Nrc To 4 Step -1
If Cells(x, 9).Value <> "" Then Cells(x, 2).EntireRow.Delete
Next x
Nrc = Range("B" & Rows.Count).End(xlUp).Row
Cells(5, 2).FormulaLocal = "=$B4+1"
Cells(5, 2).Copy Range(Cells(5, 2), Cells(Nrc, 2))
Application.ScreenUpdating = True
End Sub
Praticamente ho dovuto aggiungere:
Nrc = Range("B" & Rows.Count).End(xlUp).Row
Cells(5, 2).FormulaLocal = "=$B4+1"
Cells(5, 2).Copy Range(Cells(5, 2), Cells(Nrc, 2))
Non vedo più le Formule in Colonna "H"; è corretto?
A disposizione.
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013