Ordinare Nominativi Eliminado Celle Vuote Contenen

[trittico6969]

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!

[GiRock]

La tua richiesta non troppo chiara, ad ogni modo ho trovato questa soluzione ma non saprei dirti se è quello che cercavi...

Prova e riferisci...

Sub Macro3()

    Range("A5:D36").Select
    Selection.Sort Key1:=Range("A5:A19"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=XlSortOn.xlSortOnValues
    'Range("B12").Select
    'Range("A1:D5").Columns.Hidden = True ' nasconde le colonne
    Range("X1:X19").Value = Range("B1:B19").Value
    Range("Y1:Y19").Value = Range("A1:A19").Value
    Range("A1:A19").Value = Range("X1:X19").Value
    Range("B1:B19").Value = Range("Y1:Y19").Value
    Range("X1:X19").ClearContents
    Range("Y1:Y19").ClearContents
    Range("A1").Select ' così posso incollare i dati precedenti dagli appunti velocemente
End Sub