Copier datatables sélectionnées d'une feuille et coller dans une autre feuille sur la plage sélectionnée si elle remplit les critères

J'ai deux feuilles disent (Sheet1) = Sheets ("Jan") et sheet2 = Sheets ("Feb") Je veux copyr uniquement datatables de la plage b5: b81 des feuilles ("Jan") vers les feuilles ("Feb") si elle répond à la condition dans la gamme AN5: AN81.

J'utilise ce code mais ne fonctionne pas

Sub CopyRows() Dim Rng As Range Dim Rng2 As Range Dim Cl As Range Dim str As Ssortingng Dim RowUpdCrnt As Long Set Rng = Sheets("Jan").UsedRange 'the range to search ie the used range Set Rng2 = Sheets("Jan").Range("B") str = "WRK." 'ssortingng to look for Sheets("Feb").Range("B5:B81").Value = "" RowUpdCrnt = 5 ' In my test data, the "Yes"s are in column AN. This For-Each only selects column AN. ' I assume all your "Yes"s are in a single column. Replace "B" by the appropriate ' column letter for your data. For Each Cl In Rng.Columns("AN").Rows If Cl.Text = str Then 'if the cell contains the correct value copy it to next empty row on sheet 2 & delete the row Cl.cell(2, 5).Copy Sheets("Feb").Cells(RowUpdCrnt, 1) RowUpdCrnt = RowUpdCrnt + 1 End If Next Cl End Sub 

• VBA: Copiez datatables à partir d'un autre classur, en fonction de la valeur de la cellule du classur actuel
• Copier la feuille de calcul sur plusieurs classurs – references de formule
• Copiez la colonne avec VBA si la date correspond au mois
• Excel VBA application appeler copy 2 plages
• Essayer de copyr une feuille de travail xlsb vers une autre feuille de calcul

• Comment copyr des feuilles consécutives dans Excel en utilisant VBA
• Sélectionnez, Copiez d'IE et collez vers Excel
• Feuille de calcul de copy Excel
• Copier la feuille Excel (2007) vers un nouveau classur sans formules faisant reference au classur original
• Code Excel vba pour mettre à jour le classur depuis une feuille de travail externe