• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Opgelost automatisch tabbladen aanmaken en vullen adhv tabel blad 1

Dit topic is als opgelost gemarkeerd
Status
Niet open voor verdere reacties.

emmiehoek

Nieuwe gebruiker
Lid geworden
9 jan 2024
Berichten
2
Goedemiddag,

Ik heb al aardig wat topics doorgespit, en ben met adviezen bij andere onderwerpen al een eindje op gang gekomen, maar ik loop vast in dit document.

Het is een excel-bestand waarin meerdere docenten moeten samenwerken bij het nakijken van profielwerkstukken. Op het eerste tabblad een overzicht van de deelnemende leerlingen, op het tweede tabblad het format van de beoordelingsrubric.

Wanneer ik een nieuwe leerling toevoeg op het tabblad 'inschrijvingen', wordt een nieuw tabblad aangemaakt met de naam van de leerling, met als layout die van het tabblad 'voorbeeldrubric'. Ook wordt de naam van de leerling in de juiste cel geplaatst. Nu loop ik tegen de volgende zaken aan:

1. Als ik de naam van de leerling in kolom D invul, wordt het nieuwe tabblad aangemaakt, en wordt dit automatisch het actieve tabblad. Ik wil graag op het tabblad 'inschrijvingen' blijven.
2. Ik kan maar één leerling tegelijk toevoegen. Als ik meerdere leerlingen vanuit een andere locatie kopieer, geeft de code een foutmelding. Hoe los ik dit op?
3. Ik wil de informatie 'titel' en 'school' ook laten kopiëren naar de juiste cellen in het rubric-tabblad. Hoe doe ik dit?
4. Als de naam van de leerling aan te klikken is, zodat deze verwijst naar het juiste tabblad, zou dat helemaal fantastisch zijn.

De code die ik nu heb is deze:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Count = 1 And Target <> "" Then
  If IsError(Evaluate("'" & Target & "'!A1")) Then
    Sheets("voorbeeldrubric").Copy , Sheets(Sheets.Count)
    With ActiveSheet
      .Name = Target
      .[C5] = Target
    End With
  End If
End If
End Sub

Dit is de eerste vraag die ik hier stel, ik hoop dat jullie me vooruit kunnen helpen, en dat ik mijn vraag goed geformuleerd heb. Laat het me vooral weten als ik ergens onduidelijk ben geweest!

Alvast enorm bedankt voor de hulp, er staan zoveel gigantisch goede tips op dit platform! Jullie zijn geweldig, nu al!
 

Bijlagen

Ik heb in het verleden een soortgelijk project gedaan.

Helaas kan ik de originele files niet meer vinden.

stappen die ik gedaan heb.

1. standaard werkblad gemaakt wat gekopieerd werd met alle formules en opmaak erin.
2. VBA kopieerde deze naar een nieuw blad waarin 1 cel de naam van het blad (in jouw geval leerling) werd gezet of met formule : =DEEL(CEL("bestandsnaam";$A$1);VIND.SPEC("]";CEL("bestandsnaam";$A$1);1)+1;256)

3. met zoek functie de diverse waardes vullen
4. extra VBA maken om de ingevulde leerlingen te voorzien van een hyperlink binnen de werkmap
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan