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