What's the best way to take the last column?

[marlonsaveri]

Hi, I tried so many times, but it's wrong:

Function FindLastCol(i As Integer) As Long
    Dim busca As Range
    Dim WhatToSearch As String

    WhatToSearch = "Espessura"
    
    Set busca = Sheets(i).Cells.Find(what:=WhatToSearch, after:=Range("A1"), LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
        
    If Not busca Is Nothing Then
        FindLastCol = Cells(busca.Row, Columns.Count).End(xlToLeft).Column
    End If
        
End Function

In this case, WhatToSearch is in merged cell, but there's so many cells filled in front that.

 

[michaelnicolas]

Hello,

Your code is working fine on my PC.
=FindLastCol( put the worksheet index number (1,2,3...) )

What is exactly wrong? Do you get any error messages....

Please give some more info...

Kind Regards

 

[marlonsaveri]

Yes, I forgot the index of the sheet.
Sheets(i).cells(...); not just cells(...)
thanks.

 

[michaelnicolas]

You are welcome.

Kind regards