SOLVED! Find certain table within data sheet and the find last row in that table

Hi, I have a problem that I can't find the solution to. I have (as you can see in the picture bellow a data sheet with different tables. Each table is divided by 2 empty rows as you can see. There ar...

excel

Formulas and Functions

Berndvbatanker

Iron Contributor

Jul 08, 2019

PerMorris

Hi,

i write an userdefined function to do the job. See attached file.

Function GetLast(strKEy As String) As Double
Dim rngFind As Range
Dim lngLastRow As Long

Set rngFind = ActiveSheet.Range("B:B").Find(what:=strKEy, lookat:=xlWhole)

If Not rngFind Is Nothing Then
lngLastRow = Cells(rngFind.Row, "B").End(xlDown).Row
GetLast = Cells(lngLastRow, "E").Value

Else
GetLast = 0
End If

End Function

Best regards

Bernd

https://vba-tanker.com/

find.xlsm15 KB