Fully Automated Invoice Generate with Database and PDF of invoice in Excel 2023

Thanks a lot man ❤

this vba code show 1004 error

Thank you so much, dear. It Worked

I uploaded the file in Description Section, Now you all guys access the file

🎉 very good 👍

Sir posible hoto 1 video Mobile ka invoice kese banaye fully automatic with IMEI k sathe, net amount, gst, word, ye sab include mention karna

Hello mai chahta hoo is invoice ka duplicate bhe save ho folder mai auto

iska link mil sakta he bhai

Aap vlookup ke table array mein pura table select kyu nahi karte ho??

billing नाम के sheet में b8 और e8 से लेकर उसके निचे के सभी cells का data copy करो और उसे sell नाम की sheet पर h4 नाम के cells में transpose के तरीके में paste करे
उदहारण
b8 की value h4 में paste हो
e8 की value i4 में paste हो
b9 की value j4 में paste हो
e9 की value k4 में paste हो
इसका excel vba में code क्या होगा

Sir please send code for this excel I am unable to type RupeeFormat in excel getting an error

Hi sir my iferror is not showing blank instead it's showing 0

good

Sir put vba code in description

Sir put vba code in description

Sir put vba code in description

Sir put vba code in description

Sir can you make a file for us we are the tractor dealer

Bhai Module Code Kese likhen

Sir can you share vba code or excel sheet

invformative excellent

Sir can u send these template on mail

sir what if i want to make some changes in the pervious invoices made

Assalam Alaikum bhai app ka video wala file share karo bhai same file jo video mai bataye ho

how to download your invoice

Sir kindly share your excel sheet with us so we can practice it..🥹plz sir

Very informative & easily interpreting video... Hats off to you

Error run 438a rhahai sir

1 question jab hum new k button pay click kerty han to new invoice no genrate ho jata ha 1 say 2 lakin ager hum dubara new pay click keran to 2 say 3 ho jata ha. ager hum is pay if condition lga dain kay jb tak invoice main date na ho next no genrate na ho. thanks

Function NumberToWords(ByVal MyNumber As Double) As String
Dim Units As Variant
Dim Tens As Variant
Dim Hundreds As Variant
Dim Thousands As Variant
Dim Millions As Variant
Dim Billions As Variant
Dim Currency As Variant
Dim SubUnits As Variant
Dim DecimalPart As String
Dim IntegerPart As String
Dim TempStr As String
Dim Str As String
Dim Num As String

' Define arrays for the number parts
Units = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")
Tens = Array("", "", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
Hundreds = Array("", "One Hundred", "Two Hundred", "Three Hundred", "Four Hundred", "Five Hundred", "Six Hundred", "Seven Hundred", "Eight Hundred", "Nine Hundred")
Thousands = Array("", "One Thousand", "Two Thousand", "Three Thousand", "Four Thousand", "Five Thousand", "Six Thousand", "Seven Thousand", "Eight Thousand", "Nine Thousand")
Millions = Array("", "One Million", "Two Million", "Three Million", "Four Million", "Five Million", "Six Million", "Seven Million", "Eight Million", "Nine Million")
Billions = Array("", "One Billion", "Two Billion", "Three Billion", "Four Billion", "Five Billion", "Six Billion", "Seven Billion", "Eight Billion", "Nine Billion")
Currency = "Dollar"
SubUnits = "Cent"

' Separate the number into integer and decimal parts
IntegerPart = Int(MyNumber)
DecimalPart = (MyNumber - IntegerPart) * 100

' Convert integer part
Num = CStr(IntegerPart)

Select Case Len(Num)
Case 1 ' Units
Str = Units(Val(Num))
Case 2 ' Tens
If Val(Num) < 20 Then
Str = SpecialCases(Num)
Else
Str = Tens(Val(Left(Num, 1))) & " " & Units(Val(Right(Num, 1)))
End If
Case 3 ' Hundreds
Str = Hundreds(Val(Left(Num, 1))) & " " & NumberToWords(CDbl(Right(Num, 2)))
Case 4, 5, 6 ' Thousands
TempStr = Left(Num, Len(Num) - 3)
Str = NumberToWords(CDbl(TempStr)) & " Thousand " & NumberToWords(CDbl(Right(Num, 3)))
Case 7, 8, 9 ' Millions
TempStr = Left(Num, Len(Num) - 6)
Str = NumberToWords(CDbl(TempStr)) & " Million " & NumberToWords(CDbl(Right(Num, 6)))
Case 10, 11, 12 ' Billions
TempStr = Left(Num, Len(Num) - 9)
Str = NumberToWords(CDbl(TempStr)) & " Billion " & NumberToWords(CDbl(Right(Num, 9)))
Case Else
Str = "Number is too large"
End Select

' Convert decimal part if present
If DecimalPart > 0 Then
DecimalPart = Int(DecimalPart)
TempStr = CStr(DecimalPart)
Str = Str & " " & Currency & " and " & NumberToWords(CDbl(TempStr)) & " " & SubUnits
Else
Str = Str & " " & Currency
End If

' Trim and return the final string
NumberToWords = Application.WorksheetFunction.Trim(Str)
End Function

Private Function SpecialCases(ByVal Num As String) As String
' Handle numbers below 20
Select Case Val(Num)
Case 10: SpecialCases = "Ten"
Case 11: SpecialCases = "Eleven"
Case 12: SpecialCases = "Twelve"
Case 13: SpecialCases = "Thirteen"
Case 14: SpecialCases = "Fourteen"
Case 15: SpecialCases = "Fifteen"
Case 16: SpecialCases = "Sixteen"
Case 17: SpecialCases = "Seventeen"
Case 18: SpecialCases = "Eighteen"
Case 19: SpecialCases = "Nineteen"
Case Else: SpecialCases = ""
End Select
End Function

mary pas excl may Deta validation kam nahi kar raha list link nahi hoo rahai kia waja jo sakti haa

Sir rupees formula to aa hi ny ra

Muje koi Mobile main Running wala Excel sheet bana k d. Please

Very nice

Useful information bhai jaan

Agar muje each part & sum data of customer back end pe Lena ho to kya karna hoga, please reply

Nice

if possible please share your mobile no. on my email id please sr

Great work, Sir.

Bohat achi video hay, per ager kuch discuss kerna hoto khan rabta kerein

Very Nice & Imformative Video......🎉🎉🎉

Code Kaha Milega Bro😊

Medicine wholesale ke lia format chahiye

Hum ko xslm file send kar sakte hai sir

Hi , I need to have this template to generate the invoices , how can I buy it .
I need to get some more type of data energy form in excel as well .

Hi can you provide me excel fill

How to serial number add

THANK YOU BROTHER , ITS REALLY VERY HELPFUL

how would you add a pdf link in your backup list with a link, if you click on that link, your saved PDF open?