Contenidos
1 Contar el número de filas en una selección dada
2 Contar el número de columnas de una selección dada
3 Total de filas en el rango utilizado en la hoja activa
4 Total de columnas en el rango utilizado en la hoja activa
5 Primera Fila en el rango utilizado en la hoja activa
6 Total de hojas en el libro de trabajo activo
7 Número de libros abiertos
Contar el número de filas en una selección dada
Sub ContarFilas()
' Contar el número de filas de una selección dada
Dim Filas As Double
Filas = Selection.Rows.Count
MsgBox Filas
End Sub
Contar el número de columnas de una selección dada
Sub ContarColumnas()
' Contar el número de columnas de una selección dada
Dim Columnas As Double
Columnas = Selection.Columns.Count
MsgBox Columnas
End Sub
Total de filas en el rango utilizado en la hoja activa
Sub TotalFilas()
'Total de filas en el rango utilizado en la hoja activa
Dim Filas As Double
MsgBox ActiveSheet.UsedRange.Rows.Count
End Sub
Total de columnas en el rango utilizado en la hoja activa
Sub TotalColumnas()
'Total de columnas en el rango utilizado en la hoja activa
MsgBox ActiveSheet.UsedRange.Columns.Count
End Sub
Primera Fila en el rango utilizado en la hoja activa
Sub PrimeraFila()
'Primera fila en el rango utilizado en la hoja activa
MsgBox ActiveSheet.UsedRange.Row
End Sub
Total de hojas en el libro de trabajo activo
Sub TotalHojas()
'Total de hojas en el libro de trabajo
MsgBox ActiveWorkbook.Sheets.Count
End Sub
Número de libros abiertos
Sub LibrosAbiertos()
MsgBox Workbooks.Count
End Sub
