find the content of a cell in another sheet based on the content of a cell

Jos1972

New Member
Joined
Nov 3, 2008
Messages
33
Hello,
I'm looking for a macro to jump to a cell in sheet 2 based on the content of a cell in sheet 1.

Basically what the macro should do is:
Find cell A1 of sheet 1 in column B of sheet 2 and go to that cell.

I've looked for a solution but couldn't find it. Hope it is a simple question?
Thanks,
Jos
 

Some videos you may like

Excel Facts

How to change case of text in Excel?
Use =UPPER() for upper case, =LOWER() for lower case, and =PROPER() for proper case. PROPER won't capitalize second c in Mccartney

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
35,590
Office Version
365
Platform
Windows
How about
Code:
Sub Jos1972()
    Dim Fnd As Range
    Sheets("Sheet2").Activate
    Set Fnd = Range("B:B").Find(Sheets("Sheet1").Range("A1").Value, , , xlWhole, , , False, , False)
    If Not Fnd Is Nothing Then Fnd.Activate
End Sub
 

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
35,590
Office Version
365
Platform
Windows
You're welcome & thanks for the feedback
 

Forum statistics

Threads
1,089,395
Messages
5,408,003
Members
403,176
Latest member
mehtavish1

This Week's Hot Topics

  • help please
    SORRY NOT ANY GOOD AT EXCEL SO HELP WOULD BE MUCH APPRECIATED this formula is in a sheet called ignore...
  • two formulas needed
    Hello, I'll try my best to explain this: First formula needed in Sheet1 cell A2: If Sheet1 cell B2 = Sheet2 cell B2 then return a 1. If not then...
  • Dynamic Counts
    Good afternoon, we are tidying up some data & the data seems to be growing quicker than we are tidying it up! What we confirm (by reviewing it...
  • Help Excel formula eliminate duplicate values and keep only 2 identical rows.
    as picture below column A has a duplicate value. but the values are not the same as the rule. sometimes 4 rows, sometimes 10 rows or 7 or 9...
  • Macro Compile Error Sub or Function not defined
    Hello, I am trying to run macros from a validation list, all macros have been created and run perfectly on there own but I'm getting a compile...
  • Last row combined with Current Region VBA
    I'm generally happy finding the last row of data through something like Lastrow = Cells(Rows.Count, "D").End(xlUp) but I don't always receive data...
Top