Utilisation d'un filter avancé avec des critères

J'essaie de copyr des valeurs distinctes de la table excel avec la VBA, mais je me suis heurté en difficulté lorsque je voulais faire valoir des critères.

J'essaie de filterr les valeurs supérieures à zéro dans la colonne CI

Ce code fonctionne

 Dim KeyCells As Range Set KeyCells = Range("H1") If Not Application.Intersect(KeyCells, Range(Target.Address)) _ Is Nothing Then Dim lastrow As Long lastrow = ActiveSheet.Range("H1").Value Application.EnableEvents = False Sheets("Fond16").Range("C4:C31").Clear Sheets("PlneniOperatoru_2016").Range("B" & lastrow - 1 & "11:B" & lastrow & "11").AdvancedFilter _ Action:=xlFilterCopy, _ CopyToRange:=Sheets("Fond16").Range("C4"), _ Unique:=True 

Mais cela ne fonctionne pas (Lance 1004: erreur définie par l'application ou définie par l'object)

• VBA – Macro Comment puis-je créer un tableau croisé dynamic où il affiche le titre de la colonne et l'insère à côté des valeurs
• Formule de base en un régulier
• Comment puis-je retenir les fonctions IF pour calculer les revenus quotidiens?
• Comment gérer la destination excel dans ssis pour les champs supérieurs à 255?
• VBA Excel Supprimer les lignes de la table et déplacer vers le haut, pas la ligne entière

 Sheets("PlneniOperatoru_2016").Range("B" & lastrow - 1 & "11:B" & lastrow & "11").AdvancedFilter _ Action:=xlFilterCopy, Criteria:="CI>0", _ CopyToRange:=Sheets("Fond16").Range("C4"), _ Unique:=True 

J'aimerais savoir si je peux reformuler le paramètre Criteria pour rendre cela fonctionnel. Merci d'avance 🙂

EDIT: J'essaie actuellement d'utiliser ce code. Dans la gamme des critères,

 CI >0 

Et il ne montre que la première valeur, mais parfois la première valeur est avec 0 dans la colonne CI, donc les critères ne fonctionnent pas clairement

 Sheets("PlneniOperatoru_2016").Range("B" & lastrow - 1 & "11:B" & lastrow & "11").AdvancedFilter _ Action:=xlFilterCopy, CriteriaRange:=Sheets("2016").Range("X1:X2"), _ CopyToRange:=Sheets("Fond16").Range("C4:C31"), _ Unique:=False 

• HSSF changeant l'épaisseur de la colonne
• classr datatables de la ligne sous forme stylisée
• Comment puis-je faire correspondre la variable avec la valeur de cellObj et vérifier si les deux sont identiques?
• Variable en input
• Comment sélectionner la date entre A & B avec précision?