kopieren werkblad met naamswijziging en enkel waardes

Status
Niet open voor verdere reacties.
D

Dijk79

Gebruiker
Lid geworden
15 mei 2007
Berichten
15
Hallo,

ik zou graag het actieve werkblad (middels een knop op dit werkblad) willen kopiëren naar het einde van alle tabbladen om vervolgens de naam van het gekopieerde werkblad te veranderen in de datum van vandaag. Uiteindelijk moet dit gekopieerde werkblad enkel de waarden en opmaak (feitelijk geen formules meer) bevatten van het origineel.

iemand een idee?

alvast dank,
jamez
 
bv

Code: 
Sub VenA()
  ActiveSheet.Copy , Sheets(Sheets.Count)
  With ActiveSheet
    .Name = Format(Date, "dd-mm-yyyy")
    .UsedRange = .UsedRange.Value
  End With
End Sub
 
Ik dacht aan zoiets: Knop wordt hier niet mee gekopieerd.

Code: 
Private Sub CommandButton1_Click()
Application.CopyObjectsWithCells = False
ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
With ActiveSheet.UsedRange
        .Value = .Value
    End With
Worksheets(Worksheets.Count).Name = Date
Application.CopyObjectsWithCells = True
End Sub
 
Beste SjonR en VenA,
dank voor jullie reactie. Het werkt fantastisch!:thumb:

groeten Jamez
 
Met een controle of het blad al bestaat.

Code: 
Sub VenA()
If IsError(Evaluate("'" & Format(Date, "dd-mm-yyyy") & "'!A1")) Then
  ActiveSheet.Copy , Sheets(Sheets.Count)
  With ActiveSheet
    .Name = Format(Date, "dd-mm-yyyy")
    .UsedRange = .UsedRange.Value
  End With
End If
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan