Replies

Yes. The latter. Thanks. I am still experiencing difficultes. Would you take a look at the code, please. I will try to explain what I’m trying to achieve.
I am trying to simulate the memory game where, when to identical symbols are uncovered they remain visible whereas none matches become invisible. On sheet 1, formatted with Wingdings font, I have a 6X6 grid containing 18 pairs of Wingdings whose font colors match the cell background colors. When I select cells, initially the font changes to red thus revealing the symbols. If they match, I want the font color to stay red. If they don’t match I want the font color to return to the cell background color thereby rendering them invisible. I think I need a loop somewhere but I have hit a blind spot. Any advice would be appreciated.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Intersect(ActiveCell, Range(“C2:H7”)) Is Nothing Then Exit Sub
ActiveCell.Font.ColorIndex = 3

‘Add the ActiveCell value and address to sheet3

Sheets(“Sheet3”).Range(“A65536”).End(xlUp).Offset(1).Value = ActiveCell.Value
Sheets(“Sheet3”).Range(“B65536”).End(xlUp).Offset(1).Value = ActiveCell.Address
Application.Wait Now() + 1 / 43200

‘Check that 2 addresses have been added

If Sheets(“Sheet3”).Range(“C4”).Value = 2 Then

‘Check if the two cell values from sheet are the same. If so change font color.

If Sheets(“Sheet3”).Range(“A2”).Value = Sheets(“Sheet3”).Range(“A3”) Then
Worksheets(“Sheet1”).Range(Worksheets(“Sheet3”).Range(“B2”)).Font.ColorIndex = 3
Worksheets(“Sheet1”).Range(Worksheets(“Sheet3”).Range(“B3”)).Font.ColorIndex = 3

‘ If not the same, change the font color to match the cell color.

Else
Worksheets(“Sheet1”).Range(Worksheets(“Sheet3”).Range(“B2”)).Font.ColorIndex = 35
Worksheets(“Sheet1”).Range(Worksheets(“Sheet3”).Range(“B3”)).Font.ColorIndex = 35
End If
End If

Sheets(“Sheet3”).Range(“A2:B3”).ClearContents

End Sub

Here is a site that I have used regularly to interconvert media types.

I have also used this site to download youtube-like videos and flash movies.

Don’t ike to brag, but……

Nice to hear that you’re enjoying it, Ricky. I, too, think it’s really entertaining (although I don’t get out much).

Have fun.

Many thanks, Hans.

Thanks John and Steve. More food for thought.

Regards

Hi Hans

The impenetrable black cloud has now been replaced by a dense fog.

Hi Hans

Thanks for the reply. I didn’t explain myself properly. I wanted the change to occur each second, or even every two seconds, for 10 occasions only, well below the danger frequency, I believe (another assumption), but I take your point.

Thanks Stuart and Hans for the input. Sorry for the delay in responding – power problems.
I compared my settings with your graphic. Their was an additional US entry which I removed. All is now well and yes, it is a UK keyboard.

All the best for 2008.

Hi Stuart.

The “key is the shift 2 key and the ” key is the shift ‘ key, ie standard. All other shift operations seem to work as expected. I’ve supplied a screenshot of the settings.

Thanks

Thanks John. I’ll experiment.

Hi Steve

Many thanks for the links. I’ll go away and play.

Regards

Oh well! Back to the drawing board. Thanks Hans.