Makro loop niet ????

[Julius]

Allo

Ik dacht de vorige keer dat ik het opgelost had maar dat bleek niet zo te zijn

Had de onderstaande Makro gekregen en deze werkte prima
Ik wil een een funnktie bijmaken en heb een gedeelte van deze makro gebruikt
Alleen blijft hij het maar niet doen

Wie kan mij helpem

GOEDE MAKRO ZONDER TOEVOEGING:

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



MAKRO ZOALS IK HEM GEMAAKT HAD MAAR NIET WIL WERKEN !!!!!!!!!!!

''Dim strOLDvalue As String
''Dim oudePRNwrd As String


''Private Sub Worksheet_Activate()
''strOLDvalue = Range("B58").Value
''oudePRNwrd = Range("B70").Value
''End Sub

''Sub strOLDvalue()
''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

''Sub PrintWRD()

''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 de gegevens vervangen ???", vbYesNo) = vbYes Then
''oudePRNwrd = 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 = oudePRNwrd
''End If
''End If
''Application.EnableEvents = True
''End Sub

WIE WEET RAAD

GR JP

 

[Julius]

Doormiddel van andere funktie s het probleem opgelost