Thursday, November 5, 2020

Listbox advance Filter Userform Excel VBA

 Listbox advance Filter Userform Excel VBA


Listbox advance Filter Userform Excel VBA

Watch Video


VBA Code

Listbox Fill

Private Sub UserForm_Initialize()
Dim i As Long
Dim X As Integer
For i = 1 To Sheet1.Range("A1000000").End(xlUp).Row
Me.ListBox1.AddItem
For X = 1 To 7
Me.ListBox1.List(i - 1, X - 1) = Sheet1.Cells(i, X)
Next X
Next i
End Sub

Combobox Fill Without Duplicate Value

Private Sub UserForm_Activate()
'Voucher Box Fill
Dim i As Long  'Cobobox fill   Voucher
Dim VCH As New Collection
Dim Mylist As String
For i = 2 To Sheet1.Range("A1000000").End(xlUp).Row
On Error Resume Next
VCH.Add Sheet1.Cells(i, "A"), Sheet1.Cells(i, "A")
Next i
For Each ITM In VCH
Me.VCHBox.AddItem ITM
Next ITM

'Name Box Fill
Dim X As Long
Dim NME As New Collection     'Cobobox fill   Namebox
For X = 2 To Sheet1.Range("A1000000").End(xlUp).Row
NME.Add Sheet1.Cells(X, "B"), Sheet1.Cells(X, "B")
Next X
For Each NIT In NME
Me.NAMEBox.AddItem NIT
Next NIT

'Admin Box Fill
Dim c As Long
Dim ADM As New Collection      'Cobobox fill Admin
For c = 2 To Sheet1.Range("A1000000").End(xlUp).Row
ADM.Add Sheet1.Cells(c, "C"), Sheet1.Cells(c, "C")
Next c

For Each MIT In ADM
Me.ADMNBox.AddItem MIT
Next MIT

End Sub


'Combobox  Activate

Private Sub VCHBox_Change()
Dim i, X As Integer
Dim Mylist As String
With Me.ListBox1
For i = 1 To .ListCount - 1
For X = i To .ListCount - 1
If .List(X, 0) = Me.VCHBox Then
For c = 0 To 6
Mylist = .List(X, c)
.List(X, c) = .List(i, c)
.List(i, c) = Mylist
Me.ListBox1.Selected(i) = True
Next c
End If
Next X
Next i

Dim M As Integer
Dim SUM, SUM1 As Double
For M = 1 To .ListIndex()
SUM = SUM + Val(.List(M, 3))
SUM1 = SUM1 + Val(.List(M, 4))
Next M
Me.TextBox1 = Format(SUM1, "#####.00")
Me.TextBox2 = Format(SUM, "#####.00")

End With
End Sub

Private Sub NAMEBox_Change()
Dim i, X As Integer
Dim Mylist As String
With Me.ListBox1
For i = 1 To .ListCount - 1
For X = i To .ListCount - 1
If .List(X, 1) = Me.NAMEBox Then
For c = 0 To 6
Mylist = .List(X, c)
.List(X, c) = .List(i, c)
.List(i, c) = Mylist
Me.ListBox1.Selected(i) = True
Next c
End If
Next X
Next i

Dim M As Integer
Dim SUM, SUM1 As Double
For M = 1 To .ListIndex()
SUM = SUM + Val(.List(M, 3))
SUM1 = SUM1 + Val(.List(M, 4))
Next M
Me.TextBox1 = Format(SUM1, "#####.00")
Me.TextBox2 = Format(SUM, "#####.00")

End With
End Sub


Private Sub ADMNBox_Change()
Dim i, X As Integer
Dim Mylist As String
With Me.ListBox1
For i = 1 To .ListCount - 1
For X = i To .ListCount - 1
If .List(X, 2) = Me.ADMNBox Then
For c = 0 To 6
Mylist = .List(X, c)
.List(X, c) = .List(i, c)
.List(i, c) = Mylist
Me.ListBox1.Selected(i) = True
Next c
End If
Next X
Next i

Dim M As Integer
Dim SUM, SUM1 As Double
For M = 1 To .ListIndex()
SUM = SUM + Val(.List(M, 3))
SUM1 = SUM1 + Val(.List(M, 4))
Next M
Me.TextBox1 = Format(SUM1, "#####.00")
Me.TextBox2 = Format(SUM, "#####.00")

End With
End Sub


 

 

Thursday, September 24, 2020

TreeView Conditional Format Useform Excel VBA

 TreeView Conditional Format Useform Excel VBA

Create Mini Calendar


Watch Video

VBA code
Private Sub UserForm_Initialize()
Dim i, x As Integer
With Me.TreeView1
'Title
.Nodes.Add , , "A1", "Calendar  " & Year(Date)
'Month Name
For i = 1 To 12
.Nodes.Add , , "B" & i, MonthName(i)

'Calendar
For C = 1 To 31
On Error Resume Next
.Nodes.Add "B" & 1, tvwChild, "C" & C, CDate(C & "/" & 1 & "/" & Year(Date))
.Nodes.Add "B" & 2, tvwChild, "D" & C, CDate(C & "/" & 2 & "/" & Year(Date))
.Nodes.Add "B" & 3, tvwChild, "E" & C, CDate(C & "/" & 3 & "/" & Year(Date))
.Nodes.Add "B" & 4, tvwChild, "F" & C, CDate(C & "/" & 4 & "/" & Year(Date))
.Nodes.Add "B" & 5, tvwChild, "G" & C, CDate(C & "/" & 5 & "/" & Year(Date))
.Nodes.Add "B" & 6, tvwChild, "H" & C, CDate(C & "/" & 6 & "/" & Year(Date))
.Nodes.Add "B" & 7, tvwChild, "I" & C, CDate(C & "/" & 7 & "/" & Year(Date))
.Nodes.Add "B" & 8, tvwChild, "J" & C, CDate(C & "/" & 8 & "/" & Year(Date))
.Nodes.Add "B" & 9, tvwChild, "K" & C, CDate(C & "/" & 9 & "/" & Year(Date))
.Nodes.Add "B" & 10, tvwChild, "L" & C, CDate(C & "/" & 10 & "/" & Year(Date))
.Nodes.Add "B" & 11, tvwChild, "M" & C, CDate(C & "/" & 11 & "/" & Year(Date))
.Nodes.Add "B" & 12, tvwChild, "N" & C, CDate(C & "/" & 12 & "/" & Year(Date))
Next C
Next i
'Days
For x = 2 To .Nodes.Count
.Nodes.Add .Nodes(x).Key, tvwChild, "O" & x, Format(.Nodes(x).Text, "DDDD")

'Conditional format
If .Nodes(x).Text = Format(Date, "MMMM") Then
.Nodes(x).ForeColor = &H8000&
End If
If Format(.Nodes(x).Text, "DDDD") = "Sunday" Then
.Nodes(x).ForeColor = vbRed
.Nodes(x).Child.ForeColor = vbRed
End If
Next x
End With
End Sub




Thursday, September 3, 2020

Thursday, August 13, 2020

Sum On Combobox Excel VBA

 Sum On Combobox Excel VBA

Sum On Combobox Excel VBA Data Sum Total On Combobox List From Database Thank you कॉम्बोबॉक्स एक्सेल VBA पर योग डेटाबेस से कंबॉक्‍स सूची पर डेटा सम योग धन्यवाद مجموع Combobox Excel VBA إجمالي مجموع البيانات في قائمة Combobox من قاعدة البيانات شكرا جزيلا


Watch Video


Thursday, August 6, 2020

How To Enter Data Bay Match Cells Start Digit Excel VBA

How To Enter Data Bay Match Cells Start Digit Excel VBA


How To Enter Data Bay Match Cells Start Digit Excel VBA This Video Helping data entry with match start spell in cells Thank you कैसे डेटा बे मैच दर्ज करें अंक एक्सेल VBA शुरू करने के लिए यह वीडियो कोशिकाओं में मिलान शुरू वर्तनी के साथ डेटा प्रविष्टि में मदद करता है धन्यवाद كيفية الدخول إلى مباراة خليج البيانات ابدأ في رقم Excel VBA يساعد هذا الفيديو في إدخال البيانات مع تهجئة بداية المباراة في الخلايا شكرا جزيلا
                            
Watch Video


Thursday, July 30, 2020

How to Create Userform Login logout Admin access Only Excel VBA

How to Create Userform Login logout Admin access Only Excel VBA

How to Create Userform Login logout Admin access Only Excel VBA A Userform Protected By Password You Can Acces Only By Username And Pasword Help For Data Entry With Admin Name Thank you उपयोगकर्ता लॉगिन लॉगआउट कैसे बनाएँ एक उपयोगकर्ता द्वारा संरक्षित पासवर्ड आप केवल उपयोगकर्ता नाम और Pasword मदद कर सकते हैं व्यवस्थापक नाम के साथ डेटा प्रविष्टि के लिए धन्यवाद كيفية إنشاء تسجيل دخول Userform تسجيل الدخول وصول المسؤول فقط Excel VBA نموذج مستخدم محمي بكلمة مرور يمكنك الوصول إليه فقط عن طريق اسم المستخدم وتعليمات كلمة المرور لإدخال البيانات مع اسم المسؤول
How to Create Userform Login logout Admin access Only Excel VBA

Watch Video

Thursday, July 23, 2020

Listbox Data Browse from Folder Excel VBA

Listbox Data Browse from Folder Excel VBA

This Working From Two workbook one have useform Listbox Brows Other Workbook from folder for Data And close Automatically with out dispaly second workbook Thank you दो कार्यपुस्तिका से यह कार्य करने वाले का उपयोग लिस्टबॉक्स ब्रॉउज़ है डेटा के लिए फ़ोल्डर से अन्य कार्यपुस्तिका और बाहर की वितरण वाली दूसरी कार्यपुस्तिका के साथ स्वचालित रूप से बंद करें धन्यवाद هذا العمل من اثنين من المصنف واحد يحتوي على شكل قائمة استعراض مستعرض مصنف آخر من مجلد البيانات وإغلاقه تلقائيًا مع عدم وجود مصنف ثانٍ.

Listbox Data Browse from Folder Excel VBA

Watch Video

Monday, July 20, 2020

How to find Device Name And Create Welcome Message Excel VBA

How to find Device Name And Create Welcome Message Excel VBA

Find your Device Name And Create Welcome Message When Opening Workbook Automatically अपने डिवाइस का नाम ढूंढें और कार्यपुस्तिका को स्वचालित रूप से खोलने पर स्वागत संदेश बनाएँ ابحث عن اسم جهازك وقم بإنشاء رسالة ترحيب عند فتح المصنف تلقائيًا Thank you
How to find Device  Name And Create Welcome Message Excel VBA
Watch Video

Thursday, July 9, 2020

How to Get Complete Data In to Msgbox Excel VBA

How to Get Complete Data In to Msgbox Excel VBA

A Video explain How to get Data In to Msgbox You can find data into msgbox very easy with VBA code with our using userform Thank you एक वीडियो समझाता है कि Msgbox में डेटा कैसे प्राप्त करें आप हमारे उपयोग करने वाले उपयोगकर्ता के साथ VBA कोड के साथ बहुत आसानी से msgbox में डेटा पा सकते हैं धन्यवाद فيديو يشرح كيفية إدخال البيانات إلى Msgbox يمكنك العثور على البيانات في msgbox بسهولة بالغة مع كود VBA باستخدام نموذج المستخدم الخاص بنا شكرا

How to  Get Complete Data In to Msgbox Excel VBA

Watch Video

Monday, July 6, 2020

Create Deposit And withdrawal Transaction form Multipage Excel VBA

Create Deposit And withdrawal Transaction form Multipage Excel VBA

In This Video I showing how to create Transaction deposit and withdrawing form And searching Transaction by account number And printout Thank you
इस वीडियो में मैं दिखा रहा हूं कि ट्रांजेक्शन डिपॉजिट और निकासी कैसे करें फ़ॉर्म और खाता संख्या और प्रिंटआउट द्वारा लेनदेन खोज धन्यवाद

في هذا الفيديو ، أوضح كيفية إنشاء إيداع وسحب المعاملاتشكل والبحث عن المعاملات برقم الحساب والطباعة شكراً لك

Create Deposit And withdrawal Transaction form Multipage Excel VBA

Watch Video

VBA Code
Userform1
Initialize

Private Sub UserForm_Initialize()

Me.TextBox1.SetFocus        'Page1 Recept Voucher
Me.TextBox9 = CDate(Date)   'Page1 Recept Voucher
Me.TextBox19 = CDate(Date)  'Page2 Payment Voucher
'Multipage Format
Me.MultiPage1.BackColor = &H80000003
Me.MultiPage1.Left = 8
Me.TextBox25 = CDate(Date)
With Sheet3.Range("A1000000").End(xlUp)
'Reference number project
Me.TextBox21 = 110100 + .Row  'Page3  Create Account
End With
End Sub



Create Deposit And withdrawal Transaction form Multipage Excel VBA


Private Sub TextBox3_Change() 'Page1 Recept Voucher
'Page1 Recept Voucher
On Error Resume Next
Me.TextBox4 = Format(Val(Me.TextBox2) + Val(Me.TextBox3), "#####.00")
If Val(Me.TextBox3) >= 1 Then
Me.CommandButton2.Enabled = True
Else
Me.CommandButton2.Enabled = False
End If
End Sub

Search Button
Private Sub CommandButton1_Click() 'Page1 Recept Voucher 'Page1 Recept Voucher Dim MyRow As Long Dim CRD, DBT As Long Me.Label34.Visible = False With Sheet3 On Error Resume Next MyRow = Application.WorksheetFunction.Match(Val(Me.TextBox1), .Range("A:A"), 0) Me.TextBox5 = .Cells(MyRow, "B") 'Ac Name Me.TextBox6 = .Cells(MyRow, "C") 'Cntact No Me.TextBox7 = .Cells(MyRow, "D") 'Address Me.TextBox8 = .Cells(MyRow, "E") 'Opening Dtae Me.TextBox10 = .Cells(MyRow, "A") 'Ac number 'Credit Amount Total 'Colmn(D:D) Credit Amount Account Number CRD = Application.WorksheetFunction.SumIfs(Sheet2.Range("D:D"), Sheet2.Range("B:B"), Val(Me.TextBox1)) 'Debit Amount Total 'Colmn(E:E) Debit Amount 'Account Number DBT = Application.WorksheetFunction.SumIfs(Sheet2.Range("E:E"), Sheet2.Range("B:B"), Val(Me.TextBox1)) 'Credit - Debit Me.TextBox2 = Format(Val(CRD - DBT), "#####.00") End With Me.TextBox3.SetFocus End Sub

Save Button
Private Sub CommandButton2_Click() 'Page1 Recept Voucher
'Page1 Recept Voucher

With Sheet2.Range("A1000000").End(xlUp) 'Database
On Error Resume Next
.Offset(1, 0) = CDate(Me.TextBox9)   'Date
.Offset(1, 1) = Val(Me.TextBox10)    'Dccount no
Offset(1, 2) = Me.TextBox5.Value    'Name
.Offset(1, 3) = Me.TextBox3.Value    'Credit Amount
.Offset(1, 5) = .Row + 100           'Reference No
End With
For i = 1 To 9
Me("textbox" & i) = ""
Next i
Me.TextBox9 = CDate(Date)
Me.TextBox1.SetFocus
Me.Label34.Visible = True
End Sub

Create Deposit And withdrawal Transaction form Multipage Excel VBA


Private Sub TextBox13_Change() 'Page2  Payment Voucher
'Page2  Payment Voucher
On Error Resume Next
                    'Current Balance    - Debit Amount
Me.TextBox14 = Format(Val(Me.TextBox12) - Val(Me.TextBox13), "#####.00")
   'Payment Amount      'Current BAlance Amount
If Val(Me.TextBox13) <= Val(Me.TextBox12) Then
Me.CommandButton4.Enabled = True
Me.Label27.Caption = ""   'Label ("Sorry Not Enogh Amount)
Else
Me.CommandButton4.Enabled = False  'Save Button
Me.Label27.Caption = "Sorry Not Enough Amount"
End If
End Sub

Search Button
Private Sub CommandButton3_Click() 'Page2 Payment Voucher 'Page2 Payment Voucher Dim MyRow As Long Dim CRD, DBT As Long Me.Label35.Visible = False With Sheet3 'Ledger On Error Resume Next MyRow = Application.WorksheetFunction.Match(Val(Me.TextBox11), .Range("A:A"), 0) Me.TextBox20 = .Cells(MyRow, "A") 'Account Number Me.TextBox15 = .Cells(MyRow, "B") 'Account Name Me.TextBox16 = .Cells(MyRow, "C") 'Cntact No Me.TextBox17 = .Cells(MyRow, "D") 'Address Me.TextBox18 = .Cells(MyRow, "E") 'Opening Date 'Credit Amount Total CRD = Application.WorksheetFunction.SumIfs(Sheet2.Range("D:D"), Sheet2.Range("B:B"), Val(Me.TextBox11)) 'Debit Amount Total DBT = Application.WorksheetFunction.SumIfs(Sheet2.Range("E:E"), Sheet2.Range("B:B"), Val(Me.TextBox11)) 'Credit - Debit Me.TextBox12 = Format(Val(CRD - DBT), "#####.00") End With Me.TextBox13.SetFocus End Sub

Save Button
Private Sub CommandButton4_Click() 'Page2 Payment Voucher

'Page2 Payment Voucher
With Sheet2.Range("A1000000").End(xlUp)
On Error Resume Next
.Offset(1, 0) = CDate(Me.TextBox19)  'Date
.Offset(1, 1) = Val(Me.TextBox20)    'Acoount Number
.Offset(1, 2) = Me.TextBox15.Value   'Ac Name
.Offset(1, 4) = Me.TextBox13.Value   'Debit Amount
.Offset(1, 5) = .Row + 100           'Reference Amount
End With
For i = 11 To 20
Me("textbox" & i) = ""     'All Textbox Clear
Next i
Me.TextBox19 = CDate(Date) 'Current Date
Me.TextBox11.SetFocus
Me.Label35.Visible = True
End Sub

Create Deposit And withdrawal Transaction form Multipage Excel VBA

Private Sub TextBox22_Change() 'Page3  Create Account
'Page3  Create Account
On Error Resume Next
Me.TextBox22 = Format(StrConv(Me.TextBox22, vbProperCase))
Me.Label36.Visible = False
Me.Label37.Visible = False
Me.Label38.Visible = False
End Sub

Save button
Private Sub TextBox24_Change() 'Page3  Create Account
'Page3  Create Account
On Error Resume Next
Me.TextBox24 = Format(StrConv(Me.TextBox24, vbProperCase))
End Sub

Private Sub CommandButton5_Click() 'Page3 Create Account
'Page3 Create Account
If Me.TextBox22 = "" Or Me.TextBox23 = "" Or Me.TextBox24 = "" Then
MsgBox "Please Please Fill Complete"
Else
With Sheet3.Range("A1000000").End(xlUp)
.Offset(1, 0) = Me.TextBox21.Value      'Account Number
.Offset(1, 1) = Me.TextBox22.Value      'Account Name
.Offset(1, 2) = Me.TextBox23.Value      'Contact Number
.Offset(1, 3) = Me.TextBox24.Value      'Address
.Offset(1, 4) = Me.TextBox25.Value      'Ac Opening Date
Me.Label37.Visible = True
Me.Label38.Visible = True
Me.Label37.Caption = "Account No     : " & Me.TextBox21.Value
Me.Label38.Caption = "Account Name: " & Me.TextBox22
Me.TextBox21 = Me.TextBox21 + 1         'Project New Ac Number
Me.TextBox22 = ""
Me.TextBox23 = ""
Me.TextBox24 = ""
Me.TextBox25 = ""
Me.TextBox22.SetFocus
Me.Label36.Visible = True
Me.Label37.Visible = True
Me.Label38.Visible = True
End With
End If
Me.TextBox25 = Date
End Sub

Create Deposit And withdrawal Transaction form Multipage Excel VBA

Worksheet
Private Sub CommandButton1_Click() 'Sheet1.Search form
Dim MyRow, ERow As Long
Application.ScreenUpdating = False
'Sheet1.Unprotect Password:=""
On Error Resume Next                                          'Sheet3("Ledger")
MyRow = Application.WorksheetFunction.Match(Val(Me.TextBox1), Sheet3.Range("A:A"), 0)
'Header              'Sheet3("Ledger")
Sheet1.Range("C4") = Sheet3.Cells(MyRow, "A")   'Account No
Sheet1.Range("C5") = Sheet3.Cells(MyRow, "B")   'Name
Sheet1.Range("C6") = Sheet3.Cells(MyRow, "C")   'Contact No
Sheet1.Range("C7") = Sheet3.Cells(MyRow, "D")   'Address
Sheet1.Range("C8") = Sheet3.Cells(MyRow, "E")   'Ac Opning Date
Sheet1.Range("F4") = Format(Date, "DD/MMM/YYYY")  'Date
Sheet1.Range("F5") = Format(Time, "HH:MM AM/PM")  'time

'Data
'Sheet1("Home")
ERow = Sheet1.Range("E1000000").End(xlUp).Row + 1
Sheet1.Range("B" & 10, "F" & ERow).ClearContents     'clear sheet1
Sheet1.Range("B" & 10, "F" & ERow).Font.Size = 8
Sheet1.Range("B" & 4, "F" & ERow).Font.Bold = True
Sheet1.Range("D" & 10, "F" & ERow).HorizontalAlignment = xlRight
Sheet1.Range("D" & 10, "F" & ERow).NumberFormat = "#####.00"

             'Sheet2("Database")
For i = 2 To Sheet2.Range("A100000").End(xlUp).Row
With Sheet1.Range("B1000000").End(xlUp)
If Sheet2.Cells(i, "B") = Val(Me.TextBox1) Then
.Offset(1, 0) = Sheet2.Cells(i, "A")    'Date
.Offset(1, 1) = Sheet2.Cells(i, "F")    'refrence          '
.Offset(1, 2) = Sheet2.Cells(i, "D")    'Credit
.Offset(1, 3) = Sheet2.Cells(i, "E")    'Debit
'Runningbalance
'Runninbalance   Credit       -  Debit
.Offset(1, 4) = .Offset(1, 2) - .Offset(1, 3)
'Runnib balance   Credit-  Debit
                'Previous Date  'credit         'Debit
.Offset(1, 4) = .Offset(0, 4) + .Offset(1, 2) - .Offset(1, 3)
End If
End With
Next i

With Sheet1.Range("B1000000").End(xlUp)
'Cells Formt
.Offset(1, 3) = "Available Balance"
.Offset(1, 3).Font.Size = 11
.Offset(1, 3).Font.Bold = True
.Offset(1, 4).Font.Size = 11
.Offset(1, 4) = .Offset(0, 4)      'Balance Amount
.Offset(1, 4).Font.Bold = True

'Underline
.Offset(2, 1) = "______________________________"
.Offset(2, 2) = "___________________________"
.Offset(2, 3) = "______________________"
.Offset(2, 4) = "_____________________"

'company Details
.Offset(3, 1) = "Appllo"
.Offset(3, 1).Font.Size = 8
.Offset(3, 2) = "Contact"
.Offset(3, 2).Font.Size = 8
.Offset(3, 3) = Format(221234568, "###-####-###")
.Offset(3, 3).NumberFormat = "General"
.Offset(3, 3).Font.Size = 8
.Offset(3, 3).HorizontalAlignment = xlLeft
'Offset(3, 3).NumberFormat=
.Offset(3, 4) = "@gmail.com"
.Offset(3, 4).Font.Size = 8
.Offset(3, 4).HorizontalAlignment = xlLeft
.Offset(3, 4).NumberFormat = "General"
End With
'Sheet1.Protect Password:=""
Application.ScreenUpdating = True
End Sub

Create Deposit And withdrawal Transaction form Multipage Excel VBA

Ptrint
Private Sub CommandButton2_Click()
Dim MyRow As Long
MyRow = Sheet1.Range("E1000000").End(xlUp).Row
Sheet1.Range("B" & 1, "F" & MyRow).PrintOut
End Sub

Thursday, July 2, 2020

Image Combo Fill Image Video#2 Extract Image form Folder Excel VBA

Image Combo Fill Image Video #2 Extract Image form Folder Excel VBA

This video Is second part of imagecombo explain how to fill image from folder Automatically by  vba code  Thank you
उसका वीडियो इमेजकॉम्बो का दूसरा भाग है, यह समझाता है कि फ़ोल्डर से छवि कैसे भरें स्वचालित रूप से vba कोड द्वारा धन्यवाद
مقطع الفيديو الخاص به هو الجزء الثاني من imagecombo يشرح كيفية تعبئة الصورة من المجلد تلقائيًا بواسطة كود vba شكرًا لك




                                                                                         Watch Video
                                

Monday, June 29, 2020

How to Add cells comment And Data Validation copy Paste Excel VBA

How to Add cells comment And Data Validation copy Paste Excel VBA

A Video You can add On cells comment box with details account No, email ID,customer Total Amount Also data validation Copy paste In Next Cells Automatically Thank you
एक वीडियो आप विवरण खाते के साथ कक्षों पर टिप्पणी बॉक्स में जोड़ सकते हैं खाता नहीं, ईमेल आईडी, ग्राहक कुल राशि इसके अलावा डेटा सत्यापन कॉपी पेस्ट अगले कक्षों में स्वचालित रूप से धन्यवाद
فيديو يمكنك إضافة مربع التعليقات على الخلايا مع تفاصيل الحساب لا ، ومعرف البريد الإلكتروني ، والمبلغ الإجمالي للعميل أيضًا التحقق من صحة البيانات نسخ ولصق في الخلايا التالية تلقائيًا

How to Add cells comment And Data Validation copy Paste Excel VBA

Watch Video



Thursday, June 25, 2020

How to Image Fill In Imagecombo Excel VBA Video #1 Image Fill Manually

How to Use Imagecombobox Excel VBA Video #1 Image Fill Manually

A Video you can use this Imagecombo text and image In One series Like Admin Name and Admin Photo  Thank you
एक वीडियो आप इस Imagecombo पाठ और छवि को एक श्रृंखला में उपयोग कर सकते हैं जैसे व्यवस्थापक नाम और व्यवस्थापक फोटो धन्यवाद
فيديو يمكنك استخدام نص وصورة Imagecombo في سلسلة واحدة مثل اسم المسؤول وصورة المشرف شكرًا لك

How to Use Imagecombobox Excel VBA Video #1 Image Fill Manually

Watch Video

Monday, June 22, 2020

Auto Generate Data Entry Form Excel VBA

Auto Generate Data Entry Form Excel VBA

A Video you can use data entry this automatically generating label and textbox by counting sheet. Header Text Also Capture Label Caption Sheets Header Text Automatically Thank you
एक वीडियो जिसे आप डेटा प्रविष्टि का उपयोग करके स्वचालित रूप से लेबल और टेक्स्ट बॉक्स की गणना कर सकते हैं।
فيديو يمكنك استخدام إدخال البيانات هذا تلقائيًا إنشاء تسمية ومربع نص عن طريق حساب الورقة. نص العنوان أيضًا التقاط عنوان تسمية ورقة رأس النص تلقائيًا

Auto Generate Data Entry Form Excel VBA

Watch Video

Thursday, June 18, 2020

Extract Data Only Unique ID Excel Userform VBA

Extract Data Only Unique ID Excel Userform VBA

A VideoTutorial helping find out to listbox or worksheet only unique id (without Duplicate Value) and convert date to month and year format Thank you razakmcr Youtube Channel

एक वीडियोटाइपर्स लिस्टबॉक्स या वर्कशीट को केवल यूनिक आईडी (डुप्लीकेट वैल्यू के बिना) पता लगाने में मदद करता है और तारीख को महीने और साल के प्रारूप में परिवर्तित करता है। धन्यवाद razakmcr Youtube Channel

فيديو تعليمي يساعد في معرفة مربع القائمة أو ورقة العمل فقط معرف فريد (بدون قيمة مكررة) وتحويل التاريخ إلى تنسيق الشهر والسنة شكرا لك قناة رازكمكر على يوتيوب

Extract Data Only Unique ID Excel Userform VBA

Watch Video



Thursday, June 11, 2020

Create Inventory Stock Report Form Excel VBA

Create Inventory Stock Report Form Excel VBA

A Video Creating inventory report Sales Qty Purchase Qty Balance Qty And Stock Amount With in One click support ur small business Thank you razakmcr


एक वीडियो बनाना इन्वेंट्री रिपोर्ट, बिक्री मात्रा खरीद मात्रा संतुलन मात्रा और स्टॉक राशि एक क्लिक के साथ उर छोटे व्यवसाय का समर्थन करती है
धन्यवाद razakmcr

فيديو إنشاء تقرير مخزون المبيعات الكمية الكمية الشراء الكمية الكمية الكمية مع بنقرة واحدة دعم الأعمال الصغيرة الخاصة بك شكرا لك razakmcr



Watch Video

VBA Code

CommandButton1

Private Sub CommandButton1_Click() Dim i As Long Me.ListBox1.Clear Me.ListBox1.AddItem Me.ListBox1.List(0, 0) = "item Name" Me.ListBox1.List(0, 1) = "item No" Me.ListBox1.List(0, 2) = "Purchase Qty" Me.ListBox1.List(0, 3) = "Purchase Price" Me.ListBox1.List(0, 4) = "Sales Qty" Me.ListBox1.List(0, 5) = "Sales Pirce" Me.ListBox1.List(0, 6) = "Balance Qty" Me.ListBox1.List(0, 7) = "Stock Amount" For i = 1 To Sheet3.Range("A1000000").End(xlUp).Row Me.ListBox1.AddItem Sheet3.Cells(i, "A") 'Sheet3("inventory") Column(A) Item Name 'Listbox item fill Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Sheet3.Cells(i, "B") 'Column(B)Item Code Next i '__________ Dim C As Integer Dim X As Long Dim sum, sum1, sum2, sum3 As Double With Me.ListBox1 For C = 1 To .ListCount - 1 For X = 2 To Sheet2.Range("A1000000").End(xlUp).Row 'Sheet2("Database") 'Column(G) Itemcode 'Column(D) Voucher If Val(.List(C, 1)) = Sheet2.Cells(X, "G") And Sheet2.Cells(X, "D") = "Purchase" Then 'Purchase Qty sum = sum + Sheet2.Cells(X, "H") 'Column(H) Qty 'Purchase Amount sum1 = sum1 + Sheet2.Cells(X, "J") 'Column(J) Amount .List(C, 2) = sum .List(C, 3) = sum1 'Column(G) Itemcode 'Column(D) Voucher ElseIf Val(.List(C, 1)) = Sheet2.Cells(X, "G") And Sheet2.Cells(X, "D") = "Sales" Then 'Sales Qty sum2 = sum2 + Sheet2.Cells(X, "H") 'Column(H) Qty 'Sales Amount sum3 = sum3 + Sheet2.Cells(X, "J") 'Column(J) Amount .List(C, 4) = sum2 .List(C, 5) = sum3 End If Next X sum = 0 sum1 = 0 sum2 = 0 sum3 = 0 '______________ 'Balance Qty 'Purchase Qty - 'Sales Qty .List(C, 6) = Val(.List(C, 2)) - Val(.List(C, 4)) If Val(.List(C, 6)) >= 1 Then 'Balance Amount 'Purchase Amount / Purchase Qty * Balance Qty .List(C, 7) = Val(.List(C, 3)) / Val(.List(C, 2)) * Val(.List(C, 6)) End If Next C .Selected(0) = True End With
End Sub

CommandButton2

Private Sub CommandButton2_Click()

Me.ListBox1.Clear Me.ListBox1.AddItem Me.ListBox1.List(0, 0) = "Date" Me.ListBox1.List(0, 1) = "Invoice No" Me.ListBox1.List(0, 2) = "Voucher" Me.ListBox1.List(0, 3) = "Ledeger" Me.ListBox1.List(0, 4) = "Item Name" Me.ListBox1.List(0, 5) = "Item Code" Me.ListBox1.List(0, 6) = "Qty" Me.ListBox1.List(0, 7) = "Price" Me.ListBox1.List(0, 8) = "Total" Dim i As Long For i = 2 To Sheet2.Range("A1000000").End(xlUp).Row 'Sheet2("Database") 'Column(G) ItemCode If Sheet2.Cells(i, "G") = Val(Me.TextBox1) Then With Me.ListBox1 .AddItem For X = 1 To 9 'Loop 1 to 9 Column Listbox And Worksheet .List(.ListCount - 1, X - 1) = Sheet2.Cells(i, X + 1) Next X End With End If Next i Me.ListBox1.Selected(0) = True Me.ListBox1.ColumnCount = 9 '____________________ Dim C As Integer Dim sum, sum1, sum2, sum3 As Double With Me.ListBox1 For C = 1 To Me.ListBox1.ListCount - 1 On Error Resume Next 'sum On Listbox 'Purchase Qty If .List(C, 2) = "Purchase" Then sum = sum + Val(.List(C, 6)) End If 'Sales Qty If .List(C, 2) = "Sales" Then sum1 = sum1 + Val(.List(C, 6)) End If 'Purchase Amount If .List(C, 2) = "Purchase" Then sum2 = sum2 + Val(.List(C, 8)) End If 'Sales Amount If .List(C, 2) = "Sales" Then sum3 = sum3 + Val(.List(C, 8)) End If Next C End With '_______________ Me.ListBox1.AddItem "____________________" Me.ListBox1.List(ListBox1.ListCount - 1, 1) = "_____________________" Me.ListBox1.AddItem "Purchase Qty" Me.ListBox1.List(ListBox1.ListCount - 1, 1) = sum Me.ListBox1.AddItem "Sales Qty" Me.ListBox1.List(ListBox1.ListCount - 1, 1) = sum1 Me.ListBox1.AddItem "Balance Qty" Me.ListBox1.List(ListBox1.ListCount - 1, 1) = Val(sum - sum1) Me.ListBox1.AddItem "Purchase Amount" Me.ListBox1.List(ListBox1.ListCount - 1, 1) = sum2 Me.ListBox1.AddItem "Sales Amount" Me.ListBox1.List(ListBox1.ListCount - 1, 1) = sum3 End Sub Private Sub ListBox1_Click() On Error Resume Next Me.TextBox1 = Me.ListBox1.List(Me.ListBox1.ListIndex, 1)
End Sub

Textbox1

Private Sub TextBox1_Change() If IsNumeric(Me.TextBox1) Then Me.CommandButton2.Enabled = True Else Me.CommandButton2.Enabled = False End If End Sub

Saturday, June 6, 2020

Auto Generate Serial Number With Every Date Excel VBA

Auto Generate Serial Number With Every Date Excel VBA

A Video Tutorial Help Generate Serial Number Automatically with Your Transaction with Depending date razakmcr Thank you

एक वीडियो ट्यूटोरियल की मदद से दिनांक के साथ स्वचालित रूप से अपने लेनदेन के साथ सीरियल नंबर उत्पन्न करें धन्यवाद razakmcr धन्यवाद

تعليمات فيديو تعليمي إنشاء الرقم التسلسلي تلقائيًا مع معاملتك مع اعتماد التاريخ razakmcr شكرا لك

Auto Generate Serial Number With Every Date Excel VBA



                                                                               Watch Video