komma decimale getallen op de verkeerde plaats

[starchaser]

Hallo iedereen,

Ik heb een database aangemaakt in excel, waaruit ik via een userform artikelen selecteer en dan wegschrijf naar een andere sheet.
De data bestaat uit een artikelcode, benaming, verkoopprijs, ecotaks,....

Enkel bij de cellen die een getal bevatten loopt het mis : bv de verkoopprijs is 7,144 maar als eindresultaat geeft excel 7144,00 weer.
Gegevens uit de database :
7,144 7,144 0,01
Eindresultaat :
7144,00 7144,00 0,01


Wat eveneens raar is : de verkeerde weergave is niet voor elke verkoopprijs fout. Bij de meeste artikelen wordt het decimale getal wél juist toegevoegd.

Ik heb de celeigenschappen al op alle mogelijke wijze aangepast, maar zonder resultaat.

Iemand een idee wat het probleem kan zijn?
Bedankt voor de feedback
grtn
Starchaser

 

[HSV]

Schrijf je ze weg uit een textbox?

range("a1") = cdbl(textbox1.value)

 

[starchaser]

Ja textbox.value naar cel op ander sheet...

Private Sub cmdAdd_Click()
If Emp11.Value = "" Then
MsgBox ("Gelieve de bestelhoeveelheid in te vullen aub")
End If
Dim ws As Worksheet
Set ws = Worksheets("Order")
Dim newRow As Long
newRow = Application.WorksheetFunction.CountA(ws.Range("b:b")) + 1

ws.Cells(newRow, 2).Value = Me.Emp11.Value
ws.Cells(newRow, 3).Value = Me.Emp3.Value
ws.Cells(newRow, 4).Value = Me.Emp2.Value
ws.Cells(newRow, 5).Value = Me.Emp7.Value
ws.Cells(newRow, 6).Value = Me.Emp4.Value
ws.Cells(newRow, 7).Value = Me.Emp5.Value
ws.Cells(newRow, 8).Value = Me.Emp6.Value
ws.Cells(newRow, 9).Value = Me.Emp9.Value
ws.Cells(newRow, 10).Value = Me.Emp10.Value

 

[HSV]

Zie #2, de eerste vier letters na = en de haken eromheen.

 

[VenA]

Waar heb je deze code gevonden? Wat is het nut van bv deze regels?

If Emp11.Value = "" Then
MsgBox ("Gelieve de bestelhoeveelheid in te vullen aub")
End If

 

[starchaser]

@ VenA:

Moest nog een lijntje tussen staan :

Private Sub cmdAdd_Click()
If Emp11.Value = "" Then
MsgBox "Gelieve de bestelhoeveelheid in te vullen aub"
Exit Sub
End If

Was de "exit sub" vergeten.
De doelstelling is dat de eindgebruiker uit een datalijst artikelen selecteerd en nadien het gewenste aantal in EMP11 ingeeft. Nadien wordt dit artikel dan weggeschreven op sheet "Order", waarop men een bestelformulier kan afprinten.
De bovenstaande regel heb ik toegevoegd zodat de eindgebruiker steeds een aantal ingeeft voordat het artikel wordt toegevoegd aan het bestelformulier.

@HSV :

Zie #2, de eerste vier letters na = en de haken eromheen

Sorry, ik zie het niet... wat moet ik aanpassen?

grtn

 

[wds]

Text omzetten nr getal...

cdbl(Me.Emp11.Value)

 

[starchaser]

@wds probleem is hiermee opgelost. :thumb:

Iedereen bedankt om mee te denken.

 

[VenA]

in 1 keer wegschrijven is wat efficiënter. Niet getest omdat er geen voorbeeldbestand te vinden is.

Private Sub cmdAdd_Click()
  If Emp11.Value = "" Then
    MsgBox ("Gelieve de bestelhoeveelheid in te vullen aub")
    Exit Sub
  End If
  With Sheets("Order").Cells(Rows.Count, 2).End(xlUp).offset(1).Resize(, 9) = Array(CDbl(Emp11.Value), Emp3.Value, Emp2.Value, Emp7.Value, Emp4.Value, Emp5.Value, Emp6.Value, Emp9.Value, Emp10.Value)
End Sub

 

[HSV]

Lijkt me logischer.

Private Sub cmdAdd_Click()
  If Emp11.Value = "" Then
    MsgBox ("Gelieve de bestelhoeveelheid in te vullen aub")
   else
  With Sheets("Order").Cells(Rows.Count, 2).End(xlUp).offset(1).Resize(, 9) = Array(CDbl(Emp11.Value), Emp3.Value, Emp2.Value, Emp7.Value, Emp4.Value, Emp5.Value, Emp6.Value, Emp9.Value, Emp10.Value)
end if
End Sub

 

[starchaser]

Bedankt voor de tip. Is inderdaad een stuk efficiënter.
Dit maakt het leuk : je krijgt 2 oplossingen voor de prijs van 1 :d

 

[HSV]

Het is geen geheim, het is geheel gratis.