*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: Nieuw nummer + 1  (gelezen 3055 keer)

0 leden en 1 gast bekijken dit topic.

Offline Jannie

  • Lid
  • *
  • Berichten: 48
  • Oplossing.be
Nieuw nummer + 1
« Gepost op: 21 september 2004, 16:21:56 »
Hallo,

Even een moeilijke vraag.
Ik heb een factuur waar ik de gegevens wegschrijf naar een database.

Nu wil ik bij het openen van de factuur (of klikken op een knop) dat hij het hoogste factuurnummer + 1 uit de database haalt.
Hoe moet ik dit doen?

De factuurnummers staan in de database in kolom A.

Groeten Jannie
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline LucHeyndrick

  • Volledig lid
  • **
  • Berichten: 217
  • Oplossing.be
Re:Nieuw nummer + 1
« Reactie #1 Gepost op: 21 september 2004, 17:51:26 »
Sub NieuwNummer()
Dim iNummer As Integer
iNummer = Sheets("Database").Range("A65536").End(xlUp).Value + 1
End Sub

Luc
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline barthold

  • Volledig lid
  • **
  • Berichten: 171
  • ExWorks.be: Free Excel tools.
Re:Nieuw nummer + 1
« Reactie #2 Gepost op: 30 september 2004, 20:33:07 »
Jannie,
Bestaan die factuurnummers enkel uit cijfers of kunnen er ook letters in zitten?
Bart
Gelogd
WinXP - Excel 2000/XP/2003

Offline alfa

  • Lid
  • *
  • Berichten: 83
  • Oplossing.be
Re:Nieuw nummer + 1
« Reactie #3 Gepost op: 04 oktober 2004, 23:35:43 »
Wijzig de derde regel in de macro van LucHeyndrick als volgt:

iNummer = WorksheetFunction.Max(Sheets("Database").Range("A2:A500")) + 1

alfa
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline barthold

  • Volledig lid
  • **
  • Berichten: 171
  • ExWorks.be: Free Excel tools.
Re:Nieuw nummer + 1
« Reactie #4 Gepost op: 05 oktober 2004, 08:46:53 »
Dat werkt alleen als er geen letters in de factuurnummers zitten.
Gelogd
WinXP - Excel 2000/XP/2003

Offline alfa

  • Lid
  • *
  • Berichten: 83
  • Oplossing.be
Re:Nieuw nummer + 1
« Reactie #5 Gepost op: 05 oktober 2004, 19:40:52 »
Citaat van: barthold op 05 oktober 2004, 08:46:53
Dat werkt alleen als er geen letters in de factuurnummers zitten.
Dat is mij bekend.
De vragenstelster heeft het duidelijk over een factuurnummer.

alfa.
Gelogd
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline barthold

  • Volledig lid
  • **
  • Berichten: 171
  • ExWorks.be: Free Excel tools.
Re:Nieuw nummer + 1
« Reactie #6 Gepost op: 06 oktober 2004, 08:46:41 »
Ho ho ho hoooo! Take it easy...
Ik duid gewoon op het nadeel van de max. functie. Was zeker niet persoonlijk bedoeld.
Bart
Gelogd
WinXP - Excel 2000/XP/2003
Pagina's: [1]   Omhoog
 


www.combell.com