View Single Post
 
Old 06-22-2022, 05:46 AM
p45cal's Avatar
p45cal p45cal is offline Windows 10 Office 2019
Expert
 
Join Date: Apr 2014
Posts: 634
p45cal is a splendid one to beholdp45cal is a splendid one to beholdp45cal is a splendid one to beholdp45cal is a splendid one to beholdp45cal is a splendid one to beholdp45cal is a splendid one to beholdp45cal is a splendid one to beholdp45cal is a splendid one to behold
Default

Something along the lines of:
Code:
Sub NV_Goods()
'
' NV_Goods Macro
' Witholding Taxes on Non VAT Goods.
'

'
ActiveCell.FormulaR1C1 = "=ROUND(R[-1]C[-1]*0.01,2)"
ActiveCell.Offset(1).FormulaR1C1 = "=ROUND(R[-2]C[-1]*0.01,2)"
ActiveCell.Offset(2).FormulaR1C1 = "=R[-3]C[-1]-R[-2]C-R[-1]C"
ActiveCell.Offset(3).Select
 End Sub




 Sub NV_Services()
'
' NV_Services Macro
' Witholding Taxes on Non VAT Services
'

'
ActiveCell.FormulaR1C1 = "=ROUND(R[-1]C[-1]*0.02,2)"
ActiveCell.Offset(1).FormulaR1C1 = "=ROUND(R[-2]C[-1]*0.01,2)"
ActiveCell.Offset(2).FormulaR1C1 = "=R[-3]C[-1]-R[-2]C-R[-1]C"
ActiveCell.Offset(3).Select
End Sub
You get the drift.
Reply With Quote