Code VBA pour copier la sélection des colonnes à partir des lignes qui répondent à une condition d'une autre feuille

Je viens juste de commencer avec du code VBA pour Excel alors, toutes mes excuses si cela apparaît de base. Je veux faire la suite...

Case de la Colonne J (J5 à J500) d'une feuille appelée "Index" pour la présence de la valeur "Y". C'est ma condition.
Ensuite, je veux seulement copier les Colonnes C à je ne de toute ligne qui répond à la condition d'une Feuille et de Cellules dans une position différente, c'est à dire Si les valeurs d'Indice de C3 à I3 sont copiés je voudrais coller à A5 à G5 de la feuille active, je suis, disons Feuil2.

Si il y a un changement à la feuille d'index, je voudrais que les données copiées automatiquement, Si possible. Comment cela pourrait-il fonctionner si de nouvelles données sont ajoutées à l'Index?

Après beaucoup de recherche j'ai découvert ici cette. À partir de cette question, j'ai changé le code légèrement en fonction de mes besoins et cela va copier l'ensemble des lignes qui répondent à la condition d'une feuille à l'exécution de la macro, mais je suis perplexe pour savoir comment sélectionner certaines colonnes seulement.

Sub CopyRowsAcross() 

Dim i As Integer 
Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Index") 
Dim ws2 As Worksheet: Set ws2 = ActiveSheet 

For i = 2 To ws1.Range("B65536").End(xlUp).Row 
If ws1.Cells(i, 2) = "Y" Then ws1.Rows(i).Copy ws2.Rows(ws2.Cells(ws2.Rows.Count, 2).End(xlUp).Row + 1) 
Next i 

End Sub

Toute Aide est appréciée

Jean

EDIT: j'ai créé un mock-up, et est situé à https://docs.google.com/file/d/0B0RttRif9NI0TGl0N1BZQWZfaFk/edit?usp=sharing

A et B les Colonnes ne sont pas nécessaires lorsque copié - est de la Colonne J - c'est ce que j'utilise pour vérifier la condition.

Merci à tous pour votre aide pour l'instant.

  • Si vous voulez être en mesure de l'exécuter plus d'une fois sans d'abord essuyer tout le contenu de la table de destination, puis vous aurez besoin d'avoir au moins un unique valeur qui peut être utilisé pour identifier chaque ligne, sinon il va être impossible de faire correspondre les lignes entre les deux feuilles.
  • Merci pour votre réponse Tim. Penser à Ce sujet, il pourrait être préférable de nettoyer les données et de les recopier à partir de la Feuille d'Index lorsque je veux mettre à jour, par exemple, le contenu de l'index a été modifiée ou une nouvelle ligne a été ajoutée. Je pense que cela signifie que je dois mettre à jour manuellement en exécutant à nouveau la macro. Je serais ok avec ça. Aurais-je thne encore besoin unique de références, Si je devais prendre cette approche?
InformationsquelleAutor JohnM | 2013-03-13
  1. 0

    Ici est la solution la plus élégante, plus semblable à mon post original. La seule différence est que les Cellules de référence est qualifié pour la bonne feuille.

    Sub try3()
Dim i, x As Long
Dim Y as String
Dim ws1 As Worksheet: Set ws1 = ActiveWorkbook.Sheets("Index")
Dim ws2 As Worksheet: Set ws2 = ActiveWorkbook.Sheets("Sheet2") 'active sheet can get  you into trouble

 x = 5
 Y = "Y"
 For i = 2 To 500:
    If ws1.Cells(i, 10) = Y Then
       Range(ws2.Cells(x, 1), ws2.Cells(x, 7)).Value = Range(ws1.Cells(i, 3), ws1.Cells(i, 9)).Value
      x = x + 1
    End If
 Next i
End Sub

    • Dans la déclaration, nous sommes à la vérification de la colonne J [10] pour voir si elle = la variable Y. Si c'est vrai, alors fourchette cible de la valeur à partir de la feuille sheet2 est définie pour les valeurs de la source de gamme sur l'Index. X est de mettre séquentielle vrai instances séquentielle des lignes (à partir de la ligne 5 par votre question).
    • Grâce Atl LED. J'ai une dernière question si vous n'avez pas l'esprit. Certaines cellules de l'indice de formules - je oublié de mentionner que les petites, mais très important en détail dans la question d'origine... Comment pourrais-je modifier le code afin que le formatage des Cellules (c'est à dire des Formules, etc) est-il inclus?
    • Je pense que vous devez vous poser une nouvelle question/regarder autour pour que l'on.
    InformationsquelleAutor Atl LED
  2. 0

    Que l'emprunt de quelques vieux code. En cela, vous êtes de vérifier pour la dernière ligne utilisée, si vous savez que vous ne voulez aller à 500, vous pouvez simplement utiliser l'entier:


    Sub try2()

      Dim i, Y, x As Long 'you didn't mention what Y was, so it could also be a string.
  Dim ws1 As Worksheet: Set ws1 = ActiveWorkbook.Sheets("Index")
  Dim ws2 As Worksheet: Set ws2 = ActiveWorkbook.Sheets("Sheet2") 'active sheet can get  you into trouble
  Dim Ary1 As Range
  Dim ary2 As Range


   x = 5
   Y = "Y" 'for the sake of argument
         'For i = 2 To ws1.Range("B65536").End(xlUp).Row   This is if you are looking for the last row in MsOf2003 or earlier.  If you know that you are only looking to row 500, then hard code the intiger.
   For i = 2 To 500:
        'If ws1.Cells(i, 2) = "Y" You mentioned you were interested in column J, so we need to change the 2 to 10 (Column B to Column J)
         If ws1.Cells(i, 10) = Y Then
            ws1.Activate
            Set Ary1 = Range(Cells(i, 3), Cells(i, 9))
            ws2.Activate
            Set ary2 = Range(Cells(x, 1), Cells(x, 7)) 'avoid copying all together you don't need it
            ary2.Value = Ary1.Value
            x = x + 1
         End If
   Next i
  End Sub

    Je suis en train d'écrire cela sur un téléphone pas un compilateur, il peut donc y avoir une erreur de syntaxe dans il y et ceci doit être considéré comme une pseudo-code VBA. Je peux vérifier plus tard pour voir si vous avez réussi à le faire fonctionner. Vous aurez à regarder où vous mettez les choses si vous ne voulez pas être remplacé.

    • Grâce Atl LED. J'aurais du précisé que le Y est la valeur réelle de la cellule, je suis à la recherche d', par opposition à une variable. Je pourrais avoir codé que incorectly. Gardant cela à l'esprit votre code ci-dessus soient fondamentalement différents? Je vais le prendre et de lui donner un aller, de toute façon, pour voir comment ça tourne et je vais poster dos. Merci
    • J'ai essayé et Ça a donné un message d'erreur quand j'ai couru le code: erreur d'Exécution '1004' Méthode 'Range' de l'objet'_worksheet' a échoué. J'ai ajouté un exemple de feuille de calcul dans la question d'origine pour le rendre plus facile pour voir ce que je suis en train de faire.
    • désolé, je ne suis toujours pas où je peux vérifier le code, mais avez-vous changé le nom de la feuille Feuil2 comme dans votre exemple? Vous avez besoin de changer les variables de ce qui fait sens.
    • Oui, j'ai fait changer le code légèrement afin de refléter Feuil2 que j'ai mis à jour le Nom de l'onglet. J'ai aussi changé Y "Y" dans l'instruction SI comme je le suis à la recherche de la Valeur d'une Cellule qui Y, si cela fait sens. Merci
    • Essayez que. Le ci-dessus a fonctionné pour moi. Je ne sais pas si il y a une meilleure solution sans changer la mise au point. Ce serait certainement plus rapide.
    • Merci pour votre réponse Atl LED. Pouvez-vous confirmer si le code dans le fichier dans la question d'origine qui fonctionne pour vous? Il ne fonctionne pas pour moi. J'utilise Excel 2010 qui fait toute la différence.
    • Oui, c'est fait pour moi, avez-vous remarqué que j'ai changé? Je suis de l'utilisation de '10 ainsi
    • Atl LED Merci! Il fonctionne 🙂 je n'avais pas remarqué les changements. Pourrais-je vous demander encore une chose s'il vous plaît? Pourriez-vous expliquer ce que chaque ligne de la Boucle For est en train de faire - notamment les plages de cellules et de domaines. En tant que noob je suis un peu perplexe et je veux transférer les apprentissages de ce vers d'autres feuilles. Merci, JohnM

    InformationsquelleAutor Atl LED