Werkblad kopieren

[Abel Visscher]

Hallo,

Ik heb het volgende probleem. Ik heb met macro opnemen een macro opgenomen die een wekblad kopieert. Op dit werkblad staan gegevens en een paar knoppen. Die knoppen hebben elk een tekst gekregen met een eigen kleurtje. Als ik het werkblad gewoon kopieer gaat alles goed.Als ik de macro gebruik, gaat het werkblad kopieren goed, maar de knoppen niet. Ze staan er wel alleen heet de knop nu Knop 7 in plaats van bv. afdrukken en is de tekstkleur verdwenen. Is hier wat aan te doen? Het gaat om meerdere knoppen.

Abel Visscher

 

[Wigi]

Wat is de huidige code nu?

 

[Abel Visscher]

Sub MedewerkerMaken1()
'
' MedewerkerMaken1 Macro
'

'
Sheets("Leeg formulier").Select
ActiveSheet.Buttons.Add(468, 59.25, 76.5, 19.5).Select
ActiveSheet.Buttons.Add(468, 78.75, 76.5, 19.5).Select
ActiveSheet.Buttons.Add(468, 98.25, 76.5, 19.5).Select
ActiveSheet.Buttons.Add(468, 156.75, 76.5, 19.5).Select
ActiveSheet.Buttons.Add(468, 176.25, 76.5, 19.5).Select
Sheets("Leeg formulier").Copy After:=Sheets(3)
Sheets("Leeg formulier (2)").Select
Sheets("Leeg formulier (2)").Name = "Medewerker1"
Range("D1").Select
ActiveCell.FormulaR1C1 = "=Medewerkers!R[-1]C[-8]"
Range("K5").Select
ActiveCell.FormulaR1C1 = "=Medewerkers!R[-4]C[-7]"
Range("K6").Select
End Sub

Deze is dus opgenomen

Groeten Abel Visscher

 

[Abel Visscher]

Ik zie nu dat van de knoppen van het originele blad de opmaak ook verdwenen is, als ik de macro gebruik.
En ook de koppeling naar de macro die erbij hoorde.

Abel Visscher

 

[Wigi]

Plaats eens een gezipt voorbeeldbestandje, met enkel dat blad en de knoppen erin.

En code plaats je tussen code tags aub, dat is het # icoontje. Bedankt.

Wigi

 

[Abel Visscher]

Wigi,

Zover bedankt voor je medewerking, het probleem is opgelost.
de code was:

Sub MedewerkerMaken1()
'
' MedewerkerMaken1 Macro
'

'
Sheets("Leeg formulier").Select
ActiveSheet.Buttons.Add(468, 59.25, 76.5, 19.5).Select
ActiveSheet.Buttons.Add(468, 78.75, 76.5, 19.5).Select
ActiveSheet.Buttons.Add(468, 98.25, 76.5, 19.5).Select
ActiveSheet.Buttons.Add(468, 156.75, 76.5, 19.5).Select
ActiveSheet.Buttons.Add(468, 176.25, 76.5, 19.5).Select
Sheets("Leeg formulier").Copy After:=Sheets(3)
Sheets("Leeg formulier (2)").Select
Sheets("Leeg formulier (2)").Name = "Medewerker1"
Range("D1").Select
ActiveCell.FormulaR1C1 = "=Medewerkers!R[-1]C[-8]"
Range("K5").Select
ActiveCell.FormulaR1C1 = "=Medewerkers!R[-4]C[-7]"
Range("K6").Select
End Sub

Maar moet worden:

Sub MedewerkerMaken1()
'
' MedewerkerMaken1 Macro
'

'
Sheets("Leeg formulier").Select
Sheets("Leeg formulier").Copy After:=Sheets(3)
Sheets("Leeg formulier (2)").Select
Sheets("Leeg formulier (2)").Name = "Medewerker1"
Range("D1").Select
ActiveCell.FormulaR1C1 = "=Medewerkers!R[-1]C[-8]"
Range("K5").Select
ActiveCell.FormulaR1C1 = "=Medewerkers!R[-4]C[-7]"
Range("K6").Select
End Sub

Nu werkt alles naar behoren volgens mij. Er werd namelijk een nieuwe knop over de oude gekopieerd. Maar gek genoeg deed hij dat ook bij het origineel.

Dat van die code tags wist ik niet, maar ik zal er de volgende keer op letten.
Nogmaals dank en de groeten

Abel Visscher

 

[Wigi]

Goed zo.

Dit is nog een beetje beter, hopelijk kan je hier wat van leren voor volgende code.

Sub tabbladKopieren()

    Dim oBlad As Worksheet
    
    Sheets("Leeg formulier").Copy After:=Sheets(Sheets.Count)
    
    Set oBlad = Sheets(Sheets.Count)
    
    With oBlad
        .Name = "Medewerker1"
        .Range("D1").Formula = "=R[-1]C[-8]"
        .Range("K5").Formula = "=R[-4]C[-7]"
    End With

End Sub

Wigi