BTW uitrekenen

[John83]

Heren,

Ik wil graag een script voor het uitrekenen van de BTW.
Het script moet ook testen of de cel een niet numerieke waarde (getal) bevat.
Het volgende heb ik al in gebruik:
Private Sub okButton_Click()
If IsNumeric(123) Then
If BTWm.Value = True Then _
Range("A2") = BTWm.Value
Range("B2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*1.19"
Range("B3").Select

If BTWz.Value = True Then _
Range("B3") = BTWz.Value
Range("A3").Select
ActiveCell.FormulaR1C1 = "=RC[+1]/1.19"
Range("B4").Select
Unload Me
End If

End Sub

Kan iemand mij helpen?

Al vast bedankt

Groet,

John

 

[henkhoogerbrug]

Wat is precies de bedoeling van het script? Je kunt in excel namelijk ook de functie =GETAL() gebruiken om je numerieke check te doen (uit je code begrijp ik dat het maar 2 cellen zijn die gecheckt moeten worden?).

Plaats anders even een voorbeeldbestand waarin je uitlegt wat er moet gebeuren.

 

[snb]

Private Sub okButton_Click()
  If IsNumeric(123) Then
    [B2]=[A2].*1.19
    [A3]=123
  End If
End Sub

 

[John83]

Heren,

De bedoeling hiervan is;
Een userform waarbij de gebruiker het percentage BTW kan opgeven. Het script kan 2 soorten berekeningen uitvoeren; het bedrag met BTW en terug naar zonder BTW, Het script test of de cel een niet numerieke waarde bevat.

John

 

[henkhoogerbrug]

Ik begrijp het probleem nog niet helemaal, maar met IsNumeric(Range("A1")) test je of cel A1 numeriek is. Als de cel leeg is krijg je ook "True" als resultaat (IsNumeric(123) is altijd true).

Is dat wat je bedoeld?

 

[John83]

Dat is wat ik bedoelde.

Bedankt

John83

 

[Wigi]

Zet dan nog de vraag op opgelost aub.