Excel Filtrage et la Copie en VBA

Je suis en train de travailler sur un script VBA qui tire une plage de dates à partir d'Access, puis filtre les données et crée un graphique basé sur les données filtrées. Les données filtrées sera d'aller à une autre feuille où le tableau sera le tirant de ses données . Je peux obtenir des données d'Accès avec une instruction SQL, mais mon filtre automatique dans Excel est erroring arrière. Voici ce que j'ai...

    Sheet3.Range("F4:F500").AutoFilter(, "Riveter 01").Copy Destination:=Sheet2.Range("A5")

Il donne une application ou définis par l'objet défini par l'erreur et je ne peux pas comprendre pourquoi. Est-ce la bonne façon ou est-il un moyen plus facile?

Merci!

PS: Ce filtre qui va se passer avec 22 uniques machines donc je comptais sur l'exécution d'une boucle pour chaque machine. Si ce n'est pas la manière la plus rapide ou la bonne manière s'il vous plaît laissez-moi savoir.

OriginalL'auteur Grant | 2012-12-19

  1. 12

    Vous avez besoin de diviser cela en deux parties. Filtre, puis copier/coller. Voir ci-dessous:

    With Sheet3
    .AutoFilterMode = False
    With .Range("F4:F500")
        .AutoFilter Field:=1, Criteria1:="Riveter 01"
        .SpecialCells(xlCellTypeVisible).Copy Destination:=Sheet2.Range("A5")
    End With
End With

    pour retirer le filtre:

    On Error Resume Next
    Sheet3.ShowAllData
On Error GoTo 0

    On Error Resume Next est quand il n'y a pas de filtre pour ignorer l'erreur. Veuillez noter que l'utilisation de la Feuil2 Feuil3 et pour ceux qui recherchent une solution générique.

    Ce code fonctionne! Ce que je ne suis pas sûr maintenant c'est que a) pourquoi il faut de la cellule à partir de "F4" et des copies étant donné que c'est une machine différente. Il a même copié "F3" quand j'ai changé la plage. b) comment saisir des données dans la même ligne (donc deux cellules vers la droite, prenez le temps chaque machine était en place et en cours d'exécution dans la journée et puis le copier à la place du nom de la machine.) Merci pour l'aide!!
    il faut F4 qui est dans votre Gamme. Pour récupérer plus de données de regarder à l'aide .CurrentRegion de votre Gamme. Vous aurez besoin de créer une nouvelle question avec plus de détails qu'il ne peut pas être résolu dans la section des commentaires. Inclure les données, les lignes de données, et les données que vous voulez copier.
    OK, Merci!!!!!
    Comment puis supprimer le filtre?
    ajouté à la réponse.

    OriginalL'auteur InContext

  2. 0

    Je pense que vous devez le faire en 2 étapes distinctes:

    1. filtrer les données
    2. copier les données filtrées sur une autre feuille

    Ici, la réponse est un excellent exemple de la façon de le faire: Filtre automatique de Macro, puis copier les données visibles SEULEMENT et de le coller à la prochaine ligne disponible

    J'ai essayé d'ajouter une nouvelle Sous et modifiant ce code, mais je suis toujours recevoir un 1004 application ou définis par l'objet défini par l'erreur.

    OriginalL'auteur PaulStock