HELLO FRIENDS!!!
WELCOME TO MY WEBSITE TECHNO EAGLE. FIRST OF ALL IF YOU NOT MY SUBSCRIBER SO FIRST YOU SUBSCRIBE MY CHANNEL AND ALSO CLICK ON THE BELL ICON FOR DAILY UPDATES.
FRIEND FIRST YOU DOWNLOAD TEMPLATE TO THIS LINK:
THERE ARE SOME FORMULAS WHICH YOU HAVE COPY AND PASTE LIKE MY VIDEO.
FORMULAS:
1: DATE FORMUlA:
=TODAY()2: S.NO FORMULA:
=IF(C19="","",1)=IF(C20="","",B19+1)
FRIENDS CHANGE THE COLUMN NUMBER.
3: ITEM NO:
=IFERROR(VLOOKUP(C19,'Item Detail'!B4:E15,2,0),"")
=IFERROR(VLOOKUP(C20,'Item Detail'!B5:E16,2,0),"")
FRIENDS AGAIN CHANGE COLUMN NUMBER.
4: GST RATES:
=IFERROR(VLOOKUP(C19,'Item Detail'!B4:E15,4,0),"")
=IFERROR(VLOOKUP(C20,'Item Detail'!B5:E16,4,0),"")
FRIENDS HERE IS ALSO SAME.
5: RATES:
=IFERROR(VLOOKUP(C19,'Item Detail'!B4:E15,3,0),"")
=IFERROR(VLOOKUP(C20,'Item Detail'!B5:E16,3,0),"")
FRIENDS HERE ALSO SAME.
6: GROSS AMOUNT:
=IFERROR(F19*G19,"")
=IFERROR(F20*G20,"")
FRINDS HERE ALSO SAME.
7: NET AMOUNT:
=IFERROR(H19+H19*E19,"")
=IFERROR(H20+H20*E20,"")
8: GROSS AMOUNT :
=SUM(H19:I28)
9: INTERSTATE SALE:
=IF(J13="Interstate Sale","PRE UNIT TAX","")
=IF(G33="","",J36-J32)
10: STATE SALE:
=IF(J13="state sale","SALES TAX","")
=IF(G34="","",(J36-J32)/2)
=IF(J13="state sale","VALUE ADDED TAX","")
=IF(G35="","",(J36-J32)/2)
11: GRAND TOTAL:
=SUM(J19:K28)
12: AMOUNT IN WORD:
FOR USE AMOUNT IN WORD YOU WANT TO ADD MODULES WHICH CODE IS GIVEN BELOW IN GREEN COLOUR.
Function SpellNumber(ByVal N As Currency) As String
Const Thousand = 1000@
Const Million = Thousand * Thousand
Const Billion = Thousand * Million
Const Trillion = Thousand * Billion
If (N = 0@) Then SpellNumber = "zero": Exit Function
Dim Buf As String: If (N < 0@) Then Buf = "negative " Else Buf = ""
Dim Frac As Currency: Frac = Abs(N - Fix(N))
If (N < 0@ Or Frac <> 0@) Then N = Abs(Fix(N))
Dim AtLeastOne As Integer: AtLeastOne = N >= 1
If (N >= Trillion) Then
Buf = Buf & SpellNumberDigitGroup(Int(N / Trillion)) & " trillion"
N = N - Int(N / Trillion) * Trillion
If (N >= 1@) Then Buf = Buf & " "
End If
If (N >= Billion) Then
Buf = Buf & SpellNumberDigitGroup(Int(N / Billion)) & " billion"
N = N - Int(N / Billion) * Billion
If (N >= 1@) Then Buf = Buf & " "
End If
If (N >= Million) Then
Buf = Buf & SpellNumberDigitGroup(N \ Million) & " million"
N = N Mod Million
If (N >= 1@) Then Buf = Buf & " "
End If
If (N >= Thousand) Then
Buf = Buf & SpellNumberDigitGroup(N \ Thousand) & " thousand"
N = N Mod Thousand
If (N >= 1@) Then Buf = Buf & " "
End If
If (N >= 1@) Then
Buf = Buf & SpellNumberDigitGroup(N)
End If
SpellNumber = Buf
End Function
Private Function SpellNumberDigitGroup(ByVal N As Integer) As String
Const Hundred = " hundred"
Const One = "one"
Const Two = "two"
Const Three = "three"
Const Four = "four"
Const Five = "five"
Const Six = "six"
Const Seven = "seven"
Const Eight = "eight"
Const Nine = "nine"
Dim Buf As String: Buf = ""
Dim Flag As Integer: Flag = False
Select Case (N \ 100)
Case 0: Buf = "": Flag = False
Case 1: Buf = One & Hundred: Flag = True
Case 2: Buf = Two & Hundred: Flag = True
Case 3: Buf = Three & Hundred: Flag = True
Case 4: Buf = Four & Hundred: Flag = True
Case 5: Buf = Five & Hundred: Flag = True
Case 6: Buf = Six & Hundred: Flag = True
Case 7: Buf = Seven & Hundred: Flag = True
Case 8: Buf = Eight & Hundred: Flag = True
Case 9: Buf = Nine & Hundred: Flag = True
End Select
If (Flag <> False) Then N = N Mod 100
If (N > 0) Then
If (Flag <> False) Then Buf = Buf & " "
Else
SpellNumberDigitGroup = Buf
Exit Function
End If
Select Case (N \ 10)
Case 0, 1: Flag = False
Case 2: Buf = Buf & "twenty": Flag = True
Case 3: Buf = Buf & "thirty": Flag = True
Case 4: Buf = Buf & "forty": Flag = True
Case 5: Buf = Buf & "fifty": Flag = True
Case 6: Buf = Buf & "sixty": Flag = True
Case 7: Buf = Buf & "seventy": Flag = True
Case 8: Buf = Buf & "eighty": Flag = True
Case 9: Buf = Buf & "ninety": Flag = True
End Select
If (Flag <> False) Then N = N Mod 10
If (N > 0) Then
If (Flag <> False) Then Buf = Buf & "-"
Else
SpellNumberDigitGroup = Buf
Exit Function
End If
Select Case (N)
Case 0:
Case 1: Buf = Buf & One
Case 2: Buf = Buf & Two
Case 3: Buf = Buf & Three
Case 4: Buf = Buf & Four
Case 5: Buf = Buf & Five
Case 6: Buf = Buf & Six
Case 7: Buf = Buf & Seven
Case 8: Buf = Buf & Eight
Case 9: Buf = Buf & Nine
Case 10: Buf = Buf & "ten"
Case 11: Buf = Buf & "eleven"
Case 12: Buf = Buf & "twelve"
Case 13: Buf = Buf & "thirteen"
Case 14: Buf = Buf & "fourteen"
Case 15: Buf = Buf & "fifteen"
Case 16: Buf = Buf & "sixteen"
Case 17: Buf = Buf & "seventeen"
Case 18: Buf = Buf & "eighteen"
Case 19: Buf = Buf & "nineteen"
End Select
SpellNumberDigitGroup = Buf
End Function
AFTER ADD MODULE YOU WANT TO USE FORMULA WHICH IS GIVEN BELOW :
=PROPER(SpellNumber(J36))
HERE YOU COMPLETE OF MAKING OR CREATING FULL AUTOMATIC MULTI RATE GST INVOICE IN EXCEL.
FRIEND THESE FORMULAS IS GIVEN ABOVE IS USE BY WATCHING MY VIDEO AND IF YOU WANT NEW INVOICE CODE THEN CLICK HERE.
IF YOU WANT SAVE INVOICE IN PDF FORMAT CODE THEN CLICK HERE.
IF YOU WANT SAVE INVOICE IN THE SAME SHEET CODE THEN CLICK HERE.
No comments:
Post a Comment