commandbutton na copy een andere private sub starten

[buckeru]

Beste,

Via een knop met daar aan een code wordt er een kopie gemaakt van een blad.
op het kopie bestand staat nu die knop ook, maar nu wil ik de "oude"code laten veranderen in een nieuwe.
Kan dat?

hoop dat het duidelijk is.

 

[edmoor]

Je hebt het over een blad en over een bestand. Dat zijn twee totaal verschillende dingen.
Plaats een voorbeeld document met uitleg.

 

[buckeru]

zie code

Private Sub Save_knop_Click()


  If Range("A100").Value = "" Then
    MsgBox "Maak keuze welke CEL !"
    ActiveSheet.Range("G5").Select
    Else
    
   If Range("AI4").Value = "" Then
    MsgBox "Voer Naam in !"
    ActiveSheet.Range("AI4").Select
    Else
    
    Set invoer_wbf = ActiveWorkbook
    Dim backup As String
            backup = "G:\SNB_Productie_3\Ingevoerde_WBF\"
            
    ActiveSheet.Copy
      ActiveSheet.Select
     
    ActiveSheet.Unprotect Password:="pop"
    
       Sheets("WBF_invoer").Range("J4").Value = Range("J4")
       Sheets("WBF_invoer").Range("S4").Value = Range("S4")
       
            ActiveSheet.Shapes("Save_knop").Delete    [COLOR="#FF0000"][/COLOR][B]'deze knop start nu deze macro en moet veranderd worden in een andere macro.[/B]
            
    ActiveSheet.Protect Password:="pop"
    
            
    Sheets("WBF_invoer").Range("print").PrintPreview  'out
             
    ActiveWorkbook.SaveAs Filename:=(backup) _
    & Range("A100").Value & ("_") & Range("AB7").Value & ("_") & Format(Date, "dd-mm-yyyy") & "_" & Format(Time, "hhmm") _
    , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
    
    ActiveWorkbook.Close
    
    invoer_wbf.Sheets("WBF_invoer").Select
       
    ' ActiveWorkbook.Close SaveChanges:=False
   
End If
End If
            
End Sub

 

[edmoor]

Waarom niet gewoon een voorbeeld document plaatsen?

 

[buckeru]

zie bijlage

 

[edmoor]

En wat moet de knop in het nieuwe document dan gaan doen?

 

[buckeru]

Als men die knop start/indrukt moet er een andere macro gaan lopen.
Maar die heb ik nog niet klaar.

 

[edmoor]

Dat snap ik. Maar ik zat te denken aan het opschrift van de knop. Die kan je wijzigen bij het maken van een kopie en dan een Sub starten afhankelijk van welk opschrift de knop heeft.

 

[buckeru]

ach zo.


opschrift "verwerk"

 

[edmoor]

Dat zou dan zoiets worden:

Private Sub Save_knop_Click()
    If ActiveSheet.Save_knop.Caption = "Verwerk" Then
        [COLOR="#008000"]'voer de nieuwe code uit[/COLOR]
    Else
        ActiveSheet.Save_knop.Caption = "Verwerk"
        [COLOR="#008000"]'voer de oude code uit[/COLOR]
    End If
End Sub

 

[buckeru]

ok thanks, ik ga er eens mee stoeien.
en hopen dat het gaat lukken.