Pagina precedente | 1 2 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

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

Ultimo Aggiornamento: 14/06/2018 20:06
Post: 3.021
Registrato il: 03/04/2013
Utente Master
Excel 2000 - 2013
OFFLINE
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

Windows XP - Excel 2000
Windows 10 - Excel 2013
Vota: 15MediaObject0,00557
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 2 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 12:57. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com