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

Thursday, June 4, 2020

How to Use inkEdit Userform Excel VBA

How to Use inkEdit Userform Excel VBA

A Video for inkEdit Use for like Textbox in userform transfer data to worksheet with wrap text Thankyou razakmcr

इंकडिट के लिए एक वीडियो, रैप टेक्स्ट के साथ वर्कशीट में यूजरफॉर्म ट्रांसफर डेटा में टेक्स्टबॉक्स की तरह उपयोग करें थैंक्यू

فيديو لـ inkEdit استخدم لمثل Textbox في بيانات نقل نموذج المستخدم إلى ورقة العمل مع نص التفاف
شكرا لك razakmcr

How to Use inkEdit Userform Excel VBA


Private Sub CommandButton1_Click() Sheet1.Range("A100000").End(xlUp).Offset(1, 0) = Me.InkEdit1.Text & vbLf & "______________" Me.InkEdit1.Text = "" Call UserForm_Initialize End Sub
Private Sub UserForm_Initialize() Me.InkEdit1.Text = Date & " " & Format(Time, "HH:MM AM/PM") Me.InkEdit1.SelStart = Len(Me.InkEdit1) End Sub

Watch Video