SJABLOON verbergen - nieuw blad COMMANDO’S enz.

[hazesoft]

Geachte Excelleurs,

Ik heb voor mijn zoon een calculatiesheet gemaakt, waarbij ik veel hulp heb gehad van jullie, m.n. trucker10 (Daniël).
Nu wil ik hier nog enkele aanvullingen/wijzigingen in hebben.
- de knop "Maak leeg" maakt alleen het sjabloon leeg. In het blad sjabloon vul je nl. nooit wat in;
- kan bij een nieuw werkblad maken, het nieuwe werkblad automatisch vooraan komen, dus als eerste, en elk volgend nieuw werkblad daar achter? Zodat de laatste vier zijn: TOTALEN, SJABLOON, VALIDATIELIJST, SCHEIDEN?
- Is het misschien een idee om het blad SJABLOON te verbergen en een nieuw blad COMMANDO'S aan te maken met de knoppen: NIEUW WERKBLAD – OPSLAAN - BLADEN VERWIJDEREN?
- de gehele werkmap wordt opgeslagen (het origineel wordt read only) onder een unieke naam en daarna moeten de nieuw aangemaakte sheets, na een JA/NEE, worden verwijderd.

Dit is misschien allemaal wel erg veel gevraagd, maar het is voor mijn zoon weet je?
http://www.zeelenbergmetaal.nl/

 

[reneemettrie]

Ik hen dit topic niet eerder gevolgd en weet niet of er één of ander met VBA gebeurt.
Hier alvast een oplossing om er met VBA voor te zorgen dat een nieuw blad automatisch vooraan komt:

1. Open het bestand en typ Alt-F11: je komt in de VBA editor
2. Dubbel-klik links in het Projectvenster op ThisWorkbook
3. Rechts in Object keuzelijst Workbook kiezen
4. Rechts in Procedure keuzelijst NewSheet
   
5. Vul aan als volgt:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
Dim blad As Worksheet
Set blad = Sh
blad.Move before:=Sheets(1)
End Sub

 

[hazesoft]

Ikke terug ( tja trucker10 ) waar zitten de andere(n)
Hans bij deze mijn bijdrage

Ze zijn geschrokken van mijn vragen !
Bedankt Daniël, maar waar dan ?

 

[trucker10]

Ze zijn geschrokken van mijn vragen !
Bedankt Daniël, maar waar dan ?

Ik krijg het bestandje niet klein 107 kb

 

[hazesoft]

Ik krijg het bestandje niet klein 107 kb

Kun je het mailen naar mij?

 

[trucker10]

Kun je het mailen naar

Ik heb het moeten afbouwen qua opmaak , maar alles is nog aanwezig voor inspiratie , we doen het via het forum ( let op met mail adres online zetten ! > spam )

 

[hazesoft]

Ik heb het moeten afbouwen qua opmaak , maar alles is nog aanwezig voor inspiratie , we doen het via het forum ( let op met mail adres online zetten ! > spam )

Jammer dat je het hebt moeten afbouwen, het is even wennen, maar het ziet er gelikt uit :thumb:.
Als *.zip-bestand mag je het gerust mailen: ik heb een spam-filter.
Ik zal mijn mail-adres verwijderen.

 

[trucker10]

Jammer dat je het hebt moeten afbouwen, het is even wennen, maar het ziet er gelikt uit :thumb:.
Als *.zip-bestand mag je het gerust mailen: ik heb een spam-filter.
Ik zal mijn mail-adres verwijderen.

De oude versie heb ik overschreven , ik heb ook bemerkt dat ik de getsaveas gewisseld heb met de "Application.GetOpenFilename"
Ik bekijk de andere reactie deze avond , ff ertussen uit :thumb:

 

[hazesoft]

De oude versie heb ik overschreven , ik heb ook bemerkt dat ik de getsaveas gewisseld heb met de "Application.GetOpenFilename"
Ik bekijk de andere reactie deze avond , ff ertussen uit :thumb:

Helemaal OK, anders zie je ook door de bomen.................

 

[reneemettrie]

Nog wat ideeën

Option Explicit

Sub NieuwBlad()
Dim blad As Worksheet
Set blad = Worksheets.Add()
blad.Move before:=Sheets("Totalen")
End Sub

Sub VerwijderSjabloon()
Dim blad As Worksheet
Set blad = Worksheets("Sjabloon")
Application.DisplayAlerts = False
On Error Resume Next 'ingeval sjabloon reeds verwijderd is
blad.Cells.Clear
'of gewoon
blad.Delete

End Sub

Sub VerwijderBladen()
Dim i As Byte, antwoord As VbMsgBoxResult, blad As Worksheet, AantalBladen As Byte
AantalBladen = Sheets.Count
antwoord = MsgBox("Mogen de nieuw aangemaakte bladen verwijderd worden?", vbYesNo + vbQuestion)
Application.DisplayAlerts = False
If antwoord = vbYes Then
For i = 1 To AantalBladen
Set blad = Sheets(1)
If blad.Name = "Totalen" Then Exit For
blad.Delete
Next i
End If
End Sub

 

[trucker10]

@ reneemettrie , ik ben al blij dat het terug geen " cavalier seul " topic is . Je hebt de vorige topic's gemist de naam van het tabblad moet deze van cel A1 zijn . Het sjabloon laten verdwijnen ( verwijderen ) ? , ook de nieuw opgemaakte tabbladen > ja indien er nog een bruikare " sjabloon" sheet is .
Bij deze mijn opmaak en ik ben ver aan het einde van mijn Latijn , de bomen staat te dicht op elkaar om het bos nog te zien
Sorry voor de XLSM upload , ik kreeg het bestandje niet in het 100 kb formaat .

 

[snb]

@Reneemettrie

gebruik svp de code tags (#) voor VBA-code

En

sub nieuwblasd()
  Sheets.Add "Totalen"
End Sub

doet hetzelfde als jouw suggestie

Sub NieuwBlad()
  Dim blad As Worksheet
  Set blad = Worksheets.Add()
  blad.Move before:=Sheets("Totalen")
End Sub

 

[Wigi]

sub nieuwblasd()
  Sheets.Add "Totalen"
End Sub[/QUOTE]

Er moet nog Sheets bij:

[CODE]Sub nieuwblasd()
  Sheets.Add [B]Sheets([/B]"Totalen"[B])[/B]
End Sub

 

[reneemettrie]

Er moet nog Sheets bij:

Sub nieuwblasd()
  Sheets.Add [B]Sheets([/B]"Totalen"[B])[/B]
End Sub

Mijn verplaatsingsactie was er natuurlijk te veel aan, ik zat nog in mijn hoofd met de NewSheet Event.

Als het blad ook meteen een naam moet krijgen zou ik het als volgt schrijven:

Sub BladToevoegen()
Dim OudBlad As Worksheet, NieuwBlad As Worksheet
Set OudBlad = Sheets("Totalen")
Set NieuwBlad = Worksheets.Add(before:=OudBlad)
NieuwBlad.Name = OudBlad.Cells(1).Value
End Sub

 

[hazesoft]

Dag Daniël,

Ik zag een hele tijd door de bomen het bos niet meer.
Het bestand dat ik nu opstuur voldoet prima.
Ik zou dit alleen graag als volgt afgemaakt willen zien:

- De knop "Maak leeg" van het sjabloon mag weg. Ik heb de cellen van het sjabloon geblokkeerd, er kan alleen iets ingevuld worden in de nieuwe bladen.
- Kun je knop "Maak nieuw blad" qua layout net zo maken als die Scheiden en Wissen?
- Kan bij een nieuw blad het laatst gemaakt vooraan komen? Dus aan het eind de bladen: Totalen - Sjabloon - Validatielijst - Scheiden?
- Kan je automatisch naar het nieuwe blad gaan wanneer dit aangemaakt is?

Misschien is het allemaal wel wat veel, maar misschien eenvoudiger dan de vorige ideeën

Wanneer dit allemaal zou kunnen, heb ik een perfecte calculatiesheet voor mijn zoon.

 

[trucker10]

Dag Daniël,

Ik zag een hele tijd door de bomen het bos niet meer.
Het bestand dat ik nu opstuur voldoet prima.
Ik zou dit alleen graag als volgt afgemaakt willen zien:

- De knop "Maak leeg" van het sjabloon mag weg. Ik heb de cellen van het sjabloon geblokkeerd, er kan alleen iets ingevuld worden in de nieuwe bladen.
- Kun je knop "Maak nieuw blad" qua layout net zo maken als die Scheiden en Wissen?
- Kan bij een nieuw blad het laatst gemaakt vooraan komen? Dus aan het eind de bladen: Totalen - Sjabloon - Validatielijst - Scheiden?
- Kan je automatisch naar het nieuwe blad gaan wanneer dit aangemaakt is?

Misschien is het allemaal wel wat veel, maar misschien eenvoudiger dan de vorige ideeën

Wanneer dit allemaal zou kunnen, heb ik een perfecte calculatiesheet voor mijn zoon.

Ik bekijk het deze avond ( ? laat ) via de home cpu , ik heb wel al bemerkt dat je op het tabblad sjabloon de validatie lijst niet kan aanklikken , bepaalde zaken zal je toch moeten openzetten voor verder invullen , de knop wissen weghalen kan via de knop ontwerpmodus > rechtermuisklik en verwijder ook de macro erachter weg .Als er geen reactie van andere forum leden komt voor 21 a 22 uur begin ik eraan

 

[hazesoft]

Ik bekijk het deze avond ( ? laat ) via de home cpu , ik heb wel al bemerkt dat je op het tabblad sjabloon de validatie lijst niet kan aanklikken , bepaalde zaken zal je toch moeten openzetten voor verder invullen , de knop wissen weghalen kan via de knop ontwerpmodus > rechtermuisklik en verwijder ook de macro erachter weg .Als er geen reactie van andere forum leden komt voor 21 a 22 uur begin ik eraan

In cel A1 kun je wel de validatielijst aanklikken en is m.i. voldoende . In de aangemaakte bladen zijn de validatielijsten aanklikbaar.
Heb de knop wissen weggehaald (met de Del-toets). De macro Private Sub CommandButton2_Click() bleef staan, die heb ik met de hand verwijderd.

Bij de nieuw-aangemaakte bladen mag de Validatie voor A1 weg.