Retournez une rangée entière de données si une cellule de la ligne correspond à un critère

J'ai un classur avec deux feuilles. Le premier (Feuille 1) contient beaucoup de données (~ 70 000 lignes et colonnes AG). La seconde (feuille 2) est vide.

La chose est que j'ai besoin de copyr toute la rangée de données de la Feuille 1 à la Feuille 2 si une cellule correspond à un certain critère. Je vais essayer d'être précis:

Dans la feuille 1, la colonne B a des valeurs différentes. Si la valeur d'une cellule dans la colonne B est de 5 Mathias j'ai besoin d'get cette ligne entière de données (colonnes AG) copiées sur la feuille 2. Il serait vraiment propre si cela peut entraîner un bloc de données dans la feuille 2 qui semble juste comme la Feuille 1, sauf pour le fait qu'ils ont tous la même valeur dans la colonne B. Ce serait encore plus cool si je peux append plus de lignes de données au bas de la Feuille 1 tous les mois et que la Feuille 2 se met à jour elle-même.

J'ai essayé avec des searchs jusqu'à présent, mais sans chance.

J'espère que c'est possible et que je l'ai expliqué de manière décente.

Le code ci-dessous vérifie datatables dans Sheet1 , puis déplace datatables vers Sheet2 fonction des critères énumérés. Faites-moi savoir si vous pouvez l'intégrer dans votre classur.

 Sub CopyFromSheetToOther() Dim wsOrigin As Worksheet Dim wsDest As Worksheet Dim rngData As Range Const CRITERIA As Ssortingng = "Matt" Set wsOrigin = Worksheets("Sheet1") Set wsDest = Worksheets("Sheet2") wsDest.Cells.ClearContents Set rngData = wsOrigin.Range("A1").CurrentRegion rngData.AutoFilter field:=2, Criteria1:=CRITERIA rngData.Copy wsDest.Range("A1") wsOrigin.AutoFilterMode = False End Sub