Sub beli()
Range(“D7”) = “HARGA JUAL”
Range(“F7”) = “HARGA BELI”
End Sub

Sub beli2()
Range(“D7”) = “HARGA BELI”
Range(“F7”) = “HARGA JUAL”
End Sub

Sub jual()
Range(“D8”) = “HARGA BELI”
Range(“F8”) = “HARGA JUAL”
End Sub

Sub jual2()
Range(“D8”) = “HARGA JUAL”
Range(“F8”) = “HARGA BELI”
End Sub

Sub hapus()
Range(“D7”) = “”
Range(“F7”) = “”
Range(“D7”) = “”
Range(“F7”) = “”
Range(“D8”) = “”
Range(“F8”) = “”
Range(“D8”) = “”
Range(“F8”) = “”
End Sub

Sub Klarifikasi()
Range(“K7”) = “BRUTO”
Range(“K9”) = “NETTO”
Range(“K11”) = “NETTO”
Range(“M7”) = “TARA”
Range(“M9”) = “TARA”
Range(“M11”) = “BRUTO”
End Sub

Sub delete()
Range(“K7”) = “”
Range(“K9”) = “”
Range(“K11”) = “”
Range(“M7”) = “”
Range(“M9”) = “”
Range(“M11”) = “”
End Sub

Sub untung()
Range(“E32”) = “YA”
Range(“E26”) = “YA”
End Sub

Sub rugi()
Range(“G28”) = “YA”
Range(“G30”) = “YA”
End Sub

Sub hupisn()

Range(“E32”) = “”
Range(“E26”) = “”
Range(“G28”) = “”
Range(“G30”) = “”

End Sub