excel vba excel-vba with-statement

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



vba excel-vba (2)

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.


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?


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").