Vai al contenuto
PLC Forum


Ordinare Nominativi Eliminado Celle Vuote Contenen


trittico6969

Messaggi consigliati

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!

Link al commento
Condividi su altri siti


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

Link al commento
Condividi su altri siti

Crea un account o accedi per commentare

Devi essere un utente per poter lasciare un commento

Crea un account

Registrati per un nuovo account nella nostra comunità. è facile!

Registra un nuovo account

Accedi

Hai già un account? Accedi qui.

Accedi ora
×
×
  • Crea nuovo/a...