excel - una - repetir macro hasta celda vacia

¿Cuál es la mejor manera de obtener la última hoja de cálculo no vacía en Excel(VBA)?

Question

Estoy tratando de escribir una macro vba para un grupo tha

• tiene un libro de trabajo donde diariamente crean nuevas hojas de trabajo, y también tienen
• Hoja 1 , Hoja 2 y Hoja 3 al final de su larga lista de hojas.

Necesito crear una referencia de celda externa en una nueva columna en un libro de trabajo diferente donde esta información se está resumiendo.

Así que necesito saber cómo obtener la última hoja no vacía para poder tomar esta información y ubicarla de manera apropiada en el resumen.

Answer 1

Esta función funciona a través de las hojas de derecha a izquierda hasta que encuentra una hoja que no está en blanco y devuelve su nombre

Function GetLastNonEmptySheetName() As String
Dim i As Long
For i = Worksheets.Count To 1 Step -1
If Sheets(i).UsedRange.Cells.Count > 1 Then
GetLastNonEmptySheetName = Sheets(i).Name
Exit Function
End If
Next i
End Function

Answer 2

El método anterior ignorará una hoja con una sola entrada de celda, mientras que puede parecer una objeción, una Find busque una celda no en blanco dará más certeza.

El argumento xlFormulas en el método Find encontrará celdas ocultas (pero no celdas filtradas) mientras que xlValues no lo hará.

Sub FindLastSht()
Dim lngCnt As Long
Dim rng1 As Range
Dim strSht As String
With ActiveWorkbook
For lngCnt = .Worksheets.Count To 1 Step -1
Set rng1 = .Sheets(lngCnt).Cells.Find("*", , xlFormulas)
If Not rng1 Is Nothing Then
strSht = .Sheets(lngCnt).Name
Exit For
End If
Next lngCnt
If Len(strSht) > 0 Then
MsgBox "Last used sheet in " & .Name & " is " & strSht
Else
MsgBox "No data is contained in " & .Name
End If
End With
End Sub