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

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

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

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

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

voorbeeld.xlsm

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

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