Compter le nombre de lignes dans une autre feuille

J'ai regardé les suggestions de questions pour trouver la réponse à mon problème.
Le plus proche de la question est appelé:
Compter le nombre de lignes dans une autre Feuille Excel
Compter le nombre de lignes dans une autre Feuille Excel

La solution à ce problème ne fonctionne pas pour moi.

Je suis en train de compter le nombre de lignes dans une plage dans une feuille de calcul différente de la feuille de calcul active.
Voici mon code:

Sub verbflashcards()

Dim wordcount As Long

With Worksheets("Verbs")
wordcount = .Range(Cells(4, 1), Cells(4, 1).End(xlDown)).Rows.Count
End With

MsgBox (wordcount)
End Sub

J'ai une feuille de Verbes et c'est la deuxième feuille de calcul dans le classeur. J'ai essayé:

With Verbs
With Sheet2
With Sheets("Verbs")
With Sheets("Sheet2")

Aucun d'entre eux semblent fonctionner.

OriginalL'auteur user2859603 | 2015-01-04

  1. 4

    Vérifier ceci, et j'espère que cela va vous aider:

    Sub verbflashcards()

Dim wordcount As Long

wordcount = ActiveWorkbook.Worksheets("Verbs").Range("A4", Worksheets("Verbs").Range("A4").End(xlDown)).Rows.Count

MsgBox (wordcount)

End Sub

    Où, D1 est la colonne à partir de laquelle vous pouvez obtenir le nombre de lignes.

    Méthode 2:

    Sub verbflashcards()

Dim wordcount As Long
With Sheets("Verbs")
    wordcount = .Range("A" & .Rows.Count).End(xlUp).Row
End With

MsgBox (wordcount)
End Sub

    Remarque: Il y a beaucoup de réponses à vos questions. Cochez cette SORTE de lien: Comment puis-je trouver la dernière ligne qui contient des données dans la feuille Excel avec une macro?

    Il fonctionne! Donc, feuilles de calcul doit être fait référence à un deuxième temps à l'intérieur de la gamme?
    Il y a le couple de méthodes pour atteindre le même., vous pouvez choisir n'importe qui. Vérifier mon édité réponse.
    Je pense que .Range("D1"... était destiné à être .Range("A4".... Il semble que vous transposé la r et c de Cells(4, 1).
    Ce n'est pas nécessairement le nombre de lignes - c'est la dernière ligne avec les données de la colonne A (A1 peut être vide, etc).

    OriginalL'auteur Paresh J

  2. 14

    Votre origine ne fonctionnait pas parce que la mère de Cells(4, 1) et Cells(4, 1).End(xlDown) n'a pas été spécifié. Préfixe toute l'adresse de la cellule avec une période (aka . ou arrêt complet) lorsque vous êtes à l'intérieur d'un With ... End With bloc. Exemple:

    With Worksheets("Verbs")
  wordcount = .Range(.Cells(4, 1), .Cells(4, 1).End(xlDown)).Rows.Count
End With

    Note le .Cells(4, 1) et pas Cells(4, 1). La période indique que la cellule(s) que vous mentionnez sont dans les Feuilles de calcul("Verbes").

    OUI, Vous êtes au bon endroit!!! Vous devez être prudent lorsque vous l'utilisez AVEC le bloc.

    OriginalL'auteur