macro starten bij bepaalde celwaarde

[Remivanysackerviveshogeschoolkortrijk]

beste,

ik zou graag indien 1 waarde uit de geselecteerde range kleiner of gelijk is aan 5 hebben dat mijn macro gestart wordt. 

DIt heb ik nu, iemand die me kan helpen.

 

Sub notify()
Dim rng As Range
Dim cell As Range

'Set variables
Set rng = Range("$D$3:$D$7;$D$11:$D$25")

'Begin
For Each cell In rng
        If cell.Value < 6 Then Call mymacro

        
        Next cell
End Sub

 

[Remivanysackerviveshogeschoolkortrijk]

mijn range bestaat dus uit verschillende cellen, en indien 1, of meerdere waarden van deze cellen onder de 5 gaat zou mijn macro moeten starten 

[emielDS]

Als je snel een antwoord wil plaats dan een voorbeeldbestand.

[Remivanysackerviveshogeschoolkortrijk]

 

voorbeeld.xlsm

[Remivanysackerviveshogeschoolkortrijk]

en liefst zou ik deze mail ook automatisch laten verzenden, zodat ik ook niet meer op verzenden hoef te drukken, zodat dit automatisch gaat. 

[Remivanysackerviveshogeschoolkortrijk]

Beste

Ik zoek eerder iets die automatisch verzend wanneer een aantal onder de 6 raakt, zodat je zelf niet op een knop hoeft te duwen.

mvg

Rémi

[Remivanysackerviveshogeschoolkortrijk]

Ik zou grag een combinatioe hebben van deze twee codes, enkel wanneer een celwaarde is aangepast controleren en wanneer deze celwaarde werd aangepast naar een getal kleiner dan 6, start mijn macr.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("$D$3:$D$7;$D$11:$D$25")) Is Nothing Then
Call mymacro
End If
End Sub


Sub notify()
Dim rng As Range
Dim cell As Range

Set rng = Range("$D$3:$D$7;$D$11:$D$25")

For Each cell In rng
        If cell.Value < 6 Then Call mymacro

      Next cell
End Sub

 

[emielDS]

die code is makkelijk aan te passen als je dan een e mail wil krijgen iedere keer als er iets onder de 6 komt en niet wacht op een groepering.

 

verander worksheet_Change in worksheet_calculate

[Remivanysackerviveshogeschoolkortrijk]

Ik dacht dat dit zou werken, maar het werkt niet, iemand die me kan helpen ? 

Private Sub Worksheet_calculate(ByVal Target As Range)

If Not Intersect(Target, Range("$D$3:$D$7;$D$11:$D$25")) Is Nothing Then
For Each cell In rng
        If cell.Value < 6 Then Call mymacro

        
        Next cell
Call mymacro

End If
End Sub

 

[Remivanysackerviveshogeschoolkortrijk]

Dit werkt zoals ik het wil, enkel voor 1 cel, en indien ik dit voor meerdere cellen van de kolom doe werkt dit niet, volgens mij omdat hij dan de som van al die cellen neemt en vergelijkt met die waarde 6.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If IsNumeric(Target) And Target.Address = "$D$3" Then
        Select Case Target.Value
        Case 0 To 5: mymacro
        End Select
    End If
End Sub