Hoogste nummer

[verluc]

Ik heb een userform waarbij in het eerste veld een nummer moet worden ingevuld.
Om te voorkomen dat eerst moet gekeken worden naar de database om het eerstvolgende nummer te kennen, veronderstel ik dat er een mogelijkheid moet bestaan om automatisch het eerstvolgende nummer van de database in te vullen.(nummers staan in kolom A van de database.
Met belangstelling zie ik alle voorstellen tegemoet.

 

[Markal]

Hoi Verluc,

Zou je je userform even willen posten? Dat maakt je vraag wat duidelijker!

Groeten,

Marco

 

[Warme bakkertje]

Deze werkt enkel als je het userform opent

Private Sub UserForm_Initialize()
    TextBox1.Value = [A65536].End(xlUp).Value + 1
End Sub

Deze werkt telkens je het object verlaat en een volgend selecteert
Je kan dus alles invullen, wegschrijven en terug opnieuw beginnen zonder het form te sluiten

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1.Value = [A65536].End(xlUp).Value + 1
End Sub

 

[verluc]

Warme bakkertje,

Krijg foutmelding op [A65536] >>>>>> "Kan het project of de bibliotheek niet vinden"
Enig idee ?

 

[Hoornvan]

Moet je hem niet naar een blad verwijzen?

TextBox1.Value = [Blad1!A65536].End(xlUp).Value + 1

 

[verluc]

Nee, blijkbaar is dit ook geen oplossing !!
Andere mogelijkheid ?

 

[Hoornvan]

verluc,

Hij staat toch wel bij UserForm_Initialize() ?

 

[Hoornvan]

verluc,

Net even getest.
Hier kijkt hij op Blad2

Private Sub UserForm_Initialize()
    TextBox1.Value = [Blad2!A65536].End(xlUp).Value + 1
End Sub

Hier kijkt hij op Blad1

Private Sub UserForm_Initialize()
    TextBox1.Value = [A65536].End(xlUp).Value + 1
End Sub

 

[verluc]

Wat ik ook probeer : [A65536] blijft de fout geven.
Staat wel degelijk onder :Sub UserForm_Initialize()
Het blad waar de gegevens staan in kolom A heet : Data

 

[Warme bakkertje]

De code moet achter het form geplaatst(niet in een module) worden en is een private sub zie bijlage

 

[Hoornvan]

verluc,

Kijk in mijn bestandje, of doe anders jouw bestandje even hier plaatsen.

 

[verluc]

Dit is mijn macro :
Sub UserForm_Initialize()
ComboBox3.RowSource = "Instellingen!B2:B25" & Sheets("Instellingen").Columns(1).SpecialCells(2).Count
Combobox4.RowSource = "Instellingen!C2:C25" & Sheets("Instellingen").Columns(2).SpecialCells(2).Count
ComboBox5.RowSource = "Instellingen!A2:A25" & Sheets("Instellingen").Columns(3).SpecialCells(2).Count
ComboBox6.RowSource = "Instellingen!D225" & Sheets("Instellingen").Columns(4).SpecialCells(2).Count
End Sub

Hierbij moet Uw macro worden toegevoegd maar krijg het niet in werking: altijd dezelfde foutmelding :[A65536] >>>>>> "Kan het project of de bibliotheek niet vinden

Enige hulp erg welkom

 

[Warme bakkertje]

Een Userform_Initialize is steeds een Private Sub Waar staat deze macro eigenlijk ?

Private Sub UserForm_Initialize()
TextBox1.Value = [Instellingen!A65536].End(xlUp).Value + 1
ComboBox3.RowSource = "Instellingen!B2:B25" & Sheets("Instellingen").Columns(1).SpecialCells(2).Count
Combobox4.RowSource = "Instellingen!C2:C25" & Sheets("Instellingen").Columns(2).SpecialCells(2).Count
ComboBox5.RowSource = "Instellingen!A2:A25" & Sheets("Instellingen").Columns(3).SpecialCells(2).Count
ComboBox6.RowSource = "Instellingen!D225" & Sheets("Instellingen").Columns(4).SpecialCells(2).Count
End Sub

 

[Hoornvan]

Enige hulp erg welkom

We willen je graag helpen maar als we om het bestandje vragen, geef je niet thuis.
Is het zo geheim?
Haal de gevoelige info weg en geef het, kunnen we zien waar het fout gaat.

 

[snb]

Dit is geen macro, maar platte tekst

Sub UserForm_Initialize()
ComboBox3.RowSource = "Instellingen!B2:B25" & Sheets("Instellingen").Columns(1).SpecialCells(2).Count
End Sub

een rowsource kan alleen maar ingesteld worden met een adres.

"Instellingen!B2:B25" & Sheets("Instellingen").Columns(1).SpecialCells(2).Count
kan alleen maar zoiets tot resultaat hebben:

"Instellingen!B2:B2510" (als in kolom 2 10 gevulde cellen staan)
"Instellingen!B2:B2535" (als in kolom 2 35 gevulde cellen staan)

 

[verluc]

Hierbij mijn bestandje, het probleem werd hierboven beschreven: voorkomen dat er een dubbel gebruik is van nummers in kolom A van sheet Date
Indien toch een nummer word ingetikt dat reeds bestaat, dan automatische invulling van deze userform met overeenstemmende gegevens van dat nummer.
Hopelijk leid dit tot de oplossing van mijn probleem.

 

[Markal]

Hier een oplossing voor de ophoging van het nummer..

Een oplossing voor het binnenhalen van de info als er een bestaand nummer wordt opgegeven moet je plaats in het change event van het nummer veld... misschien dat ik dat zo nog even post

 

[verluc]

Foutmelding bij drukken van knop Mutatie :
Sub Rechthoek1_Klikken()
Ln = Worksheets("Data").Range("A65536").End(xlUp).Value + 1
UserForm1.Nummer = Ln
UserForm1.Show
End Sub

 

[Markal]

Wat is de foutmelding?

 

[Warme bakkertje]

Het nummer wordt aangepast bij het openen en na het opslaan
zie bijlage