Find a cell with a special value and activate it
 

Hello!

I'd like to do the following:

Get a date from a different workbook (which is given in
cell A9) and then find the date in my workbook in Row "1"
and activate the cell.

Can anybody help? Thank you!

Mirja

Find a cell with a special value and activate it
 

Dim oCell As Range

Set oCell = Rows(1).Find(Range("A9").Value)
If Not oCell Is Nothing Then
oCell.Select
End If


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Mirja" wrote in message
...
Hello!

I'd like to do the following:

Get a date from a different workbook (which is given in
cell A9) and then find the date in my workbook in Row "1"
and activate the cell.

Can anybody help? Thank you!

Mirja

Find a cell with a special value and activate it
 

Many thanks!!

Mirja


-----Original Message-----

Dim oCell As Range

Set oCell = Rows(1).Find(Range("A9").Value)
If Not oCell Is Nothing Then
oCell.Select
End If


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Mirja" wrote in
message
...
Hello!

I'd like to do the following:

Get a date from a different workbook (which is given in
cell A9) and then find the date in my workbook in
Row "1"
and activate the cell.

Can anybody help? Thank you!

Mirja



.

Find a cell with a special value and activate it
 

my pleasure.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Mirja" wrote in message
...
Many thanks!!

Mirja


-----Original Message-----

Dim oCell As Range

Set oCell = Rows(1).Find(Range("A9").Value)
If Not oCell Is Nothing Then
oCell.Select
End If


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Mirja" wrote in
message
...
Hello!

I'd like to do the following:

Get a date from a different workbook (which is given in
cell A9) and then find the date in my workbook in
Row "1"
and activate the cell.

Can anybody help? Thank you!

Mirja



.