Reference Problem in a Formula used in VBA

[zaska]

Hi,

Formula used in VBA code

Range("I2:I" & LR).Formula = "=G2*LOOKUP(9.99999999999999E+307,SEARCH(""#""&'[NSE Converter.xls]Sheet1'!$A$1:$A$236,""#""&SUBSTITUTE(TRIM(A2),CHAR(160),"""")),'[NSE Converter.xls]Sheet1'!$B$1:$B$236)"

In the above formula the No.of Rows in Sheet1 of Nseconverter.xls are dynamic I.e $A$1:$A$236 the next month the no of cells may be 237 or 239 etc..same is the case with Column B.

I thought of using named reference for both Column A and B.

Can anyone help me as to what changes should be made in the above formula if columnA values are named as Data1 and ColumnB values are named as Data2.

Or is it possible to find the last cells in column A and Column B and accordingly refer the same in the above formula instead of $A$1:$A$236

Thank you

 

[Jonmo1]

You can try

Dim lrA As Long, lrB As Long
With Workbooks("NSE Converter.xls").Sheets("Sheet1")
    lrA = .Cells(Rows.Count, "A").End(xlup).Row
    lrB = .Cells(Rows.Count, "B").End(xlup).Row
    Range("I2:I" & LR).Formula = "=G2*LOOKUP(9.99999999999999E+307,SEARCH(""#""&'[NSE Converter.xls]Sheet1'!$A$1:$A$" & lrA & ",""#""&SUBSTITUTE(TRIM(A2),CHAR(160),"""")),'[NSE Converter.xls]Sheet1'!$B$1:$B$" & lrB & ")"
End With

Or presumeably both columns A and B end at the same row, so you could just use 1 variable for both A and B.
Hope that helps.

 

[zaska]

Hi,

Thank you verymuch i have been looking for the same since a long time.

Have a nice day

 

[Jonmo1]

Glad to help, thanks for the feedback.