UserForm verschijnt niet

[mariushoog]

Goede morgen allemaal,

Ik zit al een tijdtje te pielen om een UserForm in beeld te krijgen.
Als in cel E13:E27 180 komt te staan moet de UsreForm in beeld springen.
Ik heb de volgende code opgezocht van dit forum. Maar die code werkt niet.
De code staat in de active sheet.

Private Sub Nice_Shot_Activate()

If Range("E13:E27") = 180 Then
Nice_Shot.Show
End If
End Sub

Gr. Marius

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
  If not intersect(target,[E13:E27]) is nothing and target =180 then Userform1.show 
End Sub

 

[Roncancio]

Goede morgen allemaal,

Ik zit al een tijdtje te pielen om een UserForm in beeld te krijgen.
Als in cel E13:E27 180 komt te staan moet de UsreForm in beeld springen.
Ik heb de volgende code opgezocht van dit forum. Maar die code werkt niet.
De code staat in de active sheet.

Private Sub Nice_Shot_Activate()

If Range("E13:E27") = 180 Then
Nice_Shot.Show
End If
End Sub

Gr. Marius

Voeg onderstaande code toe aan het werkblad bij de VISUAL BASIC EDITOR (extra - macro, macro's).

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E13:E27")) Is Nothing Then
    If Target.Value = 180 Then
        Nice_Shot.Show
    End If
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[mariushoog]

Snb, Roncancio,

Erg bedankt voor de snelle reactie.
Ik heb de code overgenomen.
Er is al een UserForm is actie in dezelfde sheet.
Nu krijg ik de melding:
Er is een dubbelzinnige naam gevonden: Worksheet_Change.
Kan ik niet twee UsreForm in een sheet gebruiken?
Of moet de code worden aangepast?
Ik ben een leek op VBA maar dat had je al door.

Marius

 

[Roncancio]

Snb, Roncancio,

Erg bedankt voor de snelle reactie.
Ik heb de code overgenomen.
Er is al een UserForm is actie in dezelfde sheet.
Nu krijg ik de melding:
Er is een dubbelzinnige naam gevonden: Worksheet_Change.
Kan ik niet twee UsreForm in een sheet gebruiken?
Of moet de code worden aangepast?
Ik ben een leek op VBA maar dat had je al door.

Marius

Je kunt 2 userforms in 1 sheet gebruiken.

Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

Gebruik alleen de code tussen bovenstaande regels, dus niet deze regels zelf!

Met vriendelijke groet,


Roncancio

 

[mariushoog]

Roncancio,
Mijn dag is weer goed. Want ik heb weer wat geleerd!

Bedankt Roncancio!