Userform in Excel Data Add Search Update its simple

Check Description VBA Code Available
Simple way to Learn Userform in Excel in Hindi
All VBA Code Step By Step
USERFORM CREATION
Userform1
CommandButton1 = Transfer Data
CommandButton2 = Reset Form
CommandButton3 = Quit
CommandButton4 = Search
CommandButton5 = Update

Textbox1 = ID
Textbox2=Name
Textbox3=Contact

Textbox4 = Search
VBA Code :
Private Sub CommandButton1_Click()
Dim x as Long
x= Sheet1.Range(“A”&Rows.Count).end(xlup).row+
sheet1.cells(x,1).value=textbox1.text
sheet1.cells(x,2).value=textbox2.text
sheet1.cells(x,3).value=textbox3.text
textbox1=””
textbox2=””
textbox3=””
MsgBox “Transfer Data Successfully”
End Sub

Private Sub CommandButton2_Click()
Unload Me
Userform1.Show
End Sub

Private Sub CommandButton3_Click()
Unload Me
End Sub

Private Sub CommandButton4_Click()
Dix 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, 1).Value=Textbox4.Text Then
Textbox1=Sheet1.Cells(y,1).Text
Textbox2=Sheet1.Cells(y,2).Text
Textbox3=Sheet1.Cells(y,3).Text
End if
Next y
End Sub

Private Sub CommandButton5_Click()
Dix 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, 1).Value=Textbox4.Text Then
Sheet1.Cells(y,1).Text =Textbox1
Sheet1.Cells(y,2).Text =Textbox2
Sheet1.Cells(y,3).Text =Textbox3
End if
Next y
MsgBox “Update Data Successfully”
End Sub

Create Macro for Show Form Button
UserForm1.Show

Please LiKE | SHARE | SUBSCRIBE

Видео Userform in Excel Data Add Search Update its simple канала Daood Computer Centre