Listbox Data Weekly Average List Userform Excel VBA

 Listbox Data Weekly Average List Userform Excel VBA

Watch Video

How to Invoice Project Depending Year And Month Excel VBA

 How to Invoice Project Depending Year And Month Excel VBA

Watch Video

Combobox Display Items Balance Quantity Excel VBA

 Combobox Display Items Balance Quantity Excel VBA

Watch Video

Listbox Data Edit On Listbox Userform Excel VBA

 Listbox Data Edit On Listbox Userform Excel VBA

Watch Video

 

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

 

 

How to Worksheet Update By Listbox Excel VBA

How to Worksheet Update By Listbox Excel VB

Watch Video

 

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

TreeView Nodekey Userform Excel VBA

 TreeView Nodekey Userform Excel VBA

Watch Video

TreeView Menu And Sub Menu Userform Excel VBA

 TreeView Menu And Sub Menu Userform Excel VBA

Watch Video

How to use TAG In Excel Userform VBA

 How to use TAG In Excel Userform VBA

Userform Textbox Calculate By TAG

Watch  Video

Listbox Drag And Fill Excel VBA

 Listbox Drag And Fill Excel VBA

Watch Video

Listbox Fill By First Value Or Last Value Excel VBA

 Listbox Fill By First Value Or Last Value Excel VBA

Watch Video

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

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

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 نموذج مستخدم محمي بكلمة مرور يمكنك الوصول إليه فقط عن طريق اسم المستخدم وتعليمات كلمة المرور لإدخال البيانات مع اسم المسؤول

Watch Video

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 दो कार्यपुस्तिका से यह कार्य करने वाले का उपयोग लिस्टबॉक्स ब्रॉउज़ है डेटा के लिए फ़ोल्डर से अन्य कार्यपुस्तिका और बाहर की वितरण वाली दूसरी कार्यपुस्तिका के साथ स्वचालित रूप से बंद करें धन्यवाद هذا العمل من اثنين من المصنف واحد يحتوي على شكل قائمة استعراض مستعرض مصنف آخر من مجلد البيانات وإغلاقه تلقائيًا مع عدم وجود مصنف ثانٍ.

Watch Video

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

Watch Video

How to Insert Image In Commentbox Excel VBA

How to Insert Image In Commentbox Excel VBA

Watch Video

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 باستخدام نموذج المستخدم الخاص بنا شكرا

Watch Video

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

इस वीडियो में मैं दिखा रहा हूं कि ट्रांजेक्शन डिपॉजिट और निकासी कैसे करें फ़ॉर्म और खाता संख्या और प्रिंटआउट द्वारा लेनदेन खोज धन्यवाद

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

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

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

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

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

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

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

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

                                

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

एक वीडियो आप विवरण खाते के साथ कक्षों पर टिप्पणी बॉक्स में जोड़ सकते हैं खाता नहीं, ईमेल आईडी, ग्राहक कुल राशि इसके अलावा डेटा सत्यापन कॉपी पेस्ट अगले कक्षों में स्वचालित रूप से धन्यवाद

فيديو يمكنك إضافة مربع التعليقات على الخلايا مع تفاصيل الحساب لا ، ومعرف البريد الإلكتروني ، والمبلغ الإجمالي للعميل أيضًا التحقق من صحة البيانات نسخ ولصق في الخلايا التالية تلقائيًا

Watch Video

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 في سلسلة واحدة مثل اسم المسؤول وصورة المشرف شكرًا لك

Watch Video

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

एक वीडियो जिसे आप डेटा प्रविष्टि का उपयोग करके स्वचालित रूप से लेबल और टेक्स्ट बॉक्स की गणना कर सकते हैं।

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

Watch Video

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

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

Watch Video

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