Excel knop aanmaken die een bestaand tabbald kopiert en opent

[wesley5479]

Goedendag Excel kenners,

Ik ben bezig in Excel om een programma te maken. Ik ben aardig op weg. Echter wil ik nu het volgende:
Ik wil een knop toevoegen en als je op die knop klikt een bestaand tabblad (verborgen) kopieert en vervolgens als nieuw tabblad toevoegt met de bestaande data erin.
Ik heb een tabblad gemaakt waar ik NAW gegevens kan invullen van klanten. als ik een nieuwe klant wil aanmaken, wil ik dus dat dit betreffende tabblad wordt gekopieerd en wordt geopend als nieuw tabblad, waar ik vervolgens de gegevens kan invullen van de nieuwe klant. wanneer ik op de knop klik wil ik op het nieuwe tabblad terecht komen en hij mag vervolgens het tabblad ook 'achteraan' neerzetten.

Naam van de knop: nieuw contact
Te kopiëren tabblad: contact details
nieuw te noemen tabblad: Klant (het liefst de naam van de nieuwe klant, maar weet niet of dat mogelijk is, de cel in het bestaande tabblad waar de naam staat is cel B2)

Hopelijk kan iemand mij helpen,
Groetjes Wesley

 

[OctaFish]

En wat heb je zelf al geprobeerd? Een macro om een werkblad te kopiëren kun je makkelijk eerst zelf opnemen met de macro recorder. Daar een knop voor maken is ook een standaard handeling, en aan die knop een macro hangen ook. Dus wat heb je zelf al gedaan?

 

[wesley5479]

Ik had zelf al het één en ander van internet geprobeerd, maar lukt me niet

Private Sub CommandButton1_Click()

Dim sheet_name_to_create As String
Dim sh As Worksheet, nsh As Worksheet ' nsh = contact details
Dim nrng As Range
Dim cont As Worksheet
Dim oRng As Range

nieuw = ActiveCell.Value
Set oRng = ActiveCell
Set sh = Sheets("contact details")
Exit Sub

End If

Next

Sheets("contact details").Visible = True
Sheets("contact details").Copy after:=Sheets(Sheets.Count)

ActiveWindow.ActiveSheet.Name = contact details
Sheets("contact details").Visible = False
End Sub

 

[wesley5479]

ik heb nu de volgende code, maar hij geeft nog een foutmelding bij het volgende:

Private Sub CommandButton1_Click()
'
' Macro5 Macro
'

'
Sheets("CONTACT DETAILS").Select
Cells.Select
Range("M17").Activate
Selection.Copy
Sheets.Add After:=ActiveSheet
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
ActiveWindow.ScrollWorkbookTabs Sheets:=1
Range("A1").Select
ActiveSheet.Paste
Range("K12").Select
ActiveWindow.DisplayGridlines = False
Range("L10").Select
End Sub

de foutmelding komt naar boven bij Cell.select

 

[edmoor]

Plaats eens een voorbeeld document met dat te kopiëren werkblad.

 

[AD1957]

Als het alleen om NAW gegevens gaat kun je deze beter op 1 tabblad zetten.
Gebruik dan een Userform voor het toevoegen/verwijderen/aanpassen gegevens van klant.
Zoek in dit forum eens op "Klantenbestand"

 

[wesley5479]

bijgevoegd een voorbeeld

 

[edmoor]

Klik in het blad Dashboard op de knop NIEUW CONTACT:

 

[wesley5479]

Edmoor thanks!!!

Het werkt! en geweldig dat ik de naam van het tabblad zo mooi kan invullen! echt SUPER bedankt!

 

[emields]

En de volgende vraag zal zijn: Hoe krijg ik al die gegevens op 1 blad?