Need help modifing / adding to some VBA code

[richard11153]

I have a sample file attached. It has working VBA code that's put a "X", in a cell where
a "q" is in the cell directly to the left (in a hidden column).

I would like to be able to have an additional column (working the same way) that
puts a "wingding symbol" in an additional column, the same way (when an "/", is to the left.

I have attached a sample piece of the file / with the current VBA code.

If someone can write / edit the code to work, (if it can be done), it would be greatly
appreciated as I do not fully understand VBA.
I am using excel 2003.

Thanks!!!

[Bernie Deitrick]

Please Login or Register  to view this content.

[richard11153]

When I add this new code it gives me an error. "ambiguous name".

Do I add this after the "End Sub" of the existing code?
Or Could you put it all together, (and test it), so I can just paste in "all new code"?
I just do not get how to add this to the existing

Thanks again.

[Bernie Deitrick]

Just overwrite the existing code - I changed your routine so it needs to be replaced.

[richard11153]

No, Maybe I was not clear in the first post, but I need both "Codes" to work, so that the boxes that
get the Xs, now (My existing code), still works, in addition to the new code.
I'm not sure, if maybe "my old code needs to be modified" (to add the new working column), or there is
a way to just "add" this new code. I hope I'm explaining it correctly.

[jindon]

Is this how you wanted?

Please Login or Register  to view this content.

**fset should be **fset
Don't know why, but it changes.

[richard11153]

Still cant get it to work. I get a "Syntax Error"

Can you maybe put the new code into my worksheet, test it, then forward me the "worksheet" with the code already in it?
I'm sure I'm doing something basic wrong when I paste the new code in.

Thanks Again.

[jindon]

Try the attached

[Bernie Deitrick]

This code does both the q and the /.... I modified your existing code to do both. That was what I meant.... not sure why ** was changed to ** in my first post - OR in this post replace each occurence ** star star with the letters Oh and Ef arggghhh,,,

Please Login or Register  to view this content.

[jindon]

Or do you mean

Please Login or Register  to view this content.

[richard11153]

The last set of code seems to work fine (It puts both symbols in the columns as I want)
There is still a problem however; Even though the symbols go in properly, now when
I highlight a group of cells in another area of the worksheet (as I would do delete some data or entries),
as soon as I swipe, say 6 cells, I get an error. It pops up a message: "Run time error 13 Mismatched". (Not sure what that means.)
Then when I hit the "De-Bug" option, It highlights in yellow: "If Not Target.Offset(, -1).Value Like "[q/]" Then"

Not sure what to make of this?

[jindon]

Add following one line just below Const line

Please Login or Register  to view this content.

[richard11153]

Beautiful!! You guys amaze me. Thank you so much.

May I call on you again some time? As I may want to add, even one more column (as this added).

[richard11153]

Let me ask another question....
How would code "be done / be added" to do this again, but maybe putting say, "FE" in a cell, when the column
directly to the left is say a "Z" (same type of thing). Would you mind showing me that "added in" code?

Here's what I have so far that works well.

[Code]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Const WS_RANGE As String = "a1:bu1450" '<=== change to suit
If Target.Count > 1 Then Exit Sub
If Not Target.Offset(, -1).Value Like "[q/]" Then Exit Sub
Application.EnableEvents = False
If Not Application.Intersect(Target, Range(WS_RANGE)) Is Nothing Then
With Target
If .Offset(, -1).Value = "q" Then
.Font.Name = "x"
.Value = IIf(.Value = "x", "", "x")
ElseIf .Offset(, -1).Value = "/" Then
.Font.Name = "Wingdings 2"
.Value = IIf(.Value = "t", "", "t")
End If
.Offset(0, -1).Activate
End With
End If
Application.EnableEvents = True
End Sub
[Code]

[shg]

Richard, please take a few minutes to read the forum rules, and then edit your post to add CODE tags.

Thanks.