vba commando knop van actie voorzien

[drek123]

Hallo Allemaal,

Ik ben een programma aan het schrijven met excel en vba. Na een tijd zoeken vind ik nog steeds de oplossing niet en hoop dat hier iemand me kan helpen.
ik heb een excel sheet met naam xrdmenu daar staat een button op, bij het aanklikken hiervan gaat er een
ander excel sheet open met filenaam het weeknummer,
bv 44.xls, van uit mijn xrdmenu.xls word op de nieuwe file een button gezet.
Mijn probleem indien men op deze nieuwe button klikt zou
het 44.xls moeten afsluiten bewaard worden met de ingevulde dat, hoe kan ik nu bij deze nieuwe button het commando erbij krijgen om te sluiten en saven, dit commando zou vanaf mijn xrdmenu bij de nieuwe button gezet worden.

Alvast bedankt

Function FileThere(FileName As String) As Boolean
     FileThere = (Dir(FileName) > "")
End Function

Private Sub CommandButton1_Click()
'Dim i As Integer
Fname = Range("c3").Value & ".xls"
fPath = "c:\xrd week nummer program\xrd elsen\"
If FileThere(fPath & Fname) Then
MsgBox "The Workbook exist"
ActiveSheet.Range("D5").Select
Exit Sub

        Else
                               
   MsgBox "The Workbook does not exist"
   Workbooks.Add
    
 'create button
    Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", _
    Link:=False, DisplayAsIcon:=False, Left:=200, Top:=100, Width:=100, Height:=35)
    Obj.Name = "TestButton"
'buttonn text
    ActiveSheet.OLEObjects(1).Object.Caption = "Test Button"
    
  'macro text
    Code = "Sub ButtonTest_Click()" & vbCrLf
    Code = Code & "Call Tester" & vbCrLf
    Code = Code & "End Sub"
    
    If TestButton_Value = True Then
       MsgBox "You have click on the test button"
    End If
    
    
    ActiveSheet.Cells(7, 3).Select
    ActiveSheet.Range("C5").Value = 10
 
    
     
     
    ActiveWorkbook.SaveAs FileName:=fPath & Fname, FileFormat:=xlNormal
End If
  
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub
Sub Tester()
    MsgBox "You have click on the test button"

 

[snb]

Het Nederlands bevat leestekens om de leesbaarheid van teksten te vergroten; je schrijft immers voor lezers, niet voor jezelf.
Leer jezelf aan om per zin slechts 1 bewering te doen.
Gebruik hoofdletters aan het begin van iedere zin.
Hoe gemakkelijker je zinnen te begrijpen zijn, hoe eerder je antwoord van helpers kunt verwachten.