In ordine alfabetico

Hai un problema con Excel?

Nuova discussione

In ordine alfabetico
di Mauro (utente non iscritto) data: 04/05/2013 15:54:17
Ciao a tutti, volevo inserire dalla riga 29 e in ordine alfabetico dei dati, mi da errore di run-time 1004, errore definito dall'applicazione o dall'oggetto.
In altre occasione lo stesso codice mi funzionava, cosa sto sbagliando?
Grazie Mauro

Sub NuovoFornitore()
    Foglio13.Rows("29:29").Insert shift:=xlDown
    [A29] = [F8]
    [B29] = [F12]
    [C29] = [F10]
    [D29] = [F14]
    [F8:F14].ClearContents
    [A29] = WorksheetFunction.Proper([A29])
    [A28].CurrentRegion.Sort Key1:=[A27], Hearder:=xlYes
End Sub

di Textomb data: 04/05/2013 16:58:01
semplice errore di sintassi.
hai scritto una lettera in più (r) nella proprietà Header.
E poi ti consiglio di aggiungere il parametro Order1:=xlAscending oppure xlDescending
In ordine alfabetico
di Mauro (utente non iscritto) data: 04/05/2013 17:07:25
Ho tolto la (r) mi da lo stesso errore.
di Textomb data: 04/05/2013 17:10:54
A questo punto vuol dire che c'è più di un errore.
In quale punto del codice ti compare il debug?
In ordine alfabetico
di Mauro (utente non iscritto) data: 04/05/2013 17:15:53
alla fine

di Textomb data: 04/05/2013 17:18:56
strano.
ci deve essere qualche altro refuso
incolla questo e dimmi se ti va ancora in errore...

Sub NuovoFornitore()
    Foglio13.Rows("29:29").Insert shift:=xlDown
    [A29] = [F8]
    [B29] = [F12]
    [C29] = [F10]
    [D29] = [F14]
    [F8:F14].ClearContents
    [A29] = WorksheetFunction.Proper([A29])
    [A28].CurrentRegion.Sort Key1:=[A27], order1:=xlAscending, Header:=xlYes
End Sub

In ordine alfabetico
di Mauro (utente non iscritto) data: 04/05/2013 17:27:00
Questa e perfetta.
Grazie, ti auguro una buona giornata.

Mauro

Vuoi Approfondire?