Excel Macro
 

I'm trying to convert an old macro from Lotus 123 to excel and am having some
difficulty.

What I want to do is look at the data (which is a number 1-75) in a specific
cell and match it from a range (rows labelled 1-75), then goto the matched
cell in the range and search column by column until it finds a blank one.
Then input the data from a input box into the blank cell.

The problems I am having are getting the macro to activate the matched cell,
search and then input the data to the sheet (I've got the input box to come
up).

Please Help Me

Excel Macro
 

Jim,

Something like:

Sub test()
Dim myCell As Range

Set myCell = Range("Numbers").Cells(Application.Match( _
Range("CellToMatch"), Range("Numbers"), False))
Cells(myCell.Row, 256).End(xlToLeft)(1, 2).Value = _
Application.InputBox("Enter the value")

End Sub


Assumes that your range with the numbers 1 to 75 are in a range named
"Numbers" and your value to match is in a cell named "CellToMatch"

HTH,
Bernie
MS Excel MVP

"jim hardwick" <jim wrote in message
...
I'm trying to convert an old macro from Lotus 123 to excel and am having
some
difficulty.

What I want to do is look at the data (which is a number 1-75) in a
specific
cell and match it from a range (rows labelled 1-75), then goto the matched
cell in the range and search column by column until it finds a blank one.
Then input the data from a input box into the blank cell.

The problems I am having are getting the macro to activate the matched
cell,
search and then input the data to the sheet (I've got the input box to
come
up).

Please Help Me

Excel Macro
 

Many thanks, solved the problem - I dont think I would of ever found the
solution myself.

"Bernie Deitrick" wrote:

Jim,

Something like:

Sub test()
Dim myCell As Range

Set myCell = Range("Numbers").Cells(Application.Match( _
Range("CellToMatch"), Range("Numbers"), False))
Cells(myCell.Row, 256).End(xlToLeft)(1, 2).Value = _
Application.InputBox("Enter the value")

End Sub


Assumes that your range with the numbers 1 to 75 are in a range named
"Numbers" and your value to match is in a cell named "CellToMatch"

HTH,
Bernie
MS Excel MVP

"jim hardwick" <jim wrote in message
...
I'm trying to convert an old macro from Lotus 123 to excel and am having
some
difficulty.

What I want to do is look at the data (which is a number 1-75) in a
specific
cell and match it from a range (rows labelled 1-75), then goto the matched
cell in the range and search column by column until it finds a blank one.
Then input the data from a input box into the blank cell.

The problems I am having are getting the macro to activate the matched
cell,
search and then input the data to the sheet (I've got the input box to
come
up).

Please Help Me