Database

[Excelll]

Hallo lezer,

Ik heb een Excel bestand gemaakt en daarin wil ik met een macro maken dat als ik een voor- en achternaam invoer en op een knop druk dat er automatisch in een database de voor en achternaam bij het eerst volgende getal komt te staan.
Kan iemand mij helpen?

In de bijlage het bestand.
Bekijk bijlage voorbeeld.xlsx

Alvast bedankt

 

[Jezet]

Het bestand en de vraag kan ik niet met elkaar rijmen.

 

[edmoor]

Je hebt inderdaad het voorbeeld bestand van je drop down menu vraag geplaatst en die heeft niets met je vraag hier te maken. En in welke database wil je dat de gegevens worden weg geschreven? Acces?

 

[Excelll]

Verkeerde bestand

Sorry, het was het verkeerde bestand..
Hier het goede:
Bekijk bijlage Nieuwe klant.xlsm

 

[edmoor]

Dus het moet niet naar een database maar naar een ander blad in dat document? Ik neem aan dat je invoert in Blad1? En moet het dan naar het blad "regel" of naar Blad3? Of naar beide?

 

[Excelll]

@edmoor

Als je op de knop drukt, moet hij in de database komen bij het eerst volgende lege getal.

 

[Jezet]

Hoi Excelll,

Er zijn verschillende wegen die hier naar het juiste antwoord kunnen leiden.
De eerste regel in de database

=99999-MAX(ISLEEG(Blad3!$B$3:$B$137)*ISLEEG(Blad3!$C$3:$C$137)*(99999-RIJ(Blad3!$B$3:$B$137)))

(let op matrix-formule, dus invoeren met Ctrl-Shift en Enter)
Stel dat de formule in cel H2 staat dan kan de code voor het wegschrijven zijn:

Private Sub CommandButton1_Click()
Regel = Range("H2")
Sheets(3).Cells(Regel, 2) = Range("C2")
Sheets(3).Cells(Regel, 3) = Range("C4")
End Sub

Heel eenvoudig, maar ook beperkt doordat in de code exact vastligt wat er moet gebeuren als op de knop wordt gedrukt. Wijzigingen in de database kunnen leiden tot een puinhoop. Dus weet wat je doet!

Groet,
Jeroen