Valuta in cellen

[gast0660]

Hoi,
Beste helpers voor de cellen
Algemeen totaal (ex Btw)
Btw 6%
Btw 21%
Btw totaal
krijg ik geen valuta in kolom H (zie vbtje)
Via userform
Testen via userform eerst op berekenen klikken en daarna op werk af
Weet iemand een oplosing?
Alvast bedankt voor het meedenken

 

[snb]

Excel heeft een ingebouwd currency numberformat.

het kan ook met VBA en zonder variabelen:

Private Sub CommandButton4_Click()
  With activesheet.Cells(Rows.Count, 3).End(xlUp)
    .Offset(1).Resize(7) = Application.Transpose(Array(1 * TextBox20, 1 * TextBox30, 1 * TextBox31, 1 * TextBox21, 1 * TextBox25, 1 * TextBox28, 1 * TextBox23))
    .Offset(1, 5).Resize(7) = Application.Transpose(Array(1 * TextBox12, 1 * TextBox29, 1 * TextBox32, 1 * TextBox22, 1 * TextBox26, 1 * TextBox27, 1 * TextBox24))
    .Offset(7, 5).Font.Underline = xlUnderlineStyleSingle
  End With
End Sub

 

[edmoor]

Of doe eerst:
Range("H22:H27").Style="Currency"
En zet daarna de waarden erin.

 

[gast0660]

Beste Snb,
Ik krijg helaas een foutmelding
Fout 13 tijdens uitvoering
Typen komen niet met elkaar overeen
Desondanks heb ik soms het gevoel dat jij zelf excel ontworpen hebt.
Groet

 

[gast0660]

Beste Edmoor,
De range is helaas nooit dezelfde
Maar alvast voor het meedenken
Groet

 

[edmoor]

Die range kan je uiteraard zelf bepalen. Het gaat erom dat je die style voor de betreffende range zet.

 

[gast0660]

Beste Edmoor,
De range is kolom H, maar als ik uw code toepas krijg ik hetzelfde resultaat
Groet

 

[edmoor]

Hier werkt het goed in het document dat je plaatste.

 

[gast0660]

Hoi Edmoor,
Heb je een vbtje, mischien kan ik dan zien waar ik de mist inga?
Alvast bedankt

 

[snb]

Gebruik:

Private Sub CommandButton4_Click()
   With ActiveSheet.Cells(Rows.Count, 3).End(xlUp)
      .Offset(1).Resize(7) = Application.Transpose(Array(TextBox20, TextBox30, TextBox31, TextBox21, TextBox25, TextBox28, TextBox23))
      .Offset(1).Resize(7).font.bold=true
      .Offset(1, 5).Resize(7) = Application.Transpose(Array(1 * TextBox12, 1 * TextBox29, 1 * TextBox32, 1 * TextBox22, 1 * TextBox26, 1 * TextBox27, 1 * TextBox24))
      .Offset(7, 5).Font.Underline = xlUnderlineStyleSingle
    End With
End Sub

hierbij commandbutton2:

Private Sub CommandButton2_Click()
    With ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Offset(1, -1).Resize(, 8)
        .Value = Array(1 * TextBox9, ComboBox3, 1 * TextBox10, 1 * TextBox14, 1 * ComboBox4, 1 * TextBox17, 1 * TextBox19)
        .Font.Italic = InStr("arbeidsloonpuinafvoer", ComboBox3.Value)
    End With
End Sub

@Edmoor

Range("H22:H27").numberformat="$ #,##0.00_-"

 

[gast0660]

hoi Snb en Edmoor,
hartelijk dank, ik ga daar morgenvroeg mee verder, bij mij loopt de wekker af om 04.00 uur, al + 20 jaar dus zelf zonder wekker ben ik klaar wakker om 04.00 uur en dit is al laat voor mij.
Groet

 

[gast0660]

Hoi,
Ik ben vandaag helaas niets wijzer geworden. Ik kom er niet uit.
Iemand nog een idee?

 

[snb]

Gebruik alle debugging hulpmiddelen die tot je beschikking staan (Immediate window/locals/ muis over variabele/control / F8 ) en ga stap voor stap door de code, want hier funktioneert het 'tadellos'.

 

[hellboy01]

Ik heb bij mij zoiets staan ik weet niet of dit helpt.

Dim totaalBedrag As Double
'totaalBedrag = frmIJswinkel(betaalTotaal)
'MsgBox (totaalBedrag)


Private Sub UserForm_Initialize()
 lblPrijstotaal = FormatCurrency(totaalPrijsBedrag)
 btnBetaald.Enabled = False
End Sub

Private Sub btn5Euro_Click()
txtGeldVanKlant.Value = FormatCurrency(5)
End Sub

Private Sub btn10Euro_Click()
txtGeldVanKlant.Value = FormatCurrency(10)
End Sub

Private Sub btn20Euro_Click()
txtGeldVanKlant.Value = FormatCurrency(20)
End Sub

Private Sub btn50Euro_Click()
txtGeldVanKlant.Value = FormatCurrency(50)
End Sub


Private Sub btnBetaald_Click()

frmIJswinkel.VerkoopDataRegistreren
frmIJswinkel.btnClear = True
totaalPrijsBedrag = 0
'frmIJswinkel.Tag = "Startscroll"
frmIJswinkel.Tag = "test"
Unload Me

End Sub

Private Sub btnWisselgeld_Click()

lblWisselgeld.Caption = FormatCurrency(txtGeldVanKlant.Text - lblPrijstotaal.Caption)
lblWisselgeld.BackColor = rgbForestGreen
btnBetaald.Enabled = True
End Sub

Private Sub txtGeldVanKlant_Exit(ByVal Cancel As MSForms.ReturnBoolean)
txtGeldVanKlant.Value = FormatCurrency(txtGeldVanKlant.Value)
End Sub

 

[hellboy01]

en dit is voor de celvulling excel;

ik werk met variabelen.

Sub VerkoopDataRegistreren()

'***Vastleggen verkoop gegevens Excel***
Worksheets("Data").Activate
Dim lrow As Long
lrow = Range("A100000").End(xlUp).Row
Cells(lrow + 1, 1).Value = FormatNumber(aantalIJsbol)
Cells(lrow + 1, 2).Value = FormatCurrency(prijsVanille)
Cells(lrow + 1, 3).Value = FormatCurrency(prijsChocola)
Cells(lrow + 1, 4).Value = FormatCurrency(prijsAardbei)
Cells(lrow + 1, 5).Value = FormatCurrency(prijsIJs)
Cells(lrow + 1, 6).Value = FormatCurrency(prijsToppingFudge)
Cells(lrow + 1, 7).Value = FormatCurrency(prijsToppingSlagroom)
Cells(lrow + 1, 8).Value = FormatCurrency(prijsToppingSprinkels)
Cells(lrow + 1, 9).Value = FormatCurrency(prijsToppingTotaal)
Cells(lrow + 1, 10).Value = FormatCurrency(prijsSouvenier)
Cells(lrow + 1, 11).Value = FormatCurrency(fooitje)
Cells(lrow + 1, 12).Value = FormatCurrency(prijsIJsTotaal)
Cells(lrow + 1, 13).Value = FormatDateTime(Now)
Cells(lrow + 1, 14).Value = FormatDateTime(Date, vbShortDate)
Cells.Columns.HorizontalAlignment = xlCenter

End Sub

 

[gast0660]

Hoi Snb,
Heb alles werkend gekregen alleen krijg ik nu bij de totalen 30 187,00 ipv 301,87

groet

 

[snb]

delen door 100 ?

 

[gast0660]

Beste snb,
Euh?
Hierbij het aangepast bestandje
Kijk eens naar het blad offerte bij de totalen
Alvast bedankt

 

[VenA]

Waar die factor 100 vandaan kwam heb ik niet gevonden. Ook niet echt naar gezocht met zoveel regels code die de opmaak regelen.:d

De factor 100 is eruit ook was de berekening van de BTW in het totaalstaatje niet correct. is ook aangepast.

Nb. Persoonlijk zou ik alle toeters en bellen qua opmaak eruit halen omdat het niet rustig leest. (is een persoonlijke smaak)

 

[gast0660]

Hoi Vena,
Hartelijk dank voor het helpen, helaas heb ik nu het eerste probleem terug, in uw vbtje krijg ik bij de btw geen valuta
groet