vullen textbox door invullen andere textbox

[AD1957]

textbox10 en textbox11 in userform2 worden nu gevuld door te klikken in de listbox.

Het invullen van de userform gaat volledig met het toetsenbord, behalve bovengenoemde

zou graag textbox11 kunnen vullen dmv via toetsenbord invullen van crediteurennummer in textbox10

mvg,
Albert Bekijk bijlage invullen inkoopboek.xlsb

 

[emields]

Ga je al die nummers van buiten leren?

 

[E v R]

aanzetje:

Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error GoTo einde
    TextBox11.Text = ListBox1.List((Application.Match(Val(TextBox10.Text), Application.Index(ListBox1.List, , 1), 0)) - 1, 1)
einde:
End Sub

 

[AD1957]

hoi Erik,
bedankt voor de code, deze werkt perfect. Nu kan ik de userform invullen zonder gebruik te maken van de muis. Werkt een stuk prettiger.
Ik blijf nog steeds met een probleem zitten.

Na het invullen van de spreadsheet blijf ik steeds zitten met de notatie in kolom F t/m J ben al uren bezig en krijg het maar niet goed.
Ook met macro opnemen "selecteren en getalnotatie" niet goed te krijgen. Heb jij hier een oplossing voor

mvg,
Albert Bekijk bijlage invullen inkoopboek.xlsb

ter informatie aan emields: nee ik ga die nummers niet van buiten leren, de listbox bllijft staan maar ik voer de nummers met het toetsenbord in
dit vind ik nml. veel prettiger werken dan steeds met de muis te klikken in de listbox.

 

[Jack Nouws]

Bedoel je zo?

Private Sub CommandButton1_Click()
  With Sheets("Inkoopboek")
    .Cells(Selection.Row, 2).Resize(, 11) = Array(Format(TextBox9.Value, "dd-mmm"), TextBox10.Value, TextBox11.Value, , Val(TextBox2.Value), _
    Val(TextBox3.Value), Val(TextBox4.Value), Val(TextBox5.Value), Val(TextBox6.Value), Format(TextBox7.Value, "dd-mmm"), TextBox8.Value)
  End With
  
  For i = 1 To 11
    Me("TextBox" & i).Value = ""
  Next
        
TextBox9.SetFocus
End Sub

 

[AD1957]

Hoi Jack,
bedankt voor jouw reactie, werkt perfect.
Eigenlijk moet ik me een beetje schamen, ongeveer dezelfde code heb ik ooit al eens gebruikt, had er alleen niet meer aan gedacht

Groet en nogmaals dank aan iedereen,
Albert

 

[AD1957]

toch nog een probleem met het invullen van de textboxen in userform_invulleninkoopboek
kan nml. geen bedragen achter de komma invoeren.
Tijdens het controleren van de gekregen codes heb ik alleen maar gecontroleerd met hele getallen.
vreemd want ik heb toch format "0.00" toegepast.

Wie helptBekijk bijlage invullen inkoopboek.xlsb

mvg,
Albert

 

[ExcelAmateur]

Ik heb het voor Textbox2 gedaan, denk dat het gelukt is.

@ik heb een filmpje gevonden dat het uitlegt.
https://m.youtube.com/watch?v=tkT4XfwEMao

 

[AD1957]

Ik heb ook textbox3_AfterUpdate aagepast.
Werkt echter nog steeds niet goed.
als ik bijv. bij bruto 100.20 invul en btw 12.20 wordt het niet goed weggeboekt.
blijkbaar werkt het niet als de 2e decimaal een nul is.
Zelf kom ik er maar niet achter waar dit aan ligt.:evil:

mvg,
ALbertBekijk bijlage invullen inkoopboek.xlsb

 

[ExcelAmateur]

Heb je ook in de code gekeken?
Daar heb ik ook wat weggehaald, bij de TextBox.

 

[AD1957]

datzelfde heb ik ook weggehaald in textbox3_afterupdate
blijft vreemd reageren. Zou je me de hele code kunnen aanpassen, weet het effe niet meer.
en dan voornamelijk ivm. mijn vorige vraag "getallen met 2 decimalen bijvoorbeeld 100.12 worden vreemd weggeboekt

 

[ExcelAmateur]

Denk dat het nu goed gaat.

 

[AD1957]

zal straks even testen, moet er vandoor.
In ieder geval bedankt voor de moeite

 

[ExcelAmateur]

Heb net een nieuwe file geplaatst, die volgens mij beter is.

 

[AD1957]

die laatste file werkt in ieder geval niet goed, kolom H,I en J worden niet goed ingevuld.
als de waarde in textbox 4 5 6 de 2e decimaal een nul is staat het hier ook niet. goed.
inmiddels van alles getest maar kom er niet uit.:evil:
Ik ga maar aan de slag met een ander probleem en hoop stiekem op een beetje hulp

 

[ExcelAmateur]

Moest ook even weg, vandaar de late reactie.
Zelf had ik nog niet met Val gewerkt.
Je moet maar even wachten op een van de echte programmeurs.
Die zullen het wel oplossen denk/hoop ik.

Suc6

 

[ExcelAmateur]

Ik heb nog een poging gedaan, hoop dat het nu goed is.

 

[ExcelAmateur]

AD1957,

Hier is mijn laatste poging, ik vind deze het beste en hoop jij ook.

 

[AD1957]

Goede middag,
Fantastisch dat je zoveel moeite doet, jammer genoeg werken beiden niet.
nr. 6 gaat fout bij kllik op OK in userform
nr. 5 gaat fout bij invullen btw in userform.
Er komt een lang week-end aan, dus ik ga zelf ook verder zoeken.

 

[ExcelAmateur]

Jammer,
Ik weet dus ook niet wat er precies ingevoerd moet worden.
Werk al 15 jaar niet meer en heb met zulke dingen nooit wat te doen gehad.
Hopelijk vind je de juiste oplossing en wens je dan ook veel succes.