Macro koppelen aan ALS functie

[Julius]

Macro koppelen aan ALS functie

Is het mogelijk om een Macro te laten draaien als b.v ALS waarde is JA dan uitvoeren Makro Ctrl + Schift + P

Wie weet een antwoord

Gr JP

 

[ExcelExpert]

Je zou een eigen ALS functie kunnen schrijven in vb code en die vervolgens in de cellen gebruiken.

 

[Julius]

Ik begrijp het niet

Kun je met een ALS funcite in de sheet ook een macro starten. Zo ja hoe kun je dat dan aangeven.

Of is er ook een Knop te maken met b.v Ja Nee dat wanneer er Ja staat een macro gaat lopen

Macro = Ctrl + Shift + P

Gr JP

 

[LucHeyndrickx]

Julius,

zo bijvoorbeeld:

Zet in een module deze functie

Function YesNo(rng As Range)
If rng.Value = "Ja" Then _
MsgBox "Yes... Gelukt"
End Function


Vervolgens zet je in een cel (niet A1) volgende formule:

=YesNo(A1)

En typ daarna in cel A1 het woordje Ja

Luc

 

[jzeedijk]

Hoi Julius,

Andere mogelijkheid:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then
If Target = "Ja" Then Range("D1") = Range("D1") + 1
End If
End Sub

In de programmacode van het werkblad zetten (Met rechtermuisknop klikken op het tabje van het werkblad; programmacode weergeven kiezen en de code er in zetten)

Deze code telt iedere keer als Ja in B1 gezet wordt 1 op bij de waarde in D1 (Onzinnig voorbeeld, maar ja)

Jeroen

 

[Julius]

Luc en Jeroen

Luc de oplossing van jou krijg ik niet aan de loop
Jeroen de oplossing werkt wel maar ik heb al een macro met Privet- Worksheet en daar door kreeg ik een fout

Ik zelf was met het onderstaande bezig maar krijg nog steeds fouten
Kunnen jullie eens kijken waarom het niet wil ???
Hopelijk zien jullie de fout zitten

Gr JP


''Ja Nee Knop Printen

Private Sub ToggleButton4_Click()
If ToggleButton4 = True Then
If Not Intersect(Target, Range("K4 ONWAAR"))
Is Nothing Then ToggleButton4.Caption = "Nee"
If MsgBox("Wil je de gegevens Printen ???", vbYesNo) = vbYes Then ToggleButton4.Caption = "Ja"
Range("K4").Value = "WAAR" Then Application.Run "MacroP"
Else
ToggleButton4.Caption = "Nee"
End If
End Sub

 

[LucHeyndrickx]

Julius,

Op die manier zal je er echt niet komen. Ik herken in uw macro elementen uit Event-macro's... aangevuld met eigen fantasie.

Private Sub ToggleButton4_Click()

If ToggleButton4 = True Then
If Range("K4").Value = False Then
If msgBox("wil je de gegevens Printen????", vbYesNo)= vbYes Then ToggleButton4.Caption = "Ja"
Range("K4").Value = True
Application.Run "MacroP"
End if
End if
Else ToggleButton4.Caption = "Nee"
End if
End Sub


Vermits ik geen tijd heb... niet getest. Maar ik vermoed dat ie werkt. En ik hoop dat het dat is wat je wil... want dat was ook al niet duidelijk.

Luc

 

[Julius]

Luc

Na veel vijven en zessen had ik zelf de macro gemaakt en doet hij het
Ik ben daar al verschrikkelijk blij mee dat ik die van jou helaas nu niet meer heb geprobeerd
Jou programeertaal is korter dan de mijne maar ik wil het niet meer veranderen nu het eindelijk werkt


Ik hen nog wel een andere vraagje

Op blad 1 heb ik ToggleButton6t/m 10 gemaakt
Op blad 2 heb ik ToggleButton11 t/m 15 gemaakt

Als op blad 1 button 6 is false wil ik graag dat button 11 ook op false komt te staan .

Nu heb ik Hoe kan ik deze controleren ???
Ik kan het schijnbaar niet opgeven van button naar button en moet ik aangeven dat deze op een andere sheet staat.

Zou je eens naar deze macro willen kijken en mij vertellen wat ik fout doe

bv bedankt

''Aanvraag A
Private Sub ToggleButton6_Click()
If ToggleButton6 = True Then
If MsgBox("Wil je de gegevens Aanvraag A", vbYesNo) = vbYes Then
MsgBox "Gegevens Aanvraag A wordt gebruikt"
ToggleButton6.Caption = "Ja Aanvraag A"
ToggleButton7.Caption = "Aanvraag B"
ToggleButton8.Caption = "Aanvraag C"
ToggleButton9.Caption = "Aanvraag D"
ToggleButton10.Caption = "Geen"
''Worksheets("OFFERTE_OPDRACHT").Activate
ToggleButton11.Caption = "Ja Aanvraag A"
ToggleButton12.Caption = "Aanvraag B"
ToggleButton13.Caption = "Aanvraag C"
ToggleButton14.Caption = "Aanvraag D"
ToggleButton15.Caption = "Geen"
Application.Run "MacroA"
ToggleButton6 = True
ToggleButton7 = False
ToggleButton8 = False
ToggleButton9 = False
ToggleButton10 = False
''Sheets("OFFERTE_OPDRACHT").Select
ToggleButton11 = True
ToggleButton12 = False
ToggleButton13 = False
ToggleButton14 = False
ToggleButton15 = False
Range("J2").Value = "Aanvraag A"
Else
ToggleButton6.Caption = "Aanvraag A"
ToggleButton6 = False

End If
End If
End Sub

 

[Julius]

Doormiddel van andere funktie s het probleem opgelost