GO TO THE LAST DATA BASED ON 2 CELL DATA

[wndncg]

I have a working code just for 1 data but i need based on 2 data. ty mrexcel.

Dim Rng As Range
Set Rng = Range("A" & Rows.Count).End(xlUp).Offset(1)
Set wsCellVal = Sheets("TEMPLATE")
Set wsFIN = Sheets("FIN")
cv = wsCellVal.Range("E1")
Columns("A").Find(cv, After:=Rng, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False, _
SearchFormat:=False).Select
Application.Wait (Now + TimeValue("00:00:01"))
'wsFIN.Activate
'Call INSERT_ROW_SPECIFIC
'ActiveCell.EntireRow.Insert

 

[Alex Blakenburg]

If you mean your agency criteria that we were getting from the Template from Cell A1 is now in F1 then just change the A1 to F1 in this line.

        strFormula = "iferror(Match(2, 1 / ((" & rngMth.Address & " = " & wsData.Range("E1").Address(External:=True) & ")*" _
                                        & "(" & rngAgency.Address & " = " & wsData.Range("F1").Address(External:=True) & "))),0)"

 

[wndncg]

If you mean your agency criteria that we were getting from the Template from Cell A1 is now in F1 then just change the A1 to F1 in this line.

        strFormula = "iferror(Match(2, 1 / ((" & rngMth.Address & " = " & wsData.Range("E1").Address(External:=True) & ")*" _
                                        & "(" & rngAgency.Address & " = " & wsData.Range("F1").Address(External:=True) & "))),0)"

thanks sir! currently i need help also with this one.

NEED TO CORRECT THIS CODE

Basically it adds the data where it based on cell A1 & E1 What i want: currently the code adds the data on the end of the cell, what i want to add on the current cell: --- Sub DATA_DATE_LAST() Dim wsData As Worksheet Dim wsTemp As Worksheet Dim v As Variant Dim LR As Long...

www.mrexcel.com