View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Rowan Drummond[_3_] Rowan Drummond[_3_] is offline
external usenet poster
 
Posts: 414
Default Need help with auto selecting cells

It shouldn't be too difficult to set the activecell based on the value
in K7 BUT we would need to know exactly how the value in K7 is being
changed e.g. is it done directly via a macro linked to a button, is it a
calculation, is the entry typed in etc. If its done via a macro it would
be handy to see that code.

Regards
Rowan

Greegan wrote:
I posted the following in another newsgroup.
I only got so far with answers and its been a few days waiting.
I decided I should try another newsgroup and found this one.
I'm hoping someone could help me out...


I have a changing value in cell K7 which will result in a random number
(already generated - no assistance needed here) with a letter for my BINGO
game. So B1-B15, I16-I30, etc all the way to O75.
I have a range of numbers to match the randomly generated number in cells B1
to P5.

What I would like is when any cell in B1-O75 is equal to the value in K7
then the cursor, cell highlight or whatever, auto selects that matching
cell.

Right now I need to select that matching cell, then select a menu item I
call Next Turn, and then it will generate a new number. But I have to do
this with each and every turn and ... well that's 75 turns to do the same
thing repeatedly (CellNextTurn,CellNextTurn, and so on).

If someone can give me a script that will auto select the identical cell,
then it only be Button, Button, Button.

Thank you in advance

G

From: ?

Does it need to be selected for you, or just highlighted? If the latter, you
could use conditional formatting.

Answer: It needs to highlight the cell that matches K7



From: Don

right click sheet tabview codeinsert thismodify to suitSAVE

Private Sub Worksheet_Change(ByVal Target As Range)
Set myrange = Range("b1:b4")
If Target.Address < "$D$1" Then Exit Sub
If Intersect(Target, myrange) Is Nothing Then
myrange.Find(Target).Activate
End If
End Sub


Answer:
I see what this does and I actually understand it, however its selecting the
cell the range is being compared to.
I need it to select the cell in the range that matches what currently is my
target.
Is there something we can change here to make that work?

Thanks again,

G

New Updated Question:

I'm going to approach my BINGO question from another angle here...
If I know what cell will have B1 and which will have B-I-N-G-O through to
O75...
Then could I not do a statement or script or something where it says
something like If K7=B1 then select B1 but if K7 = P5 then select P5 ?
I know I would probably need to do this for all of them... and you guys are
great with the help, but what I've been given isn't working the way I need
it to...

Thanks in advance

G


I never did get an answer for this.
Can someone help me out?

Thank you

G