Search Entry Form Excel 3
Search Entry Form Excel 3
इस क्लास में हम सिखने वाले है की Search Entry Form Excel 3 पर कैसे काम करेंगे अतः निचे दिए गए स्टेप को फॉलो करें | पहले भाग 2 को यहाँ जरूर देखें
आपने पिछले क्लास में निचे दिए गए पिक्चर किए अनुसार Exit Button तक का फार्मूला लिख लिया है | Search Entry Form Excel 3

- अब Insert बटन का फार्मूला टाइप करेंगे | इसके लिए Project विंडो से Userform1 पर डबल क्लिक करके Form ओपन करें तथा Insert बटन पर डबल क्लिक करे जिससे आप इस बटन के फार्मूला पेज पर आ जायेंगे |
Read Also:-After 12th Class Computer Courses, after 10th Class Computer Courses

- अब निचे दिए फोर्मुले को टाइप करें| Search Entry Form Excel 3
Dim x As Long
Dim y As Worksheet
Set y = Sheet1
x = y.Range("A" & Rows.Count).End(xlUp).Row
With y
.Cells(x + 1, "A").Value = TextBox1.Text
.Cells(x + 1, "B").Value = TextBox2.Text
.Cells(x + 1, "C").Value = TextBox3.Text
.Cells(x + 1, "D").Value = TextBox4.Text
.Cells(x + 1, "E").Value = TextBox5.Text
.Cells(x + 1, "F").Value = TextBox6.Text
.Cells(x + 1, "G").Value = TextBox7.Text
.Cells(x + 1, "H").Value = TextBox8.Text
.Cells(x + 1, "I").Value = TextBox9.Text
.Cells(x + 1, "J").Value = TextBox10.Text
End With
On Error Resume Next
Also Read:-Top 3 Computer Diploma Courses, 6 Months of Computer Diploma, After 12th Pass Out Computer Courses

- अब पुनः Project विंडो से Userform1 पर डबल क्लिक करके Form ओपन करें तथा Search बटन पर डबल क्लिक करे जिससे आप इस बटन के फार्मूला पेज पर आ जायेंगे |
- अब निचे दिए गए Search फोर्मुले को टाइप करें |
Dim x As Long
Dim y As Long
x = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
If Sheet1.Cells(y, "A").Text = TextBox11.Text Then
TextBox1.Text = Sheet1.Cells(y, "A")
TextBox2.Text = Sheet1.Cells(y, "B")
TextBox3.Text = Sheet1.Cells(y, "C")
TextBox4.Text = Sheet1.Cells(y, "D")
TextBox5.Text = Sheet1.Cells(y, "E")
TextBox6.Text = Sheet1.Cells(y, "F")
TextBox7.Text = Sheet1.Cells(y, "G")
TextBox8.Text = Sheet1.Cells(y, "H")
TextBox9.Text = Sheet1.Cells(y, "I")
TextBox10.Text = Sheet1.Cells(y, "J")
End If
Next y
Also Read:-ADTP Course, Fees, Duration, Scope, Syllabus, Admission, Institutes & Jobs in Varanasi

Also Read:-Video Editing Course Details, Fees, Duration, Scope, Syllabus, Admission, Institutes & Jobs
Important Links
1-VedantSri Official Website:- https://vedantsri.com
2-VedantSri Student Website:- https://www.vedantsri.net
3-Students Jobs Assist Website:- https://www.jobdo.in
Also Read:-DIT Course Details, Fees, Duration, Scope, Syllabus, Admission, Institutes & Jobs