Need Help with Mapping ONLY

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
Bright01Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Martin LissOlder than dirtCommented:
Please describe in more detail what you want to have happen. Also in your code, what is "Toggle"?
0
Bright01Author 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.
0
Bright01Author Commented:
Sorry Martin.... not when you click on the Macro, when you click within the cell that represents each box.

B.
0
Big Business Goals? Which KPIs Will Help You

The most successful MSPs rely on metrics – known as key performance indicators (KPIs) – for making informed decisions that help their businesses thrive, rather than just survive. This eBook provides an overview of the most important KPIs used by top MSPs.

Martin LissOlder than dirtCommented:
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?
0
Bright01Author 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.
0
Bright01Author Commented:
In the future, I need to provide more detail.  Sorry about that.

B.
0
Martin LissOlder than dirtCommented:
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

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Bright01Author 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.
0
Martin LissOlder than dirtCommented:
Please supply the URL.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Excel

From novice to tech pro — start learning today.