Macro to compare names on sheets and go to row in second sheet

Hi,

I have 2 worksheets. One with a single entry which contains a Name and Month. The second worksheet contains a full list of entries in a Name and Month Column.

I need to create a Macro to read the name and month on the first sheet - and go to an empty cell on the right of the same name and month in another sheet (containing the list).

What functions do I use to do this?

thanks

Originally Posted by cmourati

Hi,

I have 2 worksheets. One with a single entry which contains a Name and Month. The second worksheet contains a full list of entries in a Name and Month Column.

I need to create a Macro to read the name and month on the first sheet - and go to an empty cell on the right of the same name and month in another sheet (containing the list).

What functions do I use to do this?

thanks

Hi,

Is the 'Name and Month' a value that will be in a single cell on the second sheet?

If so is the value unique on the sheet, or in a specified row or column?

If so is the cell immediately to the right assumed empty, or do you want to find the first empty cell after that along the row, or do you want to find the next empty cell after the last data recorded along the row?

---

Originally Posted by cmourati

Hi,

I've attached the spreadsheet. The name and month will be in a signle cell in sheet 1 (A5) and 2 (column C). The value will be unique on the specified column.

The macro will compare the A5 cell to all cells in column C and go to an emptly cell in column F (right of entry and same row as equal value as A5 in sheet 1).

Hi,

no attachment found, but, record a macro and assign a letter to it.

In Tools, Macro, that macro, Edit and replace the code with

Sub FindSpot()

Dim sFindVal As String
sFindVal = Sheets("Sheet1").Range("A5").Value
Sheets("Sheet2").Activate
    Cells.Find(What:=sFindVal, After:=Cells(1, 3), LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    ActiveCell.Offset(0, 3).Select

End Sub

Then CTRL letter
or CTRL Shift Letter

should take you to the spot.

let me know how you go
---

Originally Posted by cmourati

Hi,

Looks like the macro works well. Thanks for that....

fyi...I've attached the spreadsheet again in this reply...

thank you again...

Good to see it works for you, and thanks for the response and the file.
---