Filtre avancé sur 2 feuilles. Copier et coller problème

J'ai un problème avec mon code que je ne peux pas résoudre. J'ai utilisé un filter avancé qui fonctionne, mais maintenant, je veux copyr et passer les «éléments filtrés uniques» sur une feuille différente. Lorsque je lance le code ci-dessous, il semble qu'il tente de copyr sur Sheet2 (Table 1_Pipes), mais les inputs sont vierges?

Quelqu'un peut-il aider? Merci

Code VBA – Tentative 1

Sub Uniques() Dim ColRange As Range Dim PrintRange As Range On Error GoTo Errorcatch Set ColRange = Application.InputBox("Please Select Input Data To Gather Uniques From", "Obtain Range Object", Type:=8) Set PrintRange = Sheets("Take Off").Range("D5001") ColRange.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=PrintRange, Unique:=True Worksheets("Take Off").Range("A11:AI5000").AutoFilter _ field:=4, _ Criteria1:="<>*-*", _ VisibleDropDown:=True Range("D5001:D5010").Select Selection.Cut Sheets("Table 1_Pipes").Select Range("B6").Select ActiveSheet.Paste Exit Sub Errorcatch: MsgBox Err.Description End Sub 

• Impossible d'parsingr la string "N / A" de .XLSX dans Python 2.7 avec des pandas
• Déclaration IF: la cellule IF est vide, laissez vide, sinon affichez 1
• Ignorer les duplicates et créer une nouvelle list de valeurs uniques dans Excel avec décalage
• L'erreur VBA SQL alter table après l'ajout d'une colonne unique
• Accédez à 2016 – Excel Excel lié dans Qry – Obtenez le type de données incompatible lors de l'essai Inégalé

• Le percentile Excel avec la formule condition ne fonctionne pas. Retourner '#NUM!'
• Comment réorganiser les résultats de la requête en format Excel en utilisant différentes requêtes
• Obtenir une date lorsque la valeur cible prévue sera atteinte
• supprimer les freins à ligne vide dans Excel
• Couper et coller toutes les colonnes si une cellule est égale à "Fri" dans une plage