Copier une ligne à partir d'une feuille à une autre feuille si la ligne contient une certaine valeur

Cela ne devrait pas être compliqué de code, mais je suis nouveau sur Excel VBA. J'ai essayé beaucoup de différentes méthodes issues de bugs, les boucles infinies, et de mauvaises sélections.

J'ai besoin d'aller ligne par ligne par le biais de "Sheet1" sélection d'une ligne à la fois, vérifiez si la valeur dans la Colonne J est correcte (valeur = 131125), si c'est pour le copier - coller de la ligne à "Feuil2" (dans la même rangée que c'était dans la feuille "Sheet1").

Aide est très appréciée! 🙂

InformationsquelleAutor user3046457 | 2013-11-28
  1. 0
    Sub Test()
For Each Cell In Sheets(1).Range("J:J")
    If Cell.Value = "131125" Then
        matchRow = Cell.Row
        Rows(matchRow & ":" & matchRow).Select
        Selection.Copy

        Sheets("Sheet2").Select
        ActiveSheet.Rows(matchRow).Select
        ActiveSheet.Paste
        Sheets("Sheet1").Select
    End If
Next
End Sub
    • A fonctionné à merveille, merci!!!!!
    • NP. Tag de la réponse si vous le trouvez utile 😉
    • Puis-je l'utiliser aussi pour les feuilles de calcul Google?
    • Checkout ceci DONC, la question.
    • dit Bruce et Miro 's réponses de travail?
    InformationsquelleAutor Pankaj Jaju