Userform in Excel Data Add Search Update its simple скачать в хорошем качестве

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