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