lastrow of 3 columns

How can i change this so my lastrow= is the lowest cell of A B or C?

Something like tis

lastRow = Range(""lowest row filled of" A:C" & Rows.Count).End(xlUp).Row

Many Thanks

Good morning Directling

Originally Posted by Directlinq

How can i change this so my lastrow= is the lowest cell of A B or C?

If your sheet has data columns D onwards, you will need to check A, B and C and determine which is the largest. If you have no data in D onwards, then something like this should work :

MsgBox ActiveSheet.UsedRange.Rows.Count

HTH

DominicB

Would This Do It.

Sub lastRow()
Dim c As Object

    With Sheets("Sheet1").Range("A:C")
     Set c = .Find(What:="*", LookIn:=xlValues, Lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlPrevious)
    End With


End Sub

Didnt see it was solved.
I done this as an example.

Sub LastRow()

Dim A As Object
Dim B As Object
Dim C As Object
' Find Last Used Cell
With Sheets("Sheet1").Range("A:A")
     Set A = .Find(What:="*", LookIn:=xlValues, Lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlPrevious)
    End With
With Sheets("Sheet1").Range("B:B")
     Set B = .Find(What:="*", LookIn:=xlValues, Lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlPrevious)
    End With
With Sheets("Sheet1").Range("C:C")
     Set C = .Find(What:="*", LookIn:=xlValues, Lookat:=xlPart, searchorder:=xlByRows, searchdirection:=xlPrevious)
    End With
    
    ' Selsec rows higher or less Than Using ><
If A.Row > B.Row & C.Row Then Range("A1:A" & A.Row).Select Else
If B.Row < A.Row & C.Row Then Range("B1:B" & B.Row).Select Else
If C.Row > A.Row & B.Row Then Range("C1:C" & C.Row).Select

End Sub

Im Stoked I could Help