Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

ordina alfabetico nomi eliminando celle vuote con formule

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

ordina alfabetico nomi eliminando celle vuote con formule

Postdi trittico69 » 17/03/11 16:44

come faccio ad ordinare dei nomi in ordine alfabetico, facendo si che si spostino le colonne vuote conteneti le formule senza che queste vengano eliminate in modo da far capitare il primo nome in A5?

modificare solo le formule o il codice del foglio1

allego un esempio...

http://uploading.com/files/1d44dc7d/Cartel1.xls/

grazie!
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Sponsor
 

Re: ordina alfabetico nomi eliminando celle vuote con formul

Postdi Anthony47 » 17/03/11 19:48

In riga 1 di una colonna libera di foglio1, es la M (quindi in M1) inserisci la formula
Codice: Seleziona tutto
=SE(Foglio2!A1:A200<>"";CONTA.SE(Foglio2!A1:A200;">"&Foglio2!A1:A200)+RIF.RIGA(Foglio2!A1:A200)/1000000;"")
Da confermare con Contr-Maiusc-Enter
Selezioni poi M1:M200, premi F2, ripremi Contr-Maiusc-Enter

A questo punto in A5 usi la formula
Codice: Seleziona tutto
=SE(RIF.RIGA(A1)<=CONTA.NUMERI($M:$M);INDICE(Foglio2!$A:$D;CONFRONTA(GRANDE($M:$M;RIF.RIGA(A1));$M:$M;0);RIF.COLONNA(A1));"")

Copi verso destra e poi verso il basso

Cosi' avrai i nominativi ordinati sulla base del cognome. Se ti servono ordinati in subordine anche per nome allora alla prima formula aggiungerai, nella parte "Se Vero", una ulteriore Conta.Se basata su B1:B200 diviso per 1000; cioe' inserirai +CONTA.SE(Foglio2!B1:B200;">"&Foglio2!B1:B200)/1000

E se l' elenco di Foglio2 va oltre la riga 200 devi modificare tutte le parti A1:A200 in A1:Axxx; le formule sono compatibili con max 1000 righe.

Se hai difficolta' posta ancora spiegando dove sei arrivato.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: ordina alfabetico nomi eliminando celle vuote con formul

Postdi trittico69 » 17/03/11 23:26

peccato mi servono 1045 righe
trittico69
Utente Senior
 
Post: 487
Iscritto il: 16/08/09 18:41

Re: ordina alfabetico nomi eliminando celle vuote con formul

Postdi Anthony47 » 18/03/11 09:28

Se, oltre alla modifica a A1:A200, sostituisci 1000 con 2000 e 1000000 con 4000000 allora gestirai fino a 2000 righe.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: ordina alfabetico nomi eliminando celle vuote con formul

Postdi Flash30005 » 19/03/11 13:32

Il problema del non avvenuto ordinamento è perché la formula fornisce il valore 0 (zero) e con la macro da te realizzata inserirà prima le righe con i numeri e poi con le lettere quindi avendo nascosto gli zeri vedrai celle vuote e poi le celle con le lettere A, B etc
Quindi potresti adottare anche unsa soluzione di questo tipo che prevede la variazione della formula (esempio in A5)
Codice: Seleziona tutto
=SE(Foglio2!C88="";"ZZZ";Foglio2!C88)

inserendo la formattazione condizionata che se il valore cella è "ZZZ" il Font dovrà avere colore bianco
Trascini in lungo e largo (per quanto ti serve)
copiando sia formula e formattazione
A questo punto con una macro simile ordinerai l'intero elenco e all'inizio avrai le righe con le stringhe (lettere) e poi le righe con le celle bianche che contengono le formule.
Codice: Seleziona tutto
Sub Ordina()
UR = Range("A" & Rows.Count).End(xlUp).Row
    Range("A5:D" & UR).Select
    Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("B12").Select
End Sub


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "ordina alfabetico nomi eliminando celle vuote con formule":


Chi c’è in linea

Visitano il forum: Nessuno e 11 ospiti