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]

Duplicate https://www.mrexcel.com/forum/excel...umn-select-cell-within-range-combination.html

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).

Note that sometimes posts from new users require Moderator approval before you can see them on the public forums. When this happens, you should see a message to that effect when you try to post it.
Please be patient and do not attempt to post the question again.