webquery die macro activeert

[hans1974]

hallo,
Ik heb in een sheet een webquery staan, telkens deze refreshed zou een event moeten geactiveerd worden.
Als er niets verandert in cel D7 moet er niets gebeuren maar als cel D7 wel verandert (vb andere naam) dan moet een macro geactiveerd worden.
Hieronder is mijn macro. is deze OK?
Bedankt

Private Sub Worksheet_calculate(ByVal target As Range)

 Dim rBereik2 As Range
 Set rBereik2 = Range("D7")
 
If Intersect(target, rBereik2) Is Nothing Then Exit Sub

  Sheets("grid data").Range("L21").Interior.ColorIndex = 3
  Sheets("outages sheet").Range("A1") = 1
Application.Speech.Speak (" new alarm ! ")


End Sub

 

[Elsendoorn2134]

Hans,

Een paar opmerkingen;

Worksheet_calculate wordt uitgevoerd nadat er een herberekening plaats gevonden heeft.
Ik denk dat je beter voor Worksheet_change kunt kiezen.
Verder heb je rBereik2 niet nodig als je intersect(target, Range("D7")) gebruikt.
Hou er ook rekening mee dat als je meerdere tabbladen in het bestand hebt staan Range("D7") meerdere keren voorkomt!
Gebruik liever Sheets("NaamSheet").Range("D7").

Veel Succes.

 

[hans1974]

als ik hem test volgens uw suggesties, werkt de macro ook als er niets verandert is in cel D7,

Is er mss een andere mogelijkheid?

 

[Warme bakkertje]

@ Elsendoorn
Aangezien een event-macro sheetgebonden is zal dit hier niet zoveel rol spelen.
Je hebt echter gelijk dat het een goede gewoonte is om steeds de bladnaam te gebruiken om verrassingen en foute resultaten te vermijden.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$7" Then
        Sheets("grid data").Range("L21").Interior.ColorIndex = 3
        Sheets("outages sheet").Range("A1") = 1
        Application.Speech.Speak (" new alarm ! ")
    End If
End Sub

 

[hans1974]

Bedankt voor de hulp Rudi!

Kan ik op onderstaande manier (verder gaand op uw macro) 2 cellen controleren. Dat als 1 van beide of de beide veranderen de macro geactiveerd word.

If Target.Address = "$D$7" Or Target.Address = "$D$6" Then

 

[Warme bakkertje]

De wereld is aan de durvers, dus ik zou zeggen probeer het eens uit en bekijk het resultaat.
Ik denk niet dat er rook uit je PC gaat komen als je dit test.

 

[hans1974]

lol:thumb: