Add Sheet VBA

[Cmwdekorte]

Goedemorgen,

Graag wil ik het volgende: 'Een 'template sheet' kopiëren en deze hernoemen naar de cel die ik geselecteerd heb.'

Dus de bedoeling is dat ik een cel selecteer, daarna druk ik op de knop zodat de macro zijn ding doet en er dus een nieuwe (template) sheet ontstaat die de naam krijgt van de huidige cel die ik geselecteerd heb.

De code die ik tot nu toe heb is

Sub Add_Cargo()

Dim MyCell As Range, MyRange As Range

Set MyCell = ActiveCell.Value

Sheets("Template").Copy after:=Sheets(Sheets.Count) 'creates a new worksheet
Sheets(Sheets.Count).Name = MyCell.Value ' renames the new worksheet
Sheets(Sheets.Count).Range("B3") = Sheets(Sheets.Count).Name 'Adds Cargo name to Table

End Sub

Maar deze werkt niet, iemand tips?

Met vriendelijke groet,

Christian

 

[ExcelAmateur]

Test het zo eens.

Sub Add_Cargo()

Dim MyCell As Range, MyRange As Range

'Set MyCell = ActiveCell.Value

Sheets("Template").Copy after:=Sheets(Sheets.Count) 'creates a new worksheet
Sheets(Sheets.Count).Name = Range("B3") 'MyCell.Value ' renames the new worksheet
'Sheets(Sheets.Count).Range("B3") = Sheets(Sheets.Count).Name 'Adds Cargo name to Table

End Sub

 

[VenA]

Gewoon de zaken eruit halen die de fout veroorzaken.

Sub Add_Cargo()
 Sheets("Template").Copy after:=Sheets(Sheets.Count) 'creates a new worksheet
 Sheets(Sheets.Count).Name = ActiveCell.Value ' renames the new worksheet
 Sheets(Sheets.Count).Range("B3") = Sheets(Sheets.Count).Name 'Adds Cargo name to Table
End Sub

 

[ExcelAmateur]

@VenA,

Ik had de vraag niet goed gelezen, zie ik nu.

 

[Cmwdekorte]

Test het zo eens.

Dit werkt helaas ook niet.

Gewoon de zaken eruit halen die de fout veroorzaken.

Zo had ik hem eerst, maar dan zegt die dat je niks geselecteerd hebt, ik vermoed dat dit komt doordat je de nieuwe sheet aangemaakt hebt en deze dus actief is.


Ik wil wel graag het bestand delen alleen deze is te groot. Als het helpt kan ik deze mailen.
bij de sheet 'Cargo' moet de cel waarin hallo staat geselecteerd worden en dan op Add Cargo gedrukt worden waardoor de sheet ontstaat.

Mvg,

Christian

 

[ExcelAmateur]

en zo?

[CODE]Sub Add_Cargo()

Dim MyCell As Range, MyRange As Range

Set MyCell = ActiveCell

Sheets("Template").Copy after:=Sheets(Sheets.Count) 'creates a new worksheet
Sheets(Sheets.Count).Name = MyCell.Value ' renames the new worksheet
Sheets(Sheets.Count).Range("B3") = Sheets(Sheets.Count).Name 'Adds Cargo name to Table

End Sub

[/CODE]

 

[Cmwdekorte]

Met deze code maakt hij wel een sheet aan, maar geeft er nog niet de juiste naam aan. nu heet die 'Template (2)'

Dit is al het begin natuurlijk, het probleem is nu nog de naam :S

Mvg,

Christian

 

[ExcelAmateur]

Hij doet het bij mij wel, alleen zet hij de naam ook 2x in het blad.
Ik heb op Blad1 de cel geselecteerd waar de nieuwe bladnaam staat.
Test mijn bestandje even.

 

[Cmwdekorte]

Ik zie het ja, raar dat dat bij mij niet werkt dan?

Ik denk dat het eraan ligt dat ik de naam van de sheet (de geselecteerde cel) op de 'cargo' sheet heb staan en dat er een andere sheet gekopieerd wordt, de template sheet. dat betekend dat de naam dus niet voorkomt op de nieuwe sheet die de naam zou moeten krijgen. De verwijzing moet dus naar een andere sheet zijn en niet naar de nieuw gemaakte sheet.

Met virendelijke groet,

Christian

 

[ExcelAmateur]

Misschien moet je ActiveSheet gebruiken.

 

[HSV]

Sub Add_Cargo()
 If IsError(Evaluate(ActiveCell & "!A1")) Then Sheets.Add.Name = ActiveCell
End Sub

 

[Cmwdekorte]

@ExcelAmateur

Dat werkt helaas ook niet, de verwijzing naar de cel werkt helaas niet zo goed.

@HSV
Wat doet die code precies?

 

[VenA]

Beter is het om zelf een voorbeeldje te maken. Vanuit blad2 wordt er een kopie gemaakt van 'Template' met de naam 'test'.

Sub VenA()
s = ActiveCell.Value
If IsError(Evaluate(s & "!A1")) Then
    Sheets("Template").Copy , Sheets(Sheets.Count)
    With ActiveSheet
        .Name = s
        .[b3] = .Name
    End With
End If
End Sub

 

[HSV]

Er wordt een nieuw blad aangemaakt met de naam van de activecell.value.
Je krijgt geen foutmelding indien het blad al bestaat.

 

[Cmwdekorte]

Bekijk bijlage Cmwdekorte map aanmaken.xlsb

Ik heb het voorbeeldje bijgewerkt, hoop dat je hier wat mee kan.

 

[Cmwdekorte]

Bedankt allemaal

Het is inmiddels gelukt, de winnende code was deze:

Sub Add_Cargo()
s = ActiveCell.Value
If IsError(Evaluate(s & "!A1")) Then
    Sheets("Template").Copy , Sheets(Sheets.Count)
    With ActiveSheet
        .Name = s
        .[b3] = .Name
    End With
End If
End Sub

Prettige feestdagen en vast tot ziens!

Met vriendelijke groet,

Christian