click to change value, one cell at a time, across a small matrix of cells

[Mike McLaren]

Greetings, guys. May I impose to ask for help on a personal project, please?

I've got a small 5x7 grid of cells in a spreadsheet that I use to edit fonts for an OLED display. Basically, I put a null or a 1 value in each cell (the cell color changes to black for a 1) and I use the resulting pattern to build the byte pattern data for my microcontroller projects.

Is there a way I can simply point and click on each cell in that 5x7 grid to toggle the cells value between a null value and a 1 value?

TIA. Cheerful regards, Mike

 

[My Aswer Is This]

You never said what area the 5-7 grid was so modify this Range:
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

This script runs any time you enter a cell within the range
You will see my Range in red modify this as needed

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Modified 5/30/18 9:50 PM EDT
If Not Intersect(Target, Range("[COLOR=#ff0000]C4:G10[/COLOR]")) Is Nothing Then
If Target.Cells.CountLarge > 1 Then Exit Sub
If Target.Value = "1" Then
Target.Value = ""
Else
Target.Value = "1"
End If
End If
End Sub

 

[Mike McLaren]

Thank you so much. That works great. The clicked cell toggles and changes color nicely but it remains selected. Is there a way to deselect the target cell after affecting the change?

Thank you again... Mike

 

[My Aswer Is This]

Thank you so much. That works great. The clicked cell toggles and changes color nicely but it remains selected. Is there a way to deselect the target cell after affecting the change?

Thank you again... Mike

Some cell has to be selected. What cell do you want selected?
Do you want Range("A1") selected?

 

[My Aswer Is This]

Try this:
Range("A1") will now be selected
Cells(1,1) equals Row(1) column(1)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Modified 5/31/18 1:15 AM EDT
If Not Intersect(Target, Range("C4:G10")) Is Nothing Then
If Target.Cells.CountLarge > 1 Then Exit Sub
If Target.Value = "1" Then
Target.Value = "": Cells(1, 1).Select
Else
Target.Value = "1": Cells(1, 1).Select
End If
End If
End Sub

 

[My Aswer Is This]

Just curious.
How do the cell colors change?
Is this caused by Conditional formatting?
The script could do all of this if you wanted.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Modified 5/31/18 1:35 AM EDT
If Not Intersect(Target, Range("C4:G10")) Is Nothing Then
If Target.Cells.CountLarge > 1 Then Exit Sub
If Target.Value = "1" Then
Target.Value = "": Target.Interior.Color = xlNone: Cells(1, 1).Select
Else
Target.Value = "1": Target.Interior.Color = vbBlack: Cells(1, 1).Select
End If
End If
End Sub

 

[Mike McLaren]

Ok, some cell has to be selected. Gosh, that makes sense. I'll select one just outside the little 5x7 edit area.

Yes, I used Conditional Formatting to color the cells in the little 5x7 editing cell matrix and also in a 96 character Font Preview area.

Again, thank you very much...

Cheerful regards, Mike, K8LH

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Ok, some cell has to be selected. Gosh, that makes sense. I'll select one just outside the little 5x7 edit area.

Yes, I used Conditional Formatting to color the cells in the little 5x7 editing cell matrix and also in a 96 character Font Preview area.

Again, thank you very much...

Cheerful regards, Mike, K8LH