Textboxen Vulle

[Excelvbas01]

In bijgevoegde bestand heb een userform met textboxen.
Ik wil zodra ik een nummer in TextBox17 invoer dat de overige textboxen gevuld worden met waarden die corresponderen met ingevuld nummer.
Is dat mogelijk en zo hoe moet ik dat aanpakken.

 

[edmoor]

Als je eerst de textboxes opeenvolgend nummert is dat geen enkel probleem.

 

[emields]

bedoel je zoiets?
ik vraag me enkel af waarom je geen combobox gebruikt idpv textbox17?

 

[edmoor]

En nog 4 extra textboxen die je niet ziet omdat ze achter een andere liggen.

 

[Excelvbas01]

Dit is inderdaad hoe ik t wil. Maar werkt bij niet helemaal goed. Moet nog effe kijken wat ik fout doe.

 

[Excelvbas01]

​

Het is gelukt om die aan de praat te kijgen in mijn bestand. Maar ik merk dat dit niet is wat ik zoek.
Er wordt gecopieerd en ook clearcontents.

Deze regels heb ik niet nodig. Ik heb geprobeerd deze weg te halen maar dan krijg ik fouten.

.Range("a2:c" & [a1].End(xlDown).Row).SpecialCells(12).Copy [m1]
.Range("a2:c" & [a1].End(xlDown).Row).AutoFilter Field:=1
.[m1].CurrentRegion.ClearContents

Na lang zoeken kwam ik deze tegen. Het probleem bij deze is dat deze regel fout geeft. (Typen komen niet met elkaar overeen,
Set c = Sheets("Blad4").Range("A:A").Find(Int(TextBox1.Text))

Het zou mooi zijn als ik deze aan de praat krijg.

Private Sub CommandButton1_Click()
   Set c = Sheets("Blad4").Range("A:A").Find(Int(TextBox1.Text))
   If Not c Is Nothing Then
      TextBox2.Text = c.Offset(, 3)
      TextBox3.Text = c.Offset(, 4)
   Else
      MsgBox "Value not found"
   End If
End Sub

https://www.helpmij.nl/forum/thread...anuit-tabblad-naar-userform-textboxen.968072/

 

[emields]

Feitelijk zou het makkelijker zijn als je zelf eerst bedenkt wat je zou willen.
Hier heb je 2 keuze mogelijkheden.

 

[Excelvbas01]

Ik heb een bestand aangemaakt van wat ik wil. Alleen nu is het probleem dat, als ik een nummer zoek alle waardes te zien krijg.
Ook waardes die niet bij het nummer horen.
De bedoeling is om alleen waardes te zien krijg die bij dat nummer horen.
Vb: Ik zoek nummer 1001: Dan is de bedoeling dat de textboxen alleen gevulde worden met waarden die bij 1001 horen. In dit geval zijn t:
team 1
team 2
team 3

 

[emields]

Dan is dit misschien wel wat je zoekt?

 

[peter59]

Hallo,

Het zal wel aan mij liggen maar waarom moeilijk doen als het zeer makkelijk kan.
Dus met een oldskool draaitabel met slicer.

 

[AD1957]

Lijkt me dat je net zo goed een listbox kunt gebruiken ipv. de textboxen.
Filter de listbox op postcode.

 

[Excelvbas01]

Ik ben bekend met listboxen en die gebruik ik ook.
Code van emields is wat ik zoek ik ga er mee aan de slag.

allen bedankt

 

[emields]

Vergeet niet in uw eerste post de vraag als opgelost te zetten.

 

[Excelvbas01]

Ik loop tegen een rpbleem aan. Ik vergelijk nummers van Blad1 met nummers van Blad2.
Het gaat goed maar wanneer het nummer niet voorkomt dan krijg ik foutmelding.
Ik wil dit oplossen door het volgende code:

If Post("Blad2!A2:A" & Post).Find(ZoekNo.Value) Is Nothing then
MsgBox "Geen nummer gevonden"
Else
Exit Sub
End If

Maar werkt niet en ik kom maar niet achter waarom.

De bedoeling is als het nummer in Blad2 niet voorkomt, geen foumelding krijg.

 

[edmoor]

Het lijkt me wel handig dat als je zegt een foutmelding te krijgen, je deze er ook bij vermeld.
En wellicht een simpel voorbeeld documentje.

 

[emields]

zonder vvoorbeeldbestand niet op te lossen.

 

[Excelvbas01]

Als ik een nummer invoer en die komt niet voor op het blad1 dan krijg ik een fout melding.
Zie bestand.

 

[edmoor]

Die kan je opvangen:

If Not Post Is Nothing Then
    TextBox1 = Post.Offset(, 4).Value
Else
    Exit Sub
End If

NB:
Als je zegt een foutmelding te krijgen vertel er dan ook bij welke dat is.

 

[emields]

Er zal nog wat meer niet goed gegaan zijn.
Probeer deze eens.

 

[Excelvbas01]

Beide oplossingen werken goed.
Mij dank is groot.