gegevens op de juiste plaats laten neer zetten

[Hoornvan]

Jack Nouws,

Volgens mij heb ik het gevonden.

 

[Jack Nouws]

Jack Nouws,

Ik heb gezien wat er fout gaat.
Maar hoe los ik het op?
Hij ziet txtGelev + txtTotGelev als text en vertikt het om ze op te tellen je krijgt dan 500600.
Zet ik b.v.b. A = 1 + 2 dan komt er 3 te staan(zo als het hoort)
In het controle venster zie je als hij de 2 textboxxen leest "500" en "600" staan.
Dit zou echter 500 + 600 moeten wezen.
Dus puzzelen we gewoon verder, staks ga ik naar een verjaardag, morgen ga ik wel weer verder.

Bedoel je misschien zoiets?

Dim a As Double
Dim b As Double
Dim c As Double
    a = Range("F2")
    b = Range("G2")
    c = (a + b)
    Range("H2") = c

 

[Hoornvan]

Kijk naar mijn bijlage, nu werkt het.

 

[Jack Nouws]

Kijk naar mijn bijlage, nu werkt het.

Goh, wat knap van je :thumb: maar ik moet nu wel zeggen dat ik de code niet meer begrijp
het stukje wat erbij opgeteld word begrijp ik wel maar,
het stukje wat naar cel I5 verwijst snap ik niet,
ik kan het ook nergens terug vinden??

met vr gr
Jack

 

[Hoornvan]

Jack Nouws,

het stukje wat naar cel I5 verwijst snap ik niet,

Ik zou niet weten wat je hier mee bedoeld?
Was gisteravond weg, dus vandaar ik wat laat reageer.

 

[snb]

@Hoornvan

suggesties:

Het gebruik van With is overbodig als slechts eenmaal naar het object wordt verwezen

Private Sub UserForm_Initialize()
 CboPartynr.RowSource = "Inkoop!C4:" & Sheets("Leveranciers").Range("C65536").End(xlUp).Address
End Sub

Screenupdating uitschakelen is overbodig als geen focus wordt verplaatst en er slechts eenmaal gegevens worden weggeschreven.
Definieer niet meer variabelen dan nodig.
Ook hier was, vanwege de objectvariabele WS, With... End With overbodig.
Gebruik de eigenschap listindex van de combobox om de rij te bepalen waar gegevesn moeten worden weggeschreven.
Korter is:

Private Sub CmdOK_Click()
  With Sheets("Inkoop").cells(4 +CboPartynr.listindex,8)
      .value=Val(txtGelev.text)+.value
  End With
End Sub

De combobox_change -gebeurtenis kan in 1 regel
Gebruik de eigenschap listindex van de combobox om de regel te bepalen waar de gegevens weggeschreven moeten worden. Find is daarmee overbodig.

Private Sub CboPartynr_Change()
  If CboPartynr.listindex>-1 Then
sheets("Inkoop").cells(4 +CboPartynr.listindex,7).resize(,10)=split(txtIngekocht.Text & "|" & txtTotGelev.text & "|" & txtTeLeveren.Text & "||" & txtBedrijfsnaam.Text & "|" & txtNaam.Text & "|" txtAdres.Text & "|" & txtHnr.Text & "|" & txtPC.Text & "|" & txtPlaats.Text ,"|")
End Sub

 

[Hoornvan]

snb,

Bedankt voor uw uitleg.
Ik ben maar een amateur, zeker met VBA.
Ik heb alleen gezorgt dat het werkte (ben ik wel even mee bezig geweest)

Private Sub CmdOK_Click()
  With Sheets("Inkoop").cells(4 +CboPartynr.listindex,8)
      .value=Val(txtGelev.txt)+.value
  End With
End Sub

Dit is wel een stuk korter, nogmaals ik heb alleen gezorgt dat het werkte, de code is van Jack Nouws en die zal er ook wel wat leren.

 

[Hoornvan]

snb,

Ik heb dit stukje code getest en moet zeggen het werkte na een foutmelding.

Private Sub CmdOK_Click()
  With Sheets("Inkoop").cells(4 +CboPartynr.listindex,8)
      .value=Val(txtGelev.[COLOR="Red"]txt[/COLOR])+.value
  End With
End Sub

Het rode gedeelte heb ik verwijderd (hier gaf hij de melding) toen werkte het.
Uw uitleg heb ik opgeslagen, komt altijd wel eens van pas.

 

[snb]

Het moest inderdaad

Private Sub CmdOK_Click()
  With Sheets("Inkoop").cells(4 +CboPartynr.listindex,8)
      .value=Val(txtGelev)+.value
  End With
End Sub

zijn , of

Private Sub CmdOK_Click()
  With Sheets("Inkoop").cells(4 +CboPartynr.listindex,8)
      .value=Val(txtGelev.Text)+.value
  End With
End Sub

 

[Jack Nouws]

Het moest inderdaad

Private Sub CmdOK_Click()
  With Sheets("Inkoop").cells(4 +CboPartynr.listindex,8)
      .value=Val(txtGelev)+.value
  End With
End Sub

zijn , of

Private Sub CmdOK_Click()
  With Sheets("Inkoop").cells(4 +CboPartynr.listindex,8)
      .value=Val(txtGelev.Text)+.value
  End With
End Sub

Hallo
met deze code hier onder krijg ik alleen een foutmelding nl: syntaxisfout.
mijn vraag: Waar ligt dat nu weer aan?

Private Sub CboPartynr_Change()
  If CboPartynr.listindex>-1 Then
[COLOR="Red"]sheets("Inkoop").cells(4 +CboPartynr.listindex,7).resize(,10)=split(txtIngekocht.Text & "|" & txtTotGelev.text & "|" & txtTeLeveren.Text & "||" & txtBedrijfsnaam.Text & "|" & txtNaam.Text & "|" txtAdres.Text & "|" & txtHnr.Text & "|" & txtPC.Text & "|" & txtPlaats.Text ,"|")[/COLOR]
End Sub

Met vr gr
Jack Nouws

 

[Hoornvan]

Jack Nouws,

Ik krijg ook deze fout melding.
Denk dat snb het wel zal weten wat de oorzaak is.

 

[Hoornvan]

Jack Nouws,

Ik heb voor iemand het stukje code van snb gebruikt.
Daar werkte het wel, alleen schrijft hij alles in 1 cel en denk dat dit niet de bedoeling is bij jou.
Je kan dan eigenlijk beter de oude code gebruiken die schrijft alles in aparte cellen.

 

[Jack Nouws]

Jack Nouws,

Ik heb voor iemand het stukje code van snb gebruikt.
Daar werkte het wel, alleen schrijft hij alles in 1 cel en denk dat dit niet de bedoeling is bij jou.
Je kan dan eigenlijk beter de oude code gebruiken die schrijft alles in aparte cellen.

Ik zal zeker de oude code van jou nog gebruiken, die werkt naar mijn wensen.:thumb: En binnen kort kom ik nog wel terug met een andere vraag, en ik hoop dat je me weer zal helpen. Ik verwacht nog wel reaktie van snb op de vraag die ik nog gesteld heb.

Met vr gr
Jack

 

[Hoornvan]

Jack Nouws,

Ik verwacht nog wel reaktie van snb op de vraag die ik nog gesteld heb.

Ik ben ook benieuwd naar het antwoord.
Je volgende vraag zie ik wel verschijnen en hoop dat ik je daar ook mee kan helpen.