Beste mensen,
Onderstaande code werkt bij mij naar volle tevredenheid.
Wat ik mij afvraag is of ik de Range kan wijzigen in bepaalde cellen.
De code zou eigenlijk alleen maar moeten werken in cel B8, B13, B18, B23, B28, B33....t/m B253.
Zoals je ziet is de tussenruimte steeds 4 cellen. Daar staat bij mij nl. wat anders in en die mogen niet gewijzigd worden.
Onderstaande code werkt bij mij naar volle tevredenheid.
Wat ik mij afvraag is of ik de Range kan wijzigen in bepaalde cellen.
De code zou eigenlijk alleen maar moeten werken in cel B8, B13, B18, B23, B28, B33....t/m B253.
Zoals je ziet is de tussenruimte steeds 4 cellen. Daar staat bij mij nl. wat anders in en die mogen niet gewijzigd worden.
Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rMyRg As Range
Set rMyRg = Range("B8:B257")
Set rMyRg = Application.Intersect(rMyRg, Target)
If Not rMyRg Is Nothing Then
If UserForm1.Visible = False Then
UserForm1.Show
End If
End If
Set rMyRg = Nothing
End Sub