Valuta in cellen

[VenA]

Maar wel het juiste getal en daar gaat het om

Moet ik me toch nog even verdiepen in de code. Maar waarom zet je kolom H niet standaard op valuta? Hier komen toch alleen bedragen en hoef je het niet met VBA te ondervangen.

 

[snb]

Verwijder al die overbodige textbox_change gebeurtenissen.
Verwijder alle code die niet meer van toepassing is omdat bijv. de controls zijn verwijderd.

Gebruik slechts 1 methode om een bepaald effekt te bereiken: nu werken ze elkaar tegen.

Private Sub CommandButton3_Click()
  With ActiveSheet
    TextBox12.Text = FormatNumber(Application.Sum(.Columns(5)), 2)
    TextBox22.Text = FormatNumber(Application.Sum(.Columns(7)), 2)
    TextBox24.Text = FormatNumber(Application.Sum(.Columns(8)), 2)
    TextBox26.Text = FormatNumber(Application.SumIfs(.Columns(8), .Columns(3), "arbeidsloon"), 2)
    TextBox27.Text = FormatNumber(Application.SumIfs(.Columns(8), .Columns(3), "puinafvoer"), 2)
    TextBox29.Text = FormatNumber(Application.SumIfs(.Columns(8), .Columns(6), "6"), 2)
    TextBox32.Text = FormatNumber(Application.SumIfs(.Columns(8), .Columns(6), "21"), 2)
  End With
End Sub

Een systematischer opbouw van de naamgeving van controls zou ook geen kwaad kunnen.

 

[VenA]

Getallen/bedragen zou ik rechts uitlijnen. Om voor elk bedrag een valutasymbool te zetten is volgens mij ook niet echt gebruikelijk. Maar goed u vraagt, wij draaien.:d

 

[gast0660]

Hoi Vena,
Dit werkt perfect
Hartelijk dank
Aan iedereen hartelijk dank voor het meedenken en helpen
Groet