macro starten met MsgBox

[JulesMenso]

Ik wil graag dat met onderstaande MsgBox bij het selecteren van een bepaalde cel. (D1)

[I]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim response As
If Target.Address = Range("D1").Address Then
MsgBox "Wilt u automatisch sets genereren en opslaan?", vbYesNo + vbDefaultButton2
If response = vbNo Then Exit Sub
End If
If response = vbYes Then Call Macro1
End If
End Sub[/I]

met antwoord yes de volgende macro gestart worden

[

I]Sub Macro1()
    Sheets("VOORBLAD").Select
    Dim x As Integer
    Dim y As Integer
    y = InputBox("Hoeveel keer??")
    For x = 0 To y
        With Sheets("VOORBLAD")
  .Range("D1") = .Range("D1") + 1
    End With
    With ActiveWorkbook
    .SaveAs Filename:= _
	"\\Desktop\datasets\" & Range("D1").Value & ("# ") & (Date) & ".xls"
    End With
    Next
End Sub[/I]

en bij antwoord nee de MsgBox gewoon sluiten.

alvast bedankt

 

[Emil S]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim response As variant
If Target.address= Range("D1").address then response=MsgBox( "Wilt u automatisch sets genereren en opslaan?", vbYesNo + vbDefaultButton2)

If response = vbYes Then Macro1

End Sub

zo iets?
uit de losse pols

 

[JulesMenso]

zo iets?
uit de losse pols

Niet zoiets. Precies zo!

Mijn dank is groot

 

[Warme bakkertje]

Iets eenvoudiger

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = Range("D1").Address Then
        If MsgBox("Wilt u automatisch sets genereren en opslaan?", _
            vbYesNo + vbDefaultButton2) = vbNo Then Exit Sub
        Call Macro1
    End If
End Sub

Sub Macro1()
    Dim x As Integer
    For x = 1 To InputBox("Hoeveel keer??")
        With Sheets("VOORBLAD")
            .Range("D1") = .Range("D1") + 1
        End With
        ActiveWorkbook.SaveAs Filename:= _
            "\\Desktop\datasets\" & Range("D1").Value & ("# ") & (Date) & ".xls"
   Next
End Sub