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?

 

[hatman]

Easier to do it on a double_click... right click the sheet tab, and insert this code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Target.Value = "X"
    Cancel = True
End Sub

Why not use a Check Box from the Forms Toolbar, though?

 

[Emoncada]

Where can I assign it to the cells that I want it to work for?

 

[Emoncada]

Where can I assign it to the cells that I want it to work for? I want the check box to be the size of the cell.

 

[hatman]

Like this:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Intersect(Range("Check"), Target) Is Nothing Then
    
        Exit Sub
        
    End If
    
    If Target.Value = "X" Then
    
        Target.Value = ""
        
    Else
    
        Target.Value = "X"
        
    End If
    
    Cancel = True
    
End Sub

where Check is a named range containing all the cells where you want this to apply... cells need not be contiguous. I tweaked it so that you can toggle the X...

 

[Emoncada]

Works perfectly, is there a way that I can assign a cell that if that's X'd that it will auto X all in that column

 

[hatman]

Umm, seems a little dangerous... but this'll do it...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Intersect(Range("Check"), Target) Is Nothing Then
    
        Exit Sub
        
    End If
    
    If Target.Value = "X" Then
    
        Columns(Target.Column).Value = ""
        
    Else
    
        Columns(Target.Column).Value = "X"
        
    End If
    
    Cancel = True

end sub

 

[Emoncada]

That didn't work As I thought, I am going to use your first code and use an if statement for the other thing.

 

[hatman]

Yeah, I didn't think it would...perhaps this is more along the lines of what you were expecting:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    If Intersect(Range("Check"), Target) Is Nothing Then
    
        Exit Sub
        
    End If
    
    If Target.Value = "X" Then
    
        Target.Value = ""
    
        Intersect(Rows(Range("check_rows").Row & ":" & Range("check_rows").Row + Range("check_rows").Rows.Count - 1), Columns(Target.Column)).Value = ""
        
    Else
    
        Target.Value = "X"
    
        Intersect(Rows(Range("check_rows").Row & ":" & Range("check_rows").Row + Range("check_rows").Rows.Count - 1), Columns(Target.Column)).Value = "X"
        
    End If
    
    Cancel = True
    
End Sub

where check_rows is a named range (single column) of discreet length which contains the rows where you want this to be applied

 

[Emoncada]

Example THis is what I have

If G12 is X'd then G13:G24 get X'd
If H12 is X'd then H13:H24 get X'd

If J12 is X'd then J13:J24 get X'd
If K12 is X'd then K13:K24 get X'd

If M12 is X'd then J13:J24 get X'd
If N12 is X'd then K13:K24 get X'd

Then

If G29 is X'd then G30:G40 get X'd
If H29 is X'd then H30:H40 get X'd

If J29 is X'd then J30:J40 get X'd
If K29 is X'd then K30:K40 get X'd

If M29 is X'd then M30:M40 get X'd
If N29 is X'd then N30:N40 get X'd

I hope that gives you more of an Idea of what i am looking at.