[Errore vba]

[DeletedUserBloccato DeletedUser Karma: 13 pts]

Ciao ragazzi ho un file che ordina del testo in modo alfabetico automatico  mi va spesso in errore, se aggiungo righe o se vado a cancelarle mi dice:

errore runtime 1004 metodo range dell'oggetto global non riuscito e se apro il debug mi da una serie di righe in giallo ma non so come risolvere.

[rollis13Partecipante rollis13 Karma: 8 pts]

Credo che tu abbia fatto riferimento alla tabella sbagliata nella macro "ordinatbl1" in quanto nella Tabella2 non esiste la colonna DATA e per questa mancanza giustamente ti viene segnalato l'errore 1004.

[alexps81Moderatore alexps81 Karma: 58 pts]

Ma i sort si scatenano solo se modifichi qualcosa in colonna "L"...è giusto così?

Prova con queste modifiche e vedi se ho capito la tua richiesta di aiuto:

Sub ordinatbl1()
    
With ActiveWorkbook.Worksheets("saldo automatico").ListObjects("Tabella1").Sort
    .SortFields.Clear
    .SortFields.Add Key:=Range("Tabella1[Data]"), Order:=xlAscending
    .Apply
End With

End Sub

Sub ordinatbl2()

With ActiveWorkbook.Worksheets("saldo automatico").ListObjects("Tabella2").Sort
    .SortFields.Clear
    .SortFields.Add Key:=Range("Tabella2[Esercente]"), Order:=xlAscending
    .Apply
End With

End Sub

Nel foglio1 invece:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 12 Then
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    Call ordinatbl1
    Call ordinatbl2
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End If

End Sub

[DeletedUserBloccato DeletedUser Karma: 13 pts]

Pare sia stato sufficente correggere i riferimenti a Tabella1 anzichè Tabella2, cancellando il testo non da errori....

[rollis13Partecipante rollis13 Karma: 8 pts]

Grazie per il riscontro positivo, sono contento che siamo stati in grado di aiutare.

[vecchio fracSenior Moderator vecchio frac Karma: 272 pts]

Se e' risolta prego marcare come risolta.

Ne approfitto per ricordare di attribuire alle discussioni dei titoli meno criptici (almeno un pochino piu' esplicativi del problema)   

[DeletedUserBloccato DeletedUser Karma: 13 pts]

Una cosa che mi piacerebbe aggiungere in questo file è nella tabella di riepilogo, quella gialla, dove le voci si ordinano automaticamente, che mi va bene, però vorrei che venissero inserite in automatico senza che sia io a riscriverle. Attualmente basta scrivere una o più parole in comune alla tabella blu dei movimenti che vengono automaticamente ordinate alfabetico, ma vorrei si aggiungessero in automatico, con una descrizione simile ma non identica a tabella1, non so se è fattibile forse chiedo troppo, nel caso non è un problema va bene anche cosi.

[Autore]

Articoli