Opgelost Vinkje in kolom naar ook in andere komol.

[Dokman]

Hallo,

Ik heb en script die in en cel en vinkje zet als ik hem dubbel aanklikt. Werkt super ooit en keer gehad van iemand van dit forum. Alleen nu wil ik hem uit breiden. Hij werkt nu in Kolom J, maar ik wil graag hetzelfde in kolom L. heb al regels toegevoegd en script gekopieerd en geplakt maar niets werkte of kreeg en foutmelding.

Zou iemand mij de oplossing kunnen geven.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 2 And Target.Row > 2 Then
        frmOpmerking.Show
    End If
    If Not Intersect(Target, [j3:j140]) Is Nothing And Target.Count = 1 Then
        If Target = "" Then
          Target = "P"
        Else
          Target = ""
        End If
    End If
    
End Sub

Ik kan niet het bestand mee sturen, want daar staat teveel privé-informatie in.

Alvast bedankt.

 

[JEC.]

schrijf de intersect zo

Intersect(Target, Range("J3:J140,L3:L140"))

 

[emields]

zo dus.

 

[Dokman]

Dankt u.
Dit werkt precies zoals ik het wou hebben.