Macro Probleem

[Julius]

Wie kan mij Helpen

Had 1 Macro
Eerst oude waarde onthouden B58
Daarna aflopen
Dat gaat goed

Nu volgende macro
Dus ik copyeer de oude en vul diverse gegevens is
Maar hij wil niet lopen

Hoe kan ik een 2e waarde B70 in de string houden
Echter ik wil de 2e makro er aan vastkoppelen
Als waarde B70 enz.enz

Hieronder de formule zoals ik hem nu heb

Dim strOldValue As String

Private Sub Worksheet_Activate()
strOldValue = Range("B58").Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("B58")) Is Nothing Then
If MsgBox("Wil je de gegevens vervangen ???", vbYesNo) = vbYes Then
strOldValue = Range("B58").Value
If Range("B58").Value = "Geen" Then Application.Run "MacroS"
If Range("B58").Value = "Aanvraag A" Then Application.Run "MacroA"
If Range("B58").Value = "Aanvraag B" Then Application.Run "MacroB"
If Range("B58").Value = "Aanvraag C" Then Application.Run "MacroC"
If Range("B58").Value = "Aanvraag D" Then Application.Run "MacroD"
Else
Range("B58").Value = strOldValue
End If
End If
Application.EnableEvents = True
End Sub



Dim strOldValue As String
strOldValue = Range("B70").Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Not Intersect(Target, Range("B70")) Is Nothing Then
If MsgBox("Wil je Printen ???", vbYesNo) = vbYes Then
strOldValue = Range("B70").Value
If Range("B70").Value = "Geen" Then Application.Run "MacroQ"
If Range("B70").Value = "Offerte Opdracht" Then Application.Run "MacroP"
If Range("B70").Value = "Extra Offerte-Opdracht" Then Application.Run "MacroE"
If Range("B70").Value = "Kale Offerte" Then Application.Run "MacroK"
If Range("B70").Value = "Extra Kale Offerte" Then Application.Run "MacroW"
Else
Range("B70").Value = strOldValue
End If
End If
Application.EnableEvents = True
End Sub


Wie ziet het probleem ????
Alvast bedankt

 

[LucHeyndrickx]

Julius,

Niet getest, maar als je een tweede variabele wil vasthouden, zal je ook een tweede variabele moeten benoemen helemaal bovenaar je sub's.

Op het eerste zicht zal je trouwens een foutmelding krijgen bij heel deze code. Je hebt ergens een 'End Sub' zonder een sub

Luc

 

[[FJ]Hydra]

Evenals Luc snap ook ik niet dat je geen fouten krijgt... Je sluit 7 * een "If" af met 2 * "End If".....

(ow ja... Luc... ik ben Jay.... )

 

[LucHeyndrickx]

Hoi Jay,

Ik had het kunnen weten
Uw gemeente was me opgevallen (Dacht eerst dat dit een gemeente was die je zelf verzonnen had). Heb hem eens in de atlas opgezocht, en blijkt toch wel te bestaan zeker.
Niet ver van de Wadden dus

Luc

 

[LucHeyndrickx]

Ow... en nog dit Jay... je hebt het fout. Niet elke If moet afgesloten worden met een End If

If ... voorwaarde... Then
' Verdere Code
End If

Hier begin je met een If, en vermits je na die Then op een volgende regel verdergaat, moet je dit afsluiten met een End If

If .. Voorwrde... Then 'Verdere code

Dit staat op één regel. Er moet dus geen End If komen.

Luc

 

[[FJ]Hydra]

.......

Weer eens niet goed opgelet... Had niet gezien dat er nog een code naar "Then" stond. Wil weer eens snel... Sorry...

 

[Julius]

Hoi

Na veel knobbelen ben ik er uitgekomen en werkt hij wel goed
Zoals al eerder door Luc opgemerkt had ik geen SUB aangemaakt enz

Maar voorals nog Bedankt voor de reacties

Sex bierum is toch Friesland ????
Dan zijn wij niet ver van elkaar verwijderd

Gr Julius

 

[[FJ]Hydra]

Zoals Luc al opmerkte... ligt inderdaad aan de Waddenzee.... Mooi plekkie.... lekker rustig. Dus ook jij komt uit FRL?

 

[Julius]

Helaas Ut Drente
Net onder Groningen


Moi

 

[Julius]

Nog even een vraag
Als je niets te doen mocht hebbe

Ik heb nog een extra vraag staan onder
"Knopje aan uit""

Het eerst is opgelost maar ben nu bezig met een teksvak
(Werkset besturings elementen Textbox)
kom er niet uit


Als er tekst of Cijvers ingevoerd worden daarna doorgaan naar volgens geselecteerd veld
Als er Op enter of Tab gedrukt word


Als je wat weet Graag

Gr JP

 

[[FJ]Hydra]

Ik helaas niet, aangezien jouw input variabel is... Zou je niet over kunnen stappen op UserForms?

 

[Julius]

Hoe bedoel je
Ik snap er niks van ??
Help mij even op weg dan kan ik weeer uren vooruit om het verder uit te zoeken
Als je een voorbeeld hebt graag


JP

 

[LucHeyndrickx]

Tja... via die nieuwsgroepen en forums word de wereld wel zéér klein

Ik kom vaak mensen tegen, die of vlak in m'n buurt wonen, of helemaal aan de andere kant van ons taalgebied. Was vroeger gewoon ondenkbaar.

Zoals Jay al opmerkte zou je misschien beter overstappen naar UserForms.

Helaas heb ik geen oplossing voor uw probleem. Maar de laatste tijd vermijd ik het gewoon om besturingselementen te gebruiken uit de werkbalk 'Formulieren', of de werkbalk 'Werkset besturingselementen'.
Dit omdat de alternatieven volgens mij véél beter zijn.

Voor knopjes en zo, maak ik gewoon extra werkbalken aan. (Of ik voeg ze toe aan de menu's).
Drop-down lijstjes maak ik via het valideren van cellen (veel stabieler, handiger, en neemt nog minder geheugen in ook) Ook keuzelijsten kan je in werkbalken plaatsen.

En voor meer uitgebreide macro's maak ik gebruik van UserForms, waarin je die besturingselementen wel kan gebruiken. Hier geven ze trouwens minder problemen.

Luc

 

[[FJ]Hydra]

Ik kan je wel een voorbeeld sturen, maar ik weet niet wat je van plan bent te maken..... Mijn private-adres: rkl@oordijk.nl... Wellicht heb je iets meer info over jouw bestand of wat je van plan bent.

 

[Julius]

Luc en Jay

Misschien hebben jullie wel gelijk om User form te gebruiken aleen moet je wel weten wat het inhoud
Ik heb Jay een mail gestuurd Ik hoop dat hij er uitkomt en mij kan helpn aan voorbeelden

Gr JP

 

[[FJ]Hydra]

Ben al even bezig, maar ik krijg de ene na de andere programmeerfout.... Ik zal mijn best doen.... (als ik er tijd voor heb) Het vervelende is dat het bestand zo veel info en formules bevat dat het voor een leek amper te doorgronden is.....

 

[Julius]

Ray

Heb je ook al een mail gestuurd
Alvast bedankt

Gr JP