FonsBleijendaal
Gebruiker
- Lid geworden
- 21 okt 2008
- Berichten
- 17
Hallo Helpmij!
Ik krijg het niet voor elkaar om een macro van mij automatisch te laten starten op het moment dat een specifieke Cell veranderd in "Bestellen". De bedoeling is dat op het moment dat deze Cell in "Bestellen" veranderd (via en If functie) een Macro start die een mail stuurt naar Inkoop. Het Mail versturen gedeelte werkt, maar hij hoort dat gewoon automatisch te doen, want anders heeft het geen zin.
Eigenlijk is de functie die ik voor ogen heb erg simpel: "Als de Cell veranderd in "Bestellen" Dan Start Makro. En dat dus zonder dat je op knopjes moet drukken of er aan moet nadenken.
Zoals ik op internet gevonden heb;
A frequent question people have is "Can I run a macro from a cell function? Something like
=IF(A1>10,Macro1)." The answer is no, you cannot. However, you can use the worksheet's Change event to do something like this.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Target.Value > 10 Then
MsgBox "Put Your Code Here"
End If
End If
End Sub
Probleem is dat ik de Worksheet_Change niet aan de praat krijg zelfs niet als ik hem verander in:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Target.Value = "Bestelling" Then
Run "CDO_Send_Selection_Or_Range_Body"
End If
End If
End Sub
Ook heb ik de volgende code geprobeerd:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Target <> "Bestellen" Then Exit Sub
Run "CDO_Send_Selection_Or_Range_Body"
End Sub
Maar er zijn dus problemen. Ten eerste kan ik de Macro al helemaal niet manueel starten (hij komt niet in de lijst?) En ten tweede weet ik niet hoe mijn andere Macro precies heet waardoor daar ook nog een probleem mee heb.
De "CDO_Send_Selection_Or_Range_Body" kan wel manueel gestart worden in de Makro lijst maar heet als 'module' gmail.
Oftewel; hoe start ik een andere macro automatisch?
Met vriendelijke groeten
Ik krijg het niet voor elkaar om een macro van mij automatisch te laten starten op het moment dat een specifieke Cell veranderd in "Bestellen". De bedoeling is dat op het moment dat deze Cell in "Bestellen" veranderd (via en If functie) een Macro start die een mail stuurt naar Inkoop. Het Mail versturen gedeelte werkt, maar hij hoort dat gewoon automatisch te doen, want anders heeft het geen zin.
Eigenlijk is de functie die ik voor ogen heb erg simpel: "Als de Cell veranderd in "Bestellen" Dan Start Makro. En dat dus zonder dat je op knopjes moet drukken of er aan moet nadenken.
Zoals ik op internet gevonden heb;
A frequent question people have is "Can I run a macro from a cell function? Something like
=IF(A1>10,Macro1)." The answer is no, you cannot. However, you can use the worksheet's Change event to do something like this.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Target.Value > 10 Then
MsgBox "Put Your Code Here"
End If
End If
End Sub
Probleem is dat ik de Worksheet_Change niet aan de praat krijg zelfs niet als ik hem verander in:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
If Target.Value = "Bestelling" Then
Run "CDO_Send_Selection_Or_Range_Body"
End If
End If
End Sub
Ook heb ik de volgende code geprobeerd:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
If Target <> "Bestellen" Then Exit Sub
Run "CDO_Send_Selection_Or_Range_Body"
End Sub
Maar er zijn dus problemen. Ten eerste kan ik de Macro al helemaal niet manueel starten (hij komt niet in de lijst?) En ten tweede weet ik niet hoe mijn andere Macro precies heet waardoor daar ook nog een probleem mee heb.
De "CDO_Send_Selection_Or_Range_Body" kan wel manueel gestart worden in de Makro lijst maar heet als 'module' gmail.
Oftewel; hoe start ik een andere macro automatisch?
Met vriendelijke groeten
)
7)
