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