VBA insert tick

[sturnusek]

Hi there,

I have found the below code on the internet to do what I want, but when I want to expand the range it comes up with an error . Any one has any idea how to include H:H, J:J, L:L and N:N sections to it?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)'Updateby Extendoffice
If Target.Cells.Count = 1 Then
If Not Intersect(Target, Range("H:H", "J:J")) Is Nothing Then
With Target
.Font.Name = "Wingdings"
.Font.Size = 12
If .FormulaR1C1 = " û " Then
.FormulaR1C1 = "ü"
Else
.FormulaR1C1 = " û "
End If
End With
End If
Cancel = True
End If
End Sub

Thanks

 

[FormR]

Hi, you could give this a try..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Updateby Extendoffice
If Target.Cells.Count = 1 Then
    If Not Intersect(Target, Range("H:H,J:J,L:L,N:N")) Is Nothing Then
        With Target
            .Font.Name = "Wingdings"
            .Font.Size = 12
            If .FormulaR1C1 = " û " Then
                .FormulaR1C1 = "ü"
            Else
                .FormulaR1C1 = " û "
            End If
        End With
        Cancel = True
    End If
End If
End Sub

 

[sturnusek]

Hi,

I tried this solution before, but it came up with a Range error. I managed to overcome the problem using the original code, but populating my data a bit different.

Thanks for your help though!

 

[FormR]

i tried this solution before, but it came up with a Range error.

Hi, did you notice the difference here:

If Not Intersect(Target, Range("H:H,J:J,L:L,N:N")) Is Nothing Then

Versus what you had:

If Not Intersect(Target, Range("H:H", "J:J")) Is Nothing Then

I managed to overcome the problem using the original code, but populating my data a bit different.

Good to hear

 

[sturnusek]

Ow, I knew I put the apostrophes in the wrong places... haha

Thank you!