Data Entry By Group wise Userform Excel VBA

Data Entry By Group wise Userform Excel VBA

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

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

إنشاء مدير الجرد حفظ ، حفظ باسم ، تحرير التحديث ، مشروع الباركود ، طباعة عد متعدد ، إعداد صفحة الطابعة الكل في فيديو واحد شكرا لك

تم إنشاء هذا البرنامج التعليمي في فيديوين

Video Part 1

Video Part2

How to insert Currency Symbols In Userform Excel 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)

Example

'Sheet1.range("A1")=ChrW$(&H20B9&)   '(Indian Currency)

Ucan get Currency Symbol Code

Excel Tab Menu   Insert   Symbols

See Photo

USA                                  $

Indian rupee                                  ₹

UAE                                  د.إ

Pound                                  £

Rupee                                  ₨

Euro Currency                                  €

Yen                                  ¥

French                                  ₣

Morocco                                  .د.م

Afghanistan                                  Af

Iraq                                  ع.د

Iran                                  ﷼

Oman                                  ر.ع.

Bangladesh                                  ৳

Bahrain                                  ب.د

North Korea                                  ₩

Qatar                                  ر.ق

Thailand                                  ฿

Saudi Arabia                                  ر.س

Tutorial VBA Code

For Userform Combobx Fill Data from Sheet2

Private Sub UserForm_Initialize()

'Combobox fill From Sheet2

Dim i As Long

For i = 2 To Sheet2.Range("A1000000").End(xlUp).Row

Me.ComboBox1.AddItem Sheet2.Cells(i, "A")

Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = Sheet2.Cells(i, "B")

Next i

End Sub

For Listbox fill Data from Sheet2 with Currency Symnols

Private Sub CommandButton1_Click()

Dim A  As String

Dim i As Long

Me.ListBox1.Clear

If Me.ComboBox1 <> "" Then

A = Me.ComboBox1.List(Me.ComboBox1.ListIndex, 1)

For i = 2 To Sheet2.Range("D1000000").End(xlUp).Row

Me.ListBox1.AddItem Sheet2.Cells(i, "D")

Me.ListBox1.List(ListBox1.ListCount - 1, 1) = A & " " & Sheet2.Cells(i, "E")

Next i

Dim sum As Double

Dim x As Integer

Dim C, D As String

For x = 0 To Me.ListBox1.ListCount - 1

C = Len(Me.ListBox1.List(x, 1))

D = Len(A)

sum = sum + Val(Right(Me.ListBox1.List(x, 1), C - D))

Next x

 Me.ListBox1.AddItem

 Me.ListBox1.AddItem "Total"

 Me.ListBox1.List(ListBox1.ListCount - 1, 1) = A & " " & Format(sum, "#####.00")

 End If

End Sub