Can Someone Identify the Functions / Formulas in this?

[StevenRLaw]

I know this is asking a lot but I am at a loss...
I have been searching for a tenant rental payment tracker and finally ran across this video. It is exactly what I am looking for. I tried to contact the OP to purchase but it was posted 6 years ago and his Fiverr profile is not active.
I was Hoping that someone could identify the processes used and point me in the right direction to learn how to use them so I can build my own.
I am no stranger to excel but I have never seen clicking a cell changing the values based on the Icon in the cell....

any and all information would be greatly appreciated... (he may even be in this group, or someone knows him which would be awesome)

here is the link to the vid:

I also attached a screenshot of the video

 

[dreid1011]

If I had to guess, without watching the video, they are probably using some VBA to cycle through a selection of characters/numbers and changing the value in the cell which each subsequent click, then those cells are conditionally formatted to show the appropriate icon.

IE: First click, check the value in the cell, if blank, change cell value to 1.
Second click, check cell value, if 1, change to 2.
Third click, check cell value, if 2, change to 3. etc.

Then just use some CF rules to change icons based on what values are in the cells. And maybe change the font color to white/gray so you don't actually see the values entered.
1 = Payment Plan = grey fill color
2 = Paid = green check mark
3 = Hasn't Paid = red X
4 = Late Payment = yellow exclamation point

 

[dreid1011]

Something like this perhaps:

Edit: It seems xl2bb doesn't show CF icons. Cell values are as follows:

B1:E1 = 1 = grey fill color
B4 = 2 = green check
C4 = 1 = grey fill color
C6 = 3 = red x
D7 = 4 = yellow !
C9 = 2 = green check
D9 = 3 = red x
E9 = 1 = grey fill color

Book1
	A	B	C	D	E	F
1
2
3
4
5
6
7
8
9
10
Sheet1

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
B2:E9	Expression	=B2=1	text	NO
B2:E9	Other Type	Icon set		NO

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Cells.Count > 1 Then GoTo Reset
If Not Intersect(Target, Range("B2:E9")) Is Nothing Then
    Select Case Target.Value
        Case ""
            Target.Value = 1
        Case 1
            Target.Value = 2
        Case 2
            Target.Value = 3
        Case 3
            Target.Value = 4
        Case 4
            Target.Value = ""
    End Select
    Range("B1").Select
End If
Reset:
Application.EnableEvents = True
End Sub

 

[StevenRLaw]

Something like this perhaps:

Edit: It seems xl2bb doesn't show CF icons. Cell values are as follows:

B1:E1 = 1 = grey fill color
B4 = 2 = green check
C4 = 1 = grey fill color
C6 = 3 = red x
D7 = 4 = yellow !
C9 = 2 = green check
D9 = 3 = red x
E9 = 1 = grey fill color

Book1
	A	B	C	D	E	F
1
2
3
4
5
6
7
8
9
10
Sheet1

Cells with Conditional Formatting
Cell	Condition		Cell Format	Stop If True
B2:E9	Expression	=B2=1	text	NO
B2:E9	Other Type	Icon set		NO

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Cells.Count > 1 Then GoTo Reset
If Not Intersect(Target, Range("B2:E9")) Is Nothing Then
    Select Case Target.Value
        Case ""
            Target.Value = 1
        Case 1
            Target.Value = 2
        Case 2
            Target.Value = 3
        Case 3
            Target.Value = 4
        Case 4
            Target.Value = ""
    End Select
    Range("B1").Select
End If
Reset:
Application.EnableEvents = True
End Sub

Thank you! I will give this a try and see what I can come up with... Not very familiar with VBA's lol