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
Enter Data to database by matching ledger without filter will come data by group separate using in Useform textbox and Commandbutton and label फ़िल्टर के बिना लेज़र के मेल से डेटाबेस में डेटा दर्ज करें, उपयोग टेक्स्टबॉक्स और कमांडबटन और लेबल में अलग से समूह द्वारा डेटा आएगा
أدخل البيانات إلى قاعدة البيانات عن طريق مطابقة دفتر الأستاذ بدون عامل تصفية البيانات حسب المجموعة منفصلة باستخدام مربع نص Useform و Commandbutton والتسمية
How to Create inventory Manager Part1 &Part2 Excel VBA
A Blog from razakmcr
How to Create inventory Manager Excel VBA
Create Inventory Manager Save, Save As ,Edit Update,Barcode Project, Print Multiple Count,Printer Page Setup All In One Video Thank you
This tutorial created In two Video
Razakmcr से एक वीडियो
इन्वेंट्री मैनेजर एक्सेल VBA कैसे बनाएं
इन्वेंटरी मैनेजर बनाएं, इस रूप में सहेजें, एडिट अपडेट, बारकोड प्रोजेक्ट, प्रिंट मल्टीपल काउंट, प्रिंटर पेज सेटअप सभी एक वीडियो में धन्यवाद
यह ट्यूटोरियल दो वीडियो में बनाया गया है
كيفية إنشاء مدير المخزون إكسل VBA
إنشاء مدير الجرد حفظ ، حفظ باسم ، تحرير التحديث ، مشروع الباركود ، طباعة عد متعدد ، إعداد صفحة الطابعة الكل في فيديو واحد شكرا لك
How to insert Currency Symbols In Userform Excel VBA
In this Blog I showing how to insert currency symbols in Listbox using VBA code By Change combobox U can choose different currency symbols from combobox dropdown menu
Watch Video
Currency Symbols
Code for Symbols This Code Not Used In Tutorial Video)
In this Tutorial I Created Rent A car Agreement form
Name Address Contact And departure date arrival date and count day and extra hours rent amount And Grand Total Automatically
I thing this will useful information if Any wrong Any doubt please Inform me
Thank you Also Watch Video Below And VBA Code
आपका स्वागत है razakmcr एक्सेल ट्यूटोरियल
इस ट्यूटोरियल में मैंने रेंट ए कार एग्रीमेंट फॉर्म तैयकिया नाम पता संपर्क और प्रस्थान की तारीख आगमन कतऔरदिन और अतिरिक्त घंटे किराया राशि और ग्रैंड कुल स्वचालित रूप से गिनें
मुझे लगता है कि यह उपयोगी जानकारी होगी यदि कोई भी गलत हो तो कृपया मुझे सूचित करें
धन्यवाद इसके अलावा नीचे वीडियो देखें और VBA कोड
Watch Video
Check VBA Code
This Code For Ageement Number Project And Departure Date Departure Time Arrival Date And Time
Private Sub
UserForm_Initialize()
Dim RNG As Long
RNG =
Sheet4.Range("A1000000").End(xlUp).Row + 1
Me.AGR1 = RNG + 11000
Me.Date1 = Date 'Dedparture Date
Me.Time1 = Format(Time, "HH:MM
AM/PM") 'Departure Time
Me.Date2 = Date 'Arrival Date
Me.Time2 = Format(Time, "HH:MM
AM/PM") 'Arrival Time
End Sub
This Code For Textbox Textformat To properCase
Private Sub
TB4_Change()
On Error Resume Next 'Textbox ProperCase
Me.TB4 = Format(StrConv(Me.TB4,
vbProperCase))
End Sub
Private Sub TB5_Change()
On Error Resume Next 'Textbox ProperCase
Me.TB5 = Format(StrConv(Me.TB5,
vbUpperCase))
End Sub
Private Sub TB8_Change()
On Error Resume Next 'Textbox ProperCase
Me.TB8 = Format(StrConv(Me.TB8,
vbProperCase))
End Sub
This Code For (CommandButtton) Frame Enable for Cteate agreement Fill combobox
Private Sub
DeptCMD_Click() 'Commandbutton
Dim i As Long
'For Departure
Me.DeptFrame.Enabled = True
Me.ComboBox1.Clear
For i = 2 To
Sheet2.Range("A100000").End(xlUp).Row
Me.ComboBox1.AddItem Sheet2.Cells(i,
"A") 'Fill Vehicle Number
Me.ComboBox1.List(Me.ComboBox1.ListCount
- 1, 1) = Sheet2.Cells(i, "B") 'Vehicle Name
Next i
Me.TB1.SetFocus
End Sub
This Code For (CommandButtton) Frame Enable for Cteate agreement Fill combobox
Private Sub
ArrCMD_Click() 'Commandbutton
On Error Resume Next
Me.ArrFrame.Enabled = True
Me.ArrDate = Date
Me.ARRTime = Format(Time, "HH:MM
AM/PM")
Me.TB13 = CDate(Me.ArrDate) -
CDate(Me.DPTDate) 'In Date-Out Date
Me.TB16 =
Format(Abs(TimeValue(Me.ARRTime) - TimeValue(Me.DPTTime)) * 24,
"##") 'Intime - Out Time
Dim RNG1 As Long, i As Long
'Search Data to Arrival Form Matching By
Agreement Number
RNG1 =
Sheet4.Range("A1000000").End(xlUp).Row + 1
For i = 2 To RNG1 '(Agreement No)
If Sheet4.Cells(i, "D") =
Val(Me.AGR2) Then
With Sheet4
Me.AGR1.Value = .Range("D"
& i) 'Sheet4Column(D)
Me.TB1 = .Range("E" &
i) 'Renter Name
Me.TB2 = .Range("F" &
i) 'Cntact
Me.IDBox = .Range("G" &
i) 'Idbox
Me.TB3 = .Range("H" &
i) 'PP No
Me.TB4 = .Range("i" &
i) 'Driver Name
Me.TB5 = .Range("j" &
i) 'Nationality
Me.TB6 = .Range("K" &
i) 'Contact
Me.TB7 = .Range("L" &
i) 'Driving
License No
Me.TB8 = .Range("M" &
i) 'Place If Issue
Me.TB9 = .Range("N" &
i) 'Expiry date
Me.ComboBox1 = .Range("O" &
i) 'Expiry date
Me.TB12 = .Range("P" &
i) 'Vehicle Name
Me.DPTDate = .Range("Q" &
i)
Me.TB13 = CDate(Me.ArrDate) -
CDate(Me.DPTDate) 'Calculate Days
