sheet kopieren en naam celwaarde meegeven

Status
Niet open voor verdere reacties.

MarkF

Gebruiker
Lid geworden
30 okt 2008
Berichten
49
In een workbook heb ik een weeknummer (welke met de tijd automatisch mee veranderd) nu wil ik deze celwaarde (weeknummer) koppelen aan een sheetnaam.

Ik heb een button gemaakt waaraan ik de macro koppel, deze moet het "orgineel" dan kopieren naar een nieuwe sheet. Deze nieuwe sheet moet dan de naam mee krijgen van de celwaarde (weeknummer) Maar als deze al bestaat moet er een msgbox verschijnen waarin wordt verteld dat deze al bestaat.

wie kan mij helpen. In de bijlage mijn bestand.
 

Bijlagen

Code:
Sub nieuwe_week()
    
    On Error Resume Next
    i = Len(Sheets([origineel!C4]).Name) = 0
    
    If Err.Number <> 0 Then
        Sheets("origineel").Copy after:=Sheets(3)
        Sheets(4).Name = [origineel!C4]
    End If

End Sub

Wigi
 
Laatst bewerkt:
Hallo WIGI

bedankt voor je meedenken.
alleen ben ik er nog niet, ik wil graag dat er een melding verschijnt in het venster als de waarde in cel C4 al vookomt. dmv een msgbox en dat vervolgens de macro stopt.
want je kan maar één sheet per week kopieren.




Sub nieuwe_week()

Sheets("orgineel").Select
Sheets("orgineel").Copy after:=Sheets(3)

On Error Resume Next
i = Len(Sheets([origineel!C4]).Name) = 0

Sheets("orgineel (2)").Name = Range("C4")

If Err.Number <> 0 Then

Worksheets("origineel").Copy after:=Sheets(3)
Sheets(4).Name = [origineel!C4]
End If

Range("C4").Copy
Range("C4").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Sheets("orgineel").Select
End Sub
 
Laatst bewerkt:
opgelost

zie "formule kopieren, alleen waarde behouden" van mij voor de oplossing
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan