• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

VBA instellen getal met decimalen

Status
Niet open voor verdere reacties.
A

AD1957

Verenigingslid
Lid geworden
27 feb 2016
Berichten
1.990
Beste Forumleden,
Met onderstaande code boek ik rekeningen in de tabel in het inkoopboek.
Het lukt me echter niet om de getallen met decimalen te boeken (100,25 wordt 100,00)
Na een dag zoeken geef ik de hoop op, wie helpt?
Een uitgekleed voorbeeldbestand heb ik bijgevoegd.


Code: 
Private Sub CommandButton1_Click() 'knop OK

With Sheets("inkoopboek").ListObjects(1)
    .ListRows.Add
    .Range.Cells(.ListRows.Count, 1).Offset(1).Resize(, 12) = Array(TextBox1.Value, TextBox12.Value, TextBox2.Value, _
      TextBox3.Value, TextBox4.Value, Val(TextBox5.Value), Val(TextBox6.Value), Val(TextBox7.Value), Val(TextBox8.Value), Val(TextBox9.Value), TextBox10.Value, TextBox11.Value)
     
 End With


  For i = 1 To 11 'leegmaken textboxen
    Me("TextBox" & i).Value = ""
  Next

  TextBox12.Value = TextBox12.Value + 1
  [M1].Value = TextBox12.Value

TextBox1.SetFocus

End Sub
 

Bijlagen

  • invullen inkoopboek.xlsb
    115,5 KB · Weergaven: 20
Dit misschien?

Code: 
Private Sub CommandButton1_Click() 'knop OK

 With Sheets("inkoopboek").ListObjects(1)
    .ListRows.Add
    .Range.Cells(.ListRows.Count, 1).Offset(1).Resize(, 12) = Array(TextBox1.Value, TextBox12.Value, TextBox2.Value, _
      TextBox3.Value, TextBox4.Value, TextBox5.Value, TextBox6.Value, TextBox7.Value, TextBox8.Value, TextBox9.Value, TextBox10.Value, TextBox11.Value)
  End With
  
  With [F:J]
 .Replace ",", "."
 .NumberFormat = "0.00"
  End With

  For i = 1 To 11 'leegmaken textboxen
    Me("TextBox" & i).Value = ""
  Next

  TextBox12.Value = TextBox12.Value + 1
  [M1].Value = TextBox12.Value

TextBox1.SetFocus

End Sub
 
Hoi Jan,

Ik heb het even snel getest, perfect!
Voor alle zekerheid ga ik het nu nog testen in het eigenlijke bestand.
Ik heb nml. wel eens vaker hoera! geroepen en liep dan weer tegen andere problemen aan.
Voor deze hartelijk bedankt.
 
Dat kan handiger.
Code: 
Private Sub CommandButton1_Click() 'knop OK


 With Sheets("inkoopboek").ListObjects(1)
[COLOR=#0000ff]    .ListRows.Add.range.Resize(, 12) = Array(TextBox1.Value, TextBox12.Value, TextBox2.Value, _[/COLOR]
[COLOR=#0000ff]      TextBox3.Value, TextBox4.Value, TextBox5.Value, TextBox6.Value, TextBox7.Value, TextBox8.Value, TextBox9.Value, TextBox10.Value, TextBox11.Value)[/COLOR]
  End With
 
Hoi Harry,
Zal deze code ook eens gaan gebruiken.:thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan