Condividi:        

elimina doppi nomi

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

elimina doppi nomi

Postdi trittico69 » 22/05/12 17:12

È possibile creare una macro che mi cancelli tutti i nominativi in un foglio’ di excel 2003 che si chiama “usciti”, se questi nominativi risultano anche in un foglio chiamato “presenti” dello stesso file.
I nominativi sono in una sola cella composti da nome e cognome, ma anche da più nomi, separati da uno spazio tra loro, in entrambi i fogli.
i nominativi del foglio “usciti” si trovano solo nella colonna “A” fino in fondo, mentre i nominativi del foglio “presenti” si trovano nelle colonne A-E-I-M-Q-U-Y-AC-AG-AK-AO-AS-AW-BA-BE-BI-BM-BQ-BU-BY-CC-CG-CK-CO-CS-CW-DA-DE ed arrivano fino alla riga 100. in tutte e due i fogli e in tutte le colonne i nominativi iniziano dalla riga due, alla riga 1 c’è l’intestazione.
E poi se ci sono doppioni nel foglio “usciti” colonna “A” che ne resti uno solo. grazie!
trittico69
Utente Senior
 
Post: 497
Iscritto il: 16/08/09 18:41

Sponsor
 

Re: elimina doppi nomi

Postdi Anthony47 » 23/05/12 10:48

Non commento l' organizzazione dei dati perche' so che li ricevi cosi' da altri uffici...

Prima di scrivere una macro ad hoc vorrei sapere se l' ordine con cui compaiono nomi e cognomi e' sempre lo stesso sia nel foglio Presenti che nel foglio Usciti (es Pedro Pablo Garcia de Guadalupa e non Garcia de Guadalupa pedro Pablo) e se vuoi che i nominativi siano cancellati senza richiesta di conferma.

Vorrei anche essere certo della richiesta: cancellare da Usciti i nominativi che si trovano in Presenti; perche' in genere si fa l' opposto: dai Presenti si cancellano quelli che risultano Usciti.

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: elimina doppi nomi

Postdi trittico69 » 23/05/12 12:09

l'ordine in cui compaiono i nomi è sempre lo stesso in entrambi i fogli e confermo cancellare dal foglio usciti i nominativi uguali che si trovano nel foglio presenti e doppioni sempre nel foglio usciti ma che ne resti uno
trittico69
Utente Senior
 
Post: 497
Iscritto il: 16/08/09 18:41

Re: elimina doppi nomi

Postdi Anthony47 » 24/05/12 00:10

Prova con questa macro:
Codice: Seleziona tutto
Sub delstrano()
Dim ExSh As Worksheet, PreSh As Worksheet, CUName As String
Dim HCol As Long, I As Long, LastR As Long
'

Set ExSh = Sheets("usciti")
Set PreSh = Sheets("presenti")
'
LastR = ExSh.Cells(Rows.Count, 1).End(xlUp).Row
'elimina doppioni
For I = LastR To 2 Step -1
If Application.WorksheetFunction.CountIf(ExSh.Range("A2").Resize(LastR, 1), ExSh.Cells(I, 1).Value) > 1 _
    Then ExSh.Cells(I, 1).ClearContents
Next I
'
'elimina da usciti se presenti
For HCol = 1 To 28
    For I = 2 To 100
        CUName = PreSh.Cells(I, 1 + (HCol - 1) * 4).Value
        If CUName <> "" Then
            If Application.WorksheetFunction.CountIf(ExSh.Range("A2").Resize(LastR, 1), CUName) > 0 Then
                ExSh.Cells(Application.Match(CUName, ExSh.Range("A2").Resize(LastR, 1), 0) + 1, 1).ClearContents
            End If
        End If
    Next I
Next HCol
End Sub

Nota che mi sono limitato a cancellare i nomi da eliminare (perche' doppioni o perche' presenti); si puo' anche fare un delete ma bisognerebbe sapere se dell' intera linea, o della cella nella riga, o della cella nella colonna.

Fai sapere, ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: elimina doppi nomi

Postdi trittico69 » 24/05/12 13:18

va eliminata l'intera riga e se mi facesse vedere i nomi che verranno cancellati e la possibilità di dire si o no sarebbe completo
trittico69
Utente Senior
 
Post: 497
Iscritto il: 16/08/09 18:41


Torna a Applicazioni Office Windows


Topic correlati a "elimina doppi nomi":


Chi c’è in linea

Visitano il forum: Nessuno e 50 ospiti