jaren uitrekenen

[biettie]

Volgende vraagstuk:
Op het werkblad 'jubilarissen' ben ik al zover dat de nummers en namen worden overgenomen van het werkblad 'Herhalers'. Nu wil ik dat de aantal jaren dat ze hun diploma hebben, automatisch wordt berekend aan de hand van de huidige datum en de examendatum. Probleem is echter dat de waarden uit het werkblad 'Herhalers' middels VB wordt bijgewerkt. De waarde in de kolom 'jaren' (werkblad 'jubilarissen') moet dus worden gekoppeld aan de persoon zelf.
Hopelijk ben ik een beetje duidelijk...

 

[danny147]

Beste biettie

Zie bestandje.

Groetjes Danny. :thumb:

 

[biettie]

Danny, bedankt voor de moeite! Het werkt nu wel, echter kloppen mijn vb-codes nu niet meer ivm de extra kolom die er tussen zit. Het formulier zet de waarden nu in de verkeerde rij en werkt niet meer naar behoren.

 

[danny147]

Beste biettie

Zo dan ?

Groetjes Danny. :thumb:

 

[biettie]

Een stuk beter, Danny! Blijft er nog een klein probleempje over; als ik via het formulier een persoon verwijder uit de lijst, krijg ik een foutmelding op het werkblad 'jubilarissen' op de plaats waar deze gegevens stonden. (#VERW!)

 

[danny147]

Beste biettie


Heb op tabblad Jubilarissen in kolom C een extra formule geplaatst.
Heb code aangepast in VBA editor.
Heb dit eraan toegevoegd:

    For Each c In Sheets("Jubilarissen").[C8:C83]
    If c = 1 Then
    c.Rows.EntireRow.Delete
    End If
    Next

Groetjes Danny.:thumb:

 

[biettie]

Dat is 'em, Danny!
Dank je wel voor al je moeite!:thumb:

 

[Sophie90]

Danny, nog een vraag; als ik nu meerdere mensen met dezelfde achternaam heb, kan ik alleen de bovenste via het userform wijzigen. Enig idee hoe ik dit moet oplossen?
(Let niet op de gewijzigde gebruikersnaam. Ivm de geresette wachtwoorden en een gedumpt emailadres kon ik het ww niet meer veranderen.....)

 

[danny147]

Beste Sophie90

Ik zou zeggen, zet er een 1tje of een 2tje achter zodat je een onderscheidt kan maken.

Groetjes Danny. :thumb:

 

[Sophie90]

Tja, zo kan het ook...