cancellazione di un...
 
Notifiche
Cancella tutti

La consultazione del forum è libera per tutti.

Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).

Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.

cancellazione di una serie di nominativi senza filtro

20 Post
3 Utenti
0 Reactions
19 Visualizzazioni
Jekob_82
(@jekob_82)
Post: 236
Reputable Member
Avviatore di Topic
 

Postato da: @gianfranco55

la vecchia macro funziona anche senza cancellare prima i nomi.

Quale intendi, ci sono diversi codici, come fa poi a cancellare le righe se non cacella prima i nomi? cancella a vanvera?

 

 
Postato : 01/05/2025 20:58
Alexps81
(@alexps81)
Post: 10
Active Member
 

Ciao @Jekob_82

ipotizzando che tu metta l'elenco dei dipendenti da eliminare da "H7" in giù, prova questo codice:

Option Explicit

Sub eliminaDipendente()
    Dim tbl As ListObject
    Dim r As Long, ur As Long
    Dim dipendente As Range, dipendenti As Range

'===se l'elenco dei dipendenti viene messo in una colonna diversa allora cabiare la "H" in altra lettera
    ur = Cells(Rows.Count, "H").End(xlUp).Row
    Set dipendenti = Range("H7:H" & ur)
'=======================================================================================================
    If ur > 6 And dipendenti.Count > 0 Then
        Set tbl = ThisWorkbook.Worksheets("ELEDIP_SERV_MENSA").ListObjects(1)
        
        For Each dipendente In dipendenti
            If Trim(dipendente.Value) <> "" Then
                For r = tbl.ListRows.Count To 1 Step -1
                    If StrComp(dipendente.Value, tbl.ListRows(r).Range(tbl.ListColumns(2).Index).Value) = 0 Then
                        tbl.ListRows(r).Delete
                        Exit For
                    End If
                Next r
            End If
        Next dipendente
    End If
End Sub

Se invece lo metti in altra colonna, modifica la lettera "H".

Eventualmente si può migliorare ma serve capire come e dove si attingono i nomi dei dipendenti.

Questo post è stato modificato 3 ore fa 2 tempo da Alexps81
 
Postato : 01/05/2025 22:26
Jekob_82
(@jekob_82)
Post: 236
Reputable Member
Avviatore di Topic
 

si funziona ma non mi piace l'idea di dover riscrivere i nomi poi ci sono già altre colonne con dei filtri... non mi va di espandere il file con troppe colonne, poi ogni volta c'è da scorrere col mouse nella colonna interessata, facciamo che faccio senza e cancello a mano. in realtà non ho ben capito ha funzionato una volta ora non va piu, per cancellare il nome oltre a scriverlo nella colonna cosa devo fare?

Grazie lo stesso

Questo post è stato modificato 2 ore fa 2 tempo da Jekob_82
 
Postato : 01/05/2025 22:59
Alexps81
(@alexps81)
Post: 10
Active Member
 

L'elenco dei dipendenti non è necessario averlo per forza in colonna H o su altre colonne di questo foglio. Può stare benissimo su un altro foglio o addirittura file. Anzi mi sembra di aver capito che altrove hai un elenco con scritto di fianco "cessato" o "buona uscita". Ecco, si può benissimo attingere da quel elenco, scorre tra i nomi che hanno o l'una o l'altra definizione.

 
Postato : 01/05/2025 23:15
Jekob_82
(@jekob_82)
Post: 236
Reputable Member
Avviatore di Topic
 

si ma è una query composta da varie colonne la prima c'è il nome e l'ultima c'è la definizione.
sono 2 fogli distinti uno per ogni condizione.

 
Postato : 01/05/2025 23:24
Pagina 2 / 2
Condividi:
My Agile Privacy
Questo sito utilizza cookie tecnici e di profilazione. Cliccando su accetta si autorizzano tutti i cookie di profilazione. Cliccando su rifiuta o la X si rifiutano tutti i cookie di profilazione. Cliccando su personalizza è possibile selezionare quali cookie di profilazione attivare.
Attenzione: alcune funzionalità di questa pagina potrebbero essere bloccate a seguito delle tue scelte privacy
     Scarica il nostro ebook gratuito     

Unisciti a oltre 35.000 professionisti
che hanno già scelto di semplificare il proprio lavoro
e aumentare la produttività con la nostra newsletter!

Scarica l’ebook con i
migliori trucchi e suggerimenti per Excel
selezionati per te da Excel Academy

Download