(Last Updated On: December 4, 2021)

Search Entry Form Excel 3

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

आपने पिछले क्लास में निचे दिए गए पिक्चर किए अनुसार Exit Button तक का फार्मूला लिख लिया है |

Search Entry Form Excel 3 in VedantSri Computer Institute
  • अब Insert बटन का फार्मूला टाइप करेंगे | इसके लिए Project विंडो से Userform1 पर डबल क्लिक करके Form ओपन करें तथा Insert बटन पर डबल क्लिक करे जिससे आप इस बटन के फार्मूला पेज पर आ जायेंगे |

Read Also:-After 12th Class Computer Courses, after 10th Class Computer Courses

  • अब निचे दिए फोर्मुले को टाइप करें|
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

Search Entry Form Excel 3 in VedantSri Computer Institute
  • अब पुनः 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

Search Entry Form Excel 3 in VedantSri Computer Institute

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://vedantsri.net

3-Students Jobs Assist Website:- https://www.jobdo.in

Also Read:-DIT Course Details, Fees, Duration, Scope, Syllabus, Admission, Institutes & Jobs

Leave a Reply

error: VedantSri Content is protected !!