Apply VBA to every other column

[Reegs]

Hello everyone, I have another question for you.

I'm making a training ledger and I am using the following VBA to double click a cell to change the cell to a check mark.

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


    If Not Intersect(Target, Range("H9:ABC2000")) Is Nothing Then


            Cancel = True 'Prevent going into Edit Mode


            Target.Font.Name = "Wingdings"


                If Target = vbNullString Then


                    Target = "ü"


                Else


                    Target = vbNullString


                End If


    End If


End Sub

I would like this VBA to work on every other column starting at "I"

I also need the same thing to work on every other column starting at "H" but fill in an "X" instead. (regular arial is fine)

"X" means required
"Check mark" means completed


Can anyone help me out?

Thanks,
Reegs

 

[Joe4]

You can check to see if the column number of the Target cell is odd or even, i.e.

If Target.Column Mod 2 = 0 Then
'    Even numbered column, return "X" here
Else
'    Odd numbered column, return check mark here
End If

Just replace the comments with your appropriate code.

 

[Reegs]

You can check to see if the column number of the Target cell is odd or even, i.e.

If Target.Column Mod 2 = 0 Then
'    Even numbered column, return "X" here
Else
'    Odd numbered column, return check mark here
End If

Just replace the comments with your appropriate code.

Thanks Joe,

After MUCH tinkering, I was able to come up with the following:

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


  If Not Intersect(Target, Range("H9:ABC2000")) Is Nothing Then


            Cancel = True 'Prevent going into Edit Mode


    
                       
        If Target.Column Mod 2 = 0 Then


            Target.Font.Name = "Arial"
                   If Target = vbNullString Then
                    Target = "X"


                   Else
                   
                    Target = vbNullString
                    End If
         Else
            
            Target.Font.Name = "Wingdings"
                    If Target = vbNullString Then
                    Target = "ü"
        
                   Else
                   
                    Target = vbNullString
                    End If
         End If


     
 End If

It works !!!

Thanks again,
Reegs

 

[Joe4]

You are welcome.