Find last cell in column and select a cell within a range combination

[EngSantiago]

Hi all,

I need some guidance and how to improve VBA code. Currently, I'm using the following command to find a part number "PN" within a range (B2:C5000).

Worksheets("Data_Base").range("B2:C5000").Find(What:=PN).Select

The problem is that as the parts list gets bigger the formula wont find any PNs after row 5000. The scope is to always adjust the range by finding cell address of the last non-blank cell on column C.

Currently, I'm using the following to get the last cell address on column C.

lCol = 3lRow = Cells(Rows.Count, 3).End(xlUp).Row
FindLast = ActiveSheet.Cells(lRow, lCol).Address(False, False)

The part I'm having trouble with is getting the below command to select the cell that cointains the "PN" when I use FindLast on the command. I've tried the following but doesnt seem to be working.

Worksheets("Data_Base").range("B2:Findlast").Find(What:=PN).Select

Worksheets("Data_Base").range("B2:C2 & FindLast").Find(What:=PN).Select

Please advise.

 

[Fluff]

Try

Worksheets("Data_Base").Activate
LRow = Cells(Rows.Count, 3).End(xlUp).Row
Range("B2:C" & LRow).find(What:=PN).Select

 

[EngSantiago]

Try

Worksheets("Data_Base").Activate
LRow = Cells(Rows.Count, 3).End(xlUp).Row
Range("B2:C" & LRow).find(What:=PN).Select

Thanks for replying. Know I now what I was doing wrong. I was using

[COLOR=#574123]LRow = Cells(Rows.Count, 3).End(xlUp).Row[/COLOR]

on the Sub but then I was calling a Function FindPN(r As Integer) to find the part number. As soon as I plugged in

[COLOR=#574123]LRow = Cells(Rows.Count, 3).End(xlUp).Row[/COLOR]

in Function FindPN the code started working correctly.

Thanks again!

 

[Fluff]

You're welcome & thanks for the feedback