Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Ordina che non riordina...

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 che non riordina...

Postdi redwise » 12/01/17 11:48

Buongiorno a tutti,

premetto che sono nuovo e non molto pratico di macro, ho il seguente problema:

Devo ordinare dei dati in un foglio dove alcune celle di intestazione sono unite, se seleziono tutto il foglio completo, vado su dati...ordina...con celle di intestazione...e seleziono "colonna A" o b .. (che sono gli unici due ordinamenti che mi interessano)
il comando viene eseguito correttamente...

se...

registro la macro con questi comandi... mi dice
"Errore di run-time 1004 Per il completamento dell'operazione è necessario che le celle unite siano di dimensioni identiche"


questo è il codice, cosa sbaglio?
Codice: Seleziona tutto
Sub Riordina()
'
' Riordina Macro
' Macro registrata il 12/01/2017
'

'
    Cells.Select
    Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A5").Select
    End Sub
redwise
Newbie
 
Post: 1
Iscritto il: 12/01/17 11:40

Sponsor
 

Re: Ordina che non riordina...

Postdi wallace&gromit » 12/01/17 15:47

Ciao redwise, benvenuto nel forum.
Sbagli con l'istruzione cells.select, che ti seleziona l'intero foglio, compreso le celle unite.
Usa invece questa:
Codice: Seleziona tutto
Sub Riordina()
    UR = Range("A5").End(xlDown).Row
    Range("A5:B" & UR).Select
    Selection.Sort Key1:=Range("A5"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Range("A5").Select
End Sub
Office2016 + 2019 su win10
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2056
Iscritto il: 16/01/12 14:21


Torna a Applicazioni Office Windows


Topic correlati a "Ordina che non riordina...":

Ordina Dati
Autore: Fabiolan
Forum: Applicazioni Office Windows
Risposte: 2
Ordina dati
Autore: ahidai
Forum: Applicazioni Office Windows
Risposte: 8

Chi c’è in linea

Visitano il forum: Nessuno e 40 ospiti