Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 6 su 6

errore su ordinameno range dati

  1. #1
    tdani non è in linea Scolaretto
    salve,
    un errore che mi si presenta in un ordinamento che lancio dopo l'aggiunta di un articolo (tramite una userform)

    il codice è:
    'aggiunge fornitura
    emptyrow = Worksheets("Forniture").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Worksheets("forniture").Cells(emptyrow, 1).Value = a
    Worksheets("forniture").Cells(emptyrow, 2).Value = b
    Worksheets("forniture").Cells(emptyrow, 3).Value = c
    Worksheets("forniture").Cells(emptyrow, 4).Value = d
    Worksheets("forniture").Cells(emptyrow, 5).Value = me.G_ComboBox5.Value
    Worksheets("forniture").Cells(emptyrow, 7).Value = e
    Worksheets("forniture").Cells(emptyrow, 6).Value = f
    Worksheets("forniture").Cells(emptyrow, 8).Value = g
    
    'ordina forniture .... qyesto è la parte che si evidenzia col debug
    Worksheets("Forniture").Range("A1:h" & emptyrow).Sort Key1:=Range("G1"), Order1:=xlDescending, Key2:=Range( _
        "E1"), Order2:=xlAscending, Key3:=Range("A1"), Order3:=xlAscending, _
        Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:= _
        xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
        DataOption3:=xlSortNormal
    Me.ListBox2.RowSource = "Forniture!A2:h" & emptyrow
    
    a volte si attiva
    errore di run-time '1004'
    riferimento di ordinamento non valido. Assicurarsi che sia compreso nei dati da ordinare e che la prima casella ordina per non sia identica o vuota.


    grazie
    la relativa tabella forniture è così semplicemente strutturata:
    Articoli Marche Colori Formati Fornitori Quantità Data Codice

    i tre campi in ordinamento dono DATA (dsc), FORNITORI (asc) e ARTICOLI (asc).
    Dlla userform gestisco prima l'obbligatorietà dell'inserimento di questi tre valori.
    Ultima modifica di AntonioG; 31-07-2020 18:55 

  2. #2
    Sgrubak non è in linea Scribacchino
    Non sembra esserci nulla di strano... Hai provato ad applicare un criterio per volta, per capire se uno dei 3 da problemi?

  3. #3
    tdani non è in linea Scolaretto
    sì ho provato ... prima ho tolto il terzo, poi ho riprovato lasciando solo il primo key.
    E ho an che provato a cambiare la cvolonna sulla qaule lanciare ordinamento.

    nulla da fare .. sempre stesso errore

    se a qaulcuno può venire in mente qualche prova da fare ... grazie

  4. #4
    Sgrubak non è in linea Scribacchino
    Anche applicato manualmente da errore?

    Non so che versione di Excel usi, ma nella 2019, dal registratore macro non usa il metodo Range.Sort ma imposta la proprietà WorkSheet.Sort e poi ne richiama il metodo Apply. Qui trovi l'esempio della guida.

    In alternativa, anche se un po' più macchinoso, potresti aggiungere il record nella posizione corretta da subito, senza aggiungerlo in coda e poi ordinare il Range.

  5. #5
    tdani non è in linea Scolaretto
    ho fatto diverse prove.

    Quello che rilevo è ancora legato al foglio attivo.
    Infatti se sotto alla userform da dove vengano aggiunte/modificate/ordinate le righe, è attivo il foglio su cui si esegue l'ordinamento, il codice funziona.
    Se invece è attivo un altro foglio, il codice va in errore .

    cosa ho sbagliato??

  6. #6
    Sgrubak non è in linea Scribacchino
    Tenta esplicitando il foglio:
    Worksheets("Forniture").Range("A1:h" & emptyrow).Sort Key1:=Worksheets("Forniture").Range("G1")
    

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Definire un range a seconda dei dati contenuti
    Da Al3ssi0 nel forum Microsoft Excel
    Risposte: 3
    Ultimo Post: 08-03-2018, 12:16
  2. Range select errore 1004
    Da dodo47 nel forum Microsoft Excel
    Risposte: 3
    Ultimo Post: 12-06-2012, 12:05
  3. [Excel]Errore dichiarazione Range
    Da Diablo nel forum Microsoft Excel
    Risposte: 15
    Ultimo Post: 17-01-2010, 09:03
  4. Risposte: 6
    Ultimo Post: 17-07-2009, 14:27
  5. Range di dati per costruzione grafico
    Da Occhi da orientale nel forum Microsoft Word
    Risposte: 2
    Ultimo Post: 07-03-2008, 14:08