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

 

[cmowla]

I downloaded your file and imported the sheet into my macro-enabled workbook and ran it. It works. I don't know what the problem could be.

Edit: For some (unknown to me) reason, you have to have TEMPLATE as the active sheet. Having either of the other 2 in view causes an error. Did you try running it with TEMPLATE as the active sheet?

 

[wndncg]

I downloaded your file and imported the sheet into my macro-enabled workbook and ran it. It works. I don't know what the problem could be.

it just shows: "Search Complete" and its not moving to the last data.

 

[cmowla]

Okay, I see what was causing the error (that I got, not what you got). The .Select part at the very end. (I hardly ever use select in VBA. But when you want to select a range in a sheet, that sheet has to be the active sheet.) Make the following modification.

    Dim i As Integer
    For i = UBound(s) To 0 Step -1
        If .Cells(s(i), "B").Value = .Range("A1").Value Then
            Sheets(sheetName).Select '*************************New line of code
            .Range("A" & s(i) & ":" & "G" & s(i)).Select
            ActiveWindow.Zoom = True
            Exit Sub
        End If
    Next i
End With

it just shows: "Search Complete" and its not moving to the last data.

Then as far as it's concerned, either there was no match of the date in E1 and/or none of the matches of E1 have the value of A1 to the right of the match in column B.

 

[cmowla]

This is the match it gave me when I ran it. (And I have it zoom in a little on the match too.):

I hope one of the MVP's steps in and helps, because I'm clueless.

 

[wndncg]

Okay, I see what was causing the error (that I got, not what you got). The .Select part at the very end. (I hardly ever use select in VBA. But when you want to select a range in a sheet, that sheet has to be the active sheet.) Make the following modification.

    Dim i As Integer
    For i = UBound(s) To 0 Step -1
        If .Cells(s(i), "B").Value = .Range("A1").Value Then
            Sheets(sheetName).Select '*************************New line of code
            .Range("A" & s(i) & ":" & "G" & s(i)).Select
            ActiveWindow.Zoom = True
            Exit Sub
        End If
    Next i
End With

Then as far as it's concerned, either there was no match of the date in E1 and/or none of the matches of E1 have the value of A1 to the right of the match in column B.

i will clear what i want to happen sir.

-The button is INSERT DM
-INSERT DM will run based on:
1. A1 that will find the last data based on E1
2. So in theory when user pressed the button the selection will go A6

i hope it clears sorry for bad engrish.

 

[cmowla]

If you have a button to run it, then you need to assign the button to the sub named:

Test__Find_Latest_Date

(No parameters.)

But just in case (for others), here is the xl2bb capture:

Book1
	A	B	C	D	E
1	1000002306		1/1/2022		2/1/2022
2	DUE Month	(BP Office) Agency	Name of Agency	Agency Type	PS
3	1/1/2022	1000002306	TEST	TEST	2671069.27
4	1/1/2022	1000002306	TEST	TEST	2671069.27
5	1/1/2022	1000002306	TEST	TEST	2671069.27
6	1/1/2022	1000002306	TEST	TEST	2671069.27
7	2/1/2022	1000002306	TEST	TEST	2671069.27
8	2/1/2022	1000002306	TEST	TEST	2671069.27
9	2/1/2022	1000002306	TEST	TEST	2671069.27
10	2/1/2022	1000002306	TEST	TEST	2671069.27
11	2/1/2022	1000002306	TEST	TEST	2671069.27
12	2/1/2022	1000002306	FEB222	FEB222	2671069.27
13	2/1/2022	1000002306	FEB222	FEB222	2671069.27
TEMPLATE

 

[cmowla]

i will clear what i want to happen sir.

-The button is INSERT DM
-INSERT DM will run based on:
1. A1 that will find the last data based on E1
2. So in theory when user pressed the button the selection will go A6

i hope it clears sorry for bad engrish.

That's exactly what it does.

 

[wndncg]

its not pointing or going to the last data

That's exactly what it does.

 

[Alex Blakenburg]

This has quite an overlap with your other thread.
If the code in the other thread is working, doesn't that mean that this part is no longer an issue ?

 

[wndncg]

This has quite an overlap with your other thread.
If the code in the other thread is working, doesn't that mean that this part is no longer an issue ?

Its different because it now wants to find the last data if based on 2 cell value