ordina alfabetico nomi eliminando celle vuote con formule

[trittico69]

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!

[Anthony47]

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

[trittico69]

peccato mi servono 1045 righe

[Anthony47]

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

Ciao

[Flash30005]

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