excel - Cuenta el número de filas en otra hoja

vba excel-vba

Question

He examinado las preguntas sugeridas para encontrar la respuesta a mi problema. La pregunta más cercana se llama: Contar el número de filas en una hoja de Excel diferente Contar el número de filas en una hoja de Excel diferente

La solución a ese problema no me funciona.

Estoy tratando de contar el número de filas en un rango en una hoja de trabajo diferente a la hoja de trabajo activa. Aquí está mi código:

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

Tengo una hoja de trabajo llamada Verbos y es la segunda hoja de trabajo en el libro. Yo he tratado:

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

Ninguno de ellos parece funcionar.

Answer 1

Comprueba esto y espero que esto te ayude a:

Sub verbflashcards()
Dim wordcount As Long
wordcount = ActiveWorkbook.Worksheets("Verbs").Range("A4", Worksheets("Verbs").Range("A4").End(xlDown)).Rows.Count
MsgBox (wordcount)
End Sub

Donde, D1 es la columna desde la que puede obtener el recuento de filas.

Método 2:

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

Nota: hay muchas respuestas a sus preguntas. Verifique este enlace SO: ¿Cómo puedo encontrar la última fila que contiene datos en la hoja de Excel con una macro?

Answer 2

Su original no funcionaba porque no se especificó el elemento primario de Cells(4, 1) y Cells(4, 1).End(xlDown) . Prefije cualquier dirección de celda con un punto (también conocido como o punto final ) cuando se encuentre dentro de un bloque With ... End With . Ejemplo:

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

Tenga en cuenta las .Cells(4, 1) y no las Cells(4, 1) . El período especifica que las celdas a las que se refiere están dentro de las Hojas de trabajo ("Verbos").