Riga di codice per filtrare solo le righe con data senza formule

GiuseppeMN, 11/06/2018 07.36:

---

Buona giornata, sputnik_r;
dall'immagine proposta in Risposta #26 vedo una situazione molto diversa rispetto a quella proposta nel File in #1.

A questo punto devo chiederti di rimandarmi il tuo File con la situazione proposta in Risposta #26; in questo modo vedo quello che devo modificare.



A disposizione.

Giuseppe

---

GiuseppeMN, 11/06/2018 17.39:

---

Buona sera, sputnik_r.
Provo a togliermi il "cappello Excel" e metto quello di quando ero responsabile di Produzione.
Il File l'avrei concepito in questo modo :

-    N° 1 Foglio di lavoro per ogni Collaboratore
-    In Colonna "A" l'ncremento da attribuire alla Data presente nella Cella in Colonna "C"
-    Foglio di lavoro Protetto con eslusione delle Celle "A4:J406"; poi vedrai tu se aumentare o diminuire questo Range
-    Soliti tre Pulsanti per ogni Foglio di lavoro

Non mi resta che ...     ... e augurarmi possa esserti d'aiuto.


A disposizione.

Buona serata.

Giuseppe

---

GiuseppeMN, 11/06/2018 18.47:

---

Buona sera, sputnik_r.

@sputnik_r in Risposta #37, scrive:

---

... Il calendario lo feci 99 e ora ho implementato per l'utilizzo come gestione personale e relative richieste ferie, permessi 104, permessi avis, parentali ecc.

Quindi quella che vedi è una parte piccola e fatta nel 99... non posso più cambiare

---

Aquesto punto non saprei che aggiungere se non che, senza alcun dubio, sarei partito con ACCESS e non con Excel.



Buona serata.

Giuseppe

---

GiuseppeMN, 11/06/2018 12.16:

---

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

---

GiuseppeMN, 14/06/2018 17.07:

---

@sputnik_r, scrive:

---

... ti garantisco che dopo il trattamento del tuo codice i riferimenti vanno persi.

---

Solo per completezza, garantisco anch'io che prima di inviare una proposta conduco Test approfonditi.
Nell'immagine allegata la situazione iniziale e quella dopo aver eseguito il Codice VBA proposto in Risposta #41.
Da sabato-06-01-2018 in poi, dopo l'eliminazione i turni sono cambiati come precisato:

Giuseppe, in Risposta #34, scrive:

---

... I "#RIF!" sono spaririti ma i riferimenti delle date sono cambiati e questo credo non ti vada bene ...

---

In alternativa, successivamente, avevo prposto un'altra Procedura più flessibile che consentiva di non perdere i Riferimenti nelle Date sottostanti a quelle cancellate.

Ovviamente può capitare che proponga soluzioni non perfettamente testate ma non in questo caso.

---

GiuseppeMN, 14/06/2018 18.40:

---

Il File è quello che hai allegato tu in #32; se funziona solo a me sono portato a credere sia "l'aria del mio paesello".

Appena ho un momento di tempo preparo una bottiglia con l'aria delle mie parti e te la invio.

---