Astuces Excel
  1. Astuces Excel
  3. Excel VBA à filterr par colonne et colonne Valeur de cellule
Intereting Posts
Excel VBA – position de la checkbox dans la cellule Lettres correspondantes Excel Erreur de concordance de type lors de la correspondance des en-têtes de colonne Excel VBA Ajouter une série au diagramme radar de Array VBA close blank workbook Comment append plusieurs valeurs en fonction d'une plage de dates affichée par jour Ecrire à la cellule dans Excel en utilisant une erreur c # Trouvez les valeurs avec les critères lorsque la condition correspond Si la fonction ne fonctionne pas lorsque la valeur * est * la spécifiée Comment générer un rapport personnalisé basé sur Word avec différentes données client? (Pas de fusion et publipostage) Organiser des colonnes dans des séries de données dans Excel 2010 Objet Erreur requirejse sur la ligne n ° 6 VBScript pour supprimer des lignes vides de csv login à MySQL à partir de Excel VBA .Cartes problème de reference VBA

Excel VBA à filterr par colonne et colonne Valeur de cellule

J'ai le code ci-dessous et il continue de donner l'erreur "l'argument nommé non trouvé" en essayant de faire ce qui suit.

Comportement souhaité: Pour toutes les feuilles du classur actif, faites un cycle et faites ce qui suit; l'alignment central, les lignes d'ajustement automatique, les colonnes d'ajustement automatique, puis la colonne de sorting intitulée «assigné à» par la valeur «Jack», puis filterr par «date» et plus ancienne à plus récente. Problème spécifique: erreurs à chaque fois que j'arrive à la partie de sorting

Si possible: j'aimerais également supprimer les duplicates sur la base d'un nom de colonne non seulement de la partie ci-dessous comment je le fais plus bas, serait-il aussi simple que de changer "36" pour être le nom "ID"? 

Sub Filter_NOW() ' ' Filter Macro ' ' Declaration Dim wkSt As Ssortingng Dim wkBk As Worksheet Dim temp As Variant Dim lastCol As Long Dim FilterCol As Variant Dim FilterColB As Variant wkSt = ActiveSheet.Name ' This Loops Through All Sheets For Each wkBk In ActiveWorkbook.Worksheets wkBk.Activate lastCol = wkBk.Cells(1, Columns.Count).End(xlToLeft).Column FilterCol = wkBk.Rows(1).Find("Assigned to") FilterColB = wkBk.Rows(1).Find("Date") 'This is to center align all rows wkBk.Rows.HorizontalAlignment = xlCenter ' Resize Columns wkBk.Columns.EntireColumn.AutoFit ' Resize Rows wkBk.Rows.EntireRow.AutoFit ' Filter by Column Name and Value wkBk.Range("$A:$BB").AutoFilter Field:=FilterCol, Criteria1:="JACK" ' Filter by Column Name and Value wkBk.Range("$A:$BB").AutoFilter Field:=FilterColB, SortOn:=xlSortOnValues, Order:=xlDescending ' Remove Duplicates wkBk.Range("$A$1:$AM$373").RemoveDuplicates Columns:=36, Header:= _ xlYes Next wkBk Sheets(wkSt).Select End Sub