Need Help with Mapping ONLY

Bright01
Bright01 used Ask the Experts™
on
OK..... I have a question on EE that combines a mapping capability using helper cells and a click rotation for different characters.  I think it might be better to break this into two questions.  So here is the ask.  

Can you take a look at how I would Map a Character, say a "P" into cells corresponding with the "1" in the Helper cells?

I'll follow up with a question later, after testing, on the toggle portion.

Much thanks in advance.

B.
Map-Checkmark-on-Click-in-BOX.xlsm
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Martin LissOlder than dirt
Most Valuable Expert 2017
Distinguished Expert 2018

Commented:
Please describe in more detail what you want to have happen. Also in your code, what is "Toggle"?

Author

Commented:
Hi Martin,  Thank you for the reply.

Please ignore my code.  It was an attempt to try to do what I'm trying to have done.

Here's the situation.   I'm putting together a "Strategy Map" and want to have a macro, that when you double click on it, it checks the Table (HELPER CELLS FOR BOX TARGET) and if there is a 1 in that particular Column/Row (associated with an "Area"), it will place the specific Letter that is in the appropriate clicked on box.  

The Toggle requirement will be in a second question where the specific LETTER in the HELP CELLS TOGGLE CHARACTERS, will be cycled through as you click on the specific Boxes.

Does that make sense?


B.

Author

Commented:
Sorry Martin.... not when you click on the Macro, when you click within the cell that represents each box.

B.
Ensure you’re charging the right price for your IT

Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden using our free interactive tool and use it to determine the right price for your IT services. Start calculating Now!

Martin LissOlder than dirt
Most Valuable Expert 2017
Distinguished Expert 2018

Commented:
I understand that but please tell me something like "when I click on cell "I12" I expect that...

Also I asked about "Toggle" because if you double-click on a cell like "I12", you get an error involving "Toggle", and that's why I asked what "Toggle" was?

Author

Commented:
Fair enough. If you doubleclick on I12, since I12 is in Area 1, the Macro needs to look at Area 1 in the Table which would be A12 and if there is a "1" in A12, it places the first letter that is in Area 1 Helper Cells Toggle Characters, which would be A25 which would be the Character "P".  If there is not a "1" in A12, it leaves it blank.  

Just for a heads up, the 2nd question I will be asking is that when you again double click in I12, it will cycle through the character in the Helper Cells Toggle Characters column associated with the Area.  So in the Case of Area 1, I12, an additional double click would take it back to blank or null.  In Area 2 it would cycle through B25:B32.

Hope that helps.

B.

Author

Commented:
In the future, I need to provide more detail.  Sorry about that.

B.
Older than dirt
Most Valuable Expert 2017
Distinguished Expert 2018
Commented:
Try this. BTW you don't have the correct font in column "S".
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Application.EnableEvents = False

Select Case Target.Column
    Case 9
        With ActiveCell
            If .Offset(0, -8).Value = "1" Then
                Select Case Target
                    Case Empty
                        Target = "P"
                    Case "P"
                        Target = ""
                End Select
                Target.Offset(0, 1).Select
            End If
        End With
    Case 12
        With ActiveCell
            If .Offset(0, -10).Value = "1" Then
                Select Case Target
                    Case Empty
                        Target = "f"
                    Case "f"
                        Target = "j"
                    Case "j"
                        Target = "h"
                    Case "h"
                        Target = "l"
                    Case "l"
                        Target = "R"
                    Case "R"
                        Target = "N"
                    Case "N"
                        Target = "M"
                    Case "M"
                        Target = ""
                End Select
                Target.Offset(0, 1).Select
            End If
        End With
    Case 16
        With ActiveCell
            If .Offset(0, -13).Value = "1" Then
                Select Case Target
                    Case Empty
                        Target = "P"
                    Case "P"
                        Target = ""
                End Select
                Target.Offset(0, 1).Select
            End If
        End With
    Case 19
        With ActiveCell
            If .Offset(0, -15).Value = "1" Then
                Select Case Target
                    Case Empty
                        Target = "f"
                    Case "f"
                        Target = "j"
                    Case "j"
                        Target = "h"
                    Case "h"
                        Target = "l"
                    Case "l"
                        Target = "R"
                    Case "R"
                        Target = "N"
                    Case "N"
                        Target = "M"
                    Case "M"
                        Target = ""
                End Select
                Target.Offset(0, 1).Select
            End If
        End With
End Select

Application.EnableEvents = True
End Sub

Open in new window

Author

Commented:
Martin, Thank you very much!  Works great and you fixed/answered both questions.  Can you also respond to the other one I have outstanding so I can close it with you as well?

Hope all is well with you.

B.
Martin LissOlder than dirt
Most Valuable Expert 2017
Distinguished Expert 2018

Commented:
Please supply the URL.

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial