als textboxX = 1 then 1001

Status
Niet open voor verdere reacties.

Schipper1994

Gebruiker
Lid geworden
10 mrt 2021
Berichten
158
weer een vraagje,

om het snel uit te leggen,

ik heb een textbox die automatzich een waarde zoekt uit een tabel.
echter als die waarde uit die tabel "1" is, dan wil ik dat die waarde automatisch veranderd (tijdens dat de userform opengaat" in een ander getal.

hoe kan ik dit doen?
 
Knap dat een textbox automatzich een waarde kan zoeken. Is mij nog nooit gelukt.
 
Zoiets

Code:
If TextBox1.Value = 1 Then TextBox1.Value = 1001
 
waar zou ik hem dan moeten neerzetten?

als het USERFORM opstart, dus bij userform_activate()
daar gaat hij zijn waarde opzoeken. door behulp van deze code
Code:
    TextBox1.Value = Sheets("blad").Columns(1).End(xlDown) + 1

maar natuurlijk als dit het eerste item is dat toegevoegd word dan krijg je standard het getal 1 in textbox1 .

waar zet ik hem dus neer? ook bij userform_activate of op een ander stuk?

voorlopig werkt het niet bij userform_activate()
Code:
 If TextBox1.Value = 1 Then
    TextBox1.Value = "1001"
    End If
 
Wat wil je nu precies bereiken?
Met
Code:
Sheets("blad").Columns(1).End(xlDown)
kom je in de laatst ingevulde cel of in de laatste cel in kolom A uit.

Code:
Sub test()
  MsgBox Sheets("blad").Cells(Sheets("blad").Columns(1).End(xlDown).Row, 1).Value
End Sub
 
Die code word gebruikt om de de laatste rij te zoeken en dan ook die waarde van de laatste rij +1 te doen.
Dat werkt.

Het enige wat ik ook wil is als die laatste rij nog niet bestaat, dat er automatisch 1001 komt te staan ipv 1
Dus
Als het resultaat van die code 1 is dan moet dit eigenlijk 1001 worden.
 
De code zoekt niet naar de laatst gevulde cel in kolom A maar de eerste niet lege cel van boven naar naar beneden. De laatste rij bestaat altijd dit is rij 1048576. Mij lijkt een voorbeeldbestand met hoe het geheel in elkaar steekt wel handig.
 
Deze code doet dit toch wel.
Maakt niet uit, deze code doet zijn werk.
Ik wil gewoon als de waarde in mijn textbox "1" is dat die automatisch veranderd naar 1001
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan