Astuces Excel
  1. Astuces Excel
  3. Copier et sortinger la macro en vba
Intereting Posts
Comparez datatables Excel avec une database Access Trouver le maximum de chaque colonne et le mettre dans une autre feuille Macro Excel ne copiant pas datatables dans les cellules de droite Obtenir l'ordre d'un nombre dans une list contenue dans une gamme, non sortingés Copier les validations de données uniquement d'une seule ligne d'une table à toutes les rangées d'une autre table La meilleure façon pour les users d'Excel d'accéder aux files NetCDF sur un server de données THREDDS? Valeur de search – # N / A résultat Rookie Macro script Excel Changer datatables Excel dans un multidimensional array Afficher le file excel avec Liuggio / Excelbundle et Symfony2 Vlookup basé sur l'input de cellule pour alerter l'user en fonction des résultats vlookup Pour insert un espace vide entre les lignes Erreur de syntaxe pour la formule INDEX en utilisant Macro Je ne sais pas pourquoi "Set IE = shellwins.item (0)" ne fonctionne pas Formule Excel pour récupérer la dernière partie d'une url

Copier et sortinger la macro en vba

Je suis en train de concevoir une macro qui copyra et sortinger des données par une key dans vba. J'ai commencé à écrire le code et ça a fonctionné bien jusqu'à maintenant, mais pour une raison quelconque, je reçois une erreur Object Required à la ligne: Set rng1 = SourceData.Cells.Range("A2:A" & N) . Je ne sais pas pourquoi cela se produit. Toute aide serait grandement appréciée. 

 Sub crossUpdate() Dim rng1 As Range, rng1Row As Range N = Cells(Rows.Count, "A").End(xlUp).row Sheet1.Cells.Select Selection.Copy Sheets.Add.Name = "SourceData" ActiveSheet.Paste Range("A1").Select Set rng1 = SourceData.Cells.Range("A2:A" & N) Set rng1Row = rng1.EntireRow rng1Row.Sort Key1:=Range("A1") End Sub

Vous obtenez une erreur car SourceData n'est pas une chose. Il semble que cela soit censé être une feuille de travail ou une gamme ou quelque chose, mais vous ne l'avez pas déclaré, et vous ne l'avez pas non plus défini.

Mise à jour: SourceData est une feuille. Pour vous référer à une fiche par nom, vous devez utiliser Sheets("Sheetname") . En outre, il n'est pas nécessaire de se référer aux cells de la feuille pour get une plage spécifique dans la feuille, allez directement dans la plage: Sheets("SourceData").Range("A2:A" & N)