Copier, coller et sortinger les plages non définies "Variable d'object ou Avec variable de bloc non configurée"

Continuez à get l'erreur 91. Je ne peux pas utiliser les gammes nommées, donc c'est quelque chose à prendre en count.

La première partie fonctionne donc parfaitement. Cependant, lorsque je fais la 2ème gamme, coller et sortinger, j'obtiens une erreur sur "Feuilles de travail (ws.Name) .AutoFilter.Sort.SortFields.Clear" Pour une raison quelconque, la variable d'object ou la variable de variable With n'est pas définie. Je ne vois pas où j'ai manqué ma variable de bloc de jeu, donc je suppose qu'il a quelque chose à voir avec la variable d'object …

Juste pour être clair, la première copy colle fonctionne (gamme J39 à P50), mais la 2ème (plage J53 à P63) ne fonctionne pas et me donne l'erreur …

Dim ws As Worksheet Dim I As Integer Dim str As Ssortingng I = 2 Dim N As Integer 'jada jada data collection code 'start copy & paste If ws.Name = str Then Worksheets(ws.Name).[K70] = ListBox1.Value Application.ScreenUpdating = False Worksheets(ws.Name).Range("J39:P50").ClearContents Worksheets(ws.Name).Range("J78:P89").Copy Worksheets(ws.Name).Range("J39").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Worksheets(ws.Name).Range("J39:P39").AutoFilter Worksheets(ws.Name).AutoFilter.Sort.SortFields.Clear Worksheets(ws.Name).AutoFilter.Sort.SortFields.Add Key:=Range( _ "J39"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ xlSortNormal With Worksheets(ws.Name).AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply ActiveWorkbook.Worksheets(ws.Name).AutoFilter.Sort.SortFields.Clear AutoFilterFilterMode = False End With Application.ScreenUpdating = True Application.ScreenUpdating = False Worksheets(ws.Name).Range("J53:P63").ClearContents Worksheets(ws.Name).Range("J92:P102").Copy Worksheets(ws.Name).Range("J53").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Worksheets(ws.Name).Range("J53:P53").AutoFilter Worksheets(ws.Name).AutoFilter.Sort.SortFields.Clear Worksheets(ws.Name).AutoFilter.Sort.SortFields.Add Key:=Range( _ "J53"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ xlSortNormal With Worksheets(ws.Name).AutoFilter.Sort .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With 

• Trop d'options de collage lors de l'utilisation du clic droit en Excel
• xlPasteValues ​​et xlPasteFormats en même time sur VBA
• Effacez la scope et copyz le contenu de la cellule vers une autre feuille de calcul décalant chaque fois
• VBA – Looping à travers toutes les feuilles de diagramme et copy sur une feuille de travail
• Coller le Presse-papiers à la nouvelle Macro VBA Workbook

• Coller une erreur spéciale – 1004 VBA Excel
• Arelle automatise une petite procédure pour transférer des données vers Excel en utilisant Python
• copyr la feuille Excel vers Word
• Copier et coller Microsoft Excel avec le format de date