Putting a Check or an X in cell

[Emoncada]

Is there a macro that when i click in a cell it will put a check or and X in the cell?

 

[Emoncada]

I am going to need to use a macro for that because the If statement get's overwritten when double clicked on.

 

[hatman]

AHHH, in that case, it's probably simpler to follow your initial instinct and use the earlier code with If()'s. That's not to say that I COULDN'T do it with code... but if the Of()'s will do it, I think it'll be easier (for me )

 

[hatman]

I am going to need to use a macro for that because the If statement get's overwritten when double clicked on.

redefine Check to be ONLY G12, J12, M12, G29, J29, and M29... that should fix it...

 

[Emoncada]

LOL, That's true just the If statement get overwritten when double clicked. Do you know a better way? or how I can fix that problem?

My If statement is

IN: G12

=IF(G11="X","X","")

 

[Emoncada]

Sorry I deleted a row so everything moved up a row

 

[Emoncada]

Any Ideas?

 

[HalfAce]

Hello Emoncada,
Here's something you can try.
Perhaps on a separate sheet from the one hatman is helping you with just to compare which
way you want to go.
This uses the single click (selection) rather than the double click.
It will only fire when cells in columns G or H, J or K, M or N (in rows 12 or 29) get selected.
(If you're going to be inserting/deleting rows then I'd look at using named ranges instead
of hard coded rows.)
Anyway, just for fun try this.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range("G12:H12, J12:K12, M12:N12")) Is Nothing And _
   Intersect(Target, Range("G29:H29, J29:K29, M29:N29")) Is Nothing Then Exit Sub
  
Select Case Target.Row
  Case 12
    Target.Resize(13).Font.Name = "Marlett"
    If Target = "" Then
      Target.Resize(13).Value = "a"
    Else
      Target.Resize(13).Value = ""
    End If
  Case 29
    Target.Resize(12).Font.Name = "Marlett"
    If Target = "" Then
      Target.Resize(12).Value = "a"
    Else
      Target.Resize(12).Value = ""
    End If
End Select
  
End Sub

 

[Emoncada]

That works pretty good the only thing is not in all cases would all of them be checked, that's only if all are GOOD, If there is one thing BAD then I would need to be able to check then individually.

Example.

.................G..............H
..............Good........BAD
.......ALL ( )........( )
Horn......( )........( )
Lights.....( ).........( )

If the Horn and lights, and everything else on that section of G12:G23 are Good then I can click on G11 and all are checked, but if Horn is not working then I need to be able to check that as bad and then everything else as good. you have any ideas, I hope that helps.

 

[Emoncada]

I guess It's pretty hard to do.

 

[Emoncada]

Sorry, I got it to work with hatman's first code and your code, thanks a lot to both of you. Great Job I have one other problem I posted yesterday, I don't know if you can help with that.