vba. calculating cost with tax

[montecarlo2012]

Hi.
Some sport event, the seating cost are orange seats $23.5. brown seats $19.75, and yellow seats $16.55. there is a tax of 6% on all seats.
the user can buy more than one seat, I need to know the cost of the seats with tax.

I tryed this but do not work

Sub pseu()

'variables are: tickets, colour,  price,  cost, tax

Dim tickets As Integer
Dim color As String
Dim price As Integer
Dim cost As Integer
Dim tax As Integer



'enter number of tickets
tickets = Range("A1").Value



'enter colour of seats needed
Range("B1").Value = colour


'if the colour is orange then the price is 23.5
If colour = orange Then
price = 23.5
End If



' if the colour is brown then the price is 19.75
If colour = brown Then
price = 19.35
End If


' cost = number of tickets x price
cost = tickets * price
Range("C2").Value = cost



'tax = cost   x   6 %
tax = (cost * 6) / 100

Range("E2").Value = tax


'tell the number of tickets, tax and total cost
Range("D1").Value = "tickets" & tickets & "colour) & colour"
End Sub

Thanks for reading
I hope to hear from you

 

[Crystalyzer]

Why do you need to use VBA? Will formulas work? If so please see below. Cell B2 has data validation set to List and the named range of "Color" contains the three colors for the dropdown selector.

Solutions 20210722.001.xlsm
	A	B	C	D	E	F	G	H
1	# of Tickets	Color	Cost	Tax	Total Cost			Brown
2	1	Yellow	16.55	0.99	17.54			Orange
3								Yellow
4
Sheet3

Cell Formulas
Range	Formula
C2	C2	=IFS(B2="Brown",19.75,B2="Orange",23.5,B2="Yellow",16.55,TRUE,0)*A2
D2	D2	=ROUND(C2*0.06,2)
E2	E2	=+C2+D2

Cells with Data Validation
Cell	Allow	Criteria
B2	List	=Color

 

[montecarlo2012]

Thanks cristal but it is not the answer I am looking for, the code I am trying have the pseudocode, the colors will be type on the cells and after calculated, but nice try, thanks.