Learn to make and design Userform for Data Entry in excel Part 2 / Explore / VBA

Опубликовано: 16 Октябрь 2024
на канале: Explore
944
14

Friends you will be able to learn #userform coding to add #data #entry in #excel via developer tab for making your data entry work very easy to add in excel. #explore #learning #education #vba #school #college #student

How to make and design userform with coding for data entry in excel Part 1    • Learn to make and design Userform for...  

#explore #excel #learning #userform #Explore #excel #learning #knowledge #userform #data #datascience #python #machinelearning #programming #deeplearning #coding #datascientist #bigdata #javascript #java #sql #mysql #php #developer #school #student #college #university #teacher #teaching #computer #vision #businessanalytics #businessanalysis #online #onlineclasses # #computerscience #googleanalytics #dataanalytics #html #knowledge #java

Explore Twitter Account :   / explore43629915  
Explore Facebook Account :   / explore-104591981615566  

#explore​ #learning​ #education​ #vba​ #school​ #college​ #student #small #business #learn #education #knowledge #learning #spreadsheet


Coding:
Private Sub CommandButton1_Click()
Dim x As Long
Dim y As Worksheet

Set y = Sheet1

x = y.Range("A" & Rows.Count).End(xlUp).Row + 1

With y
.Cells(x, 1).Value = TextBox1.Text
.Cells(x, 2).Value = TextBox2.Text
.Cells(x, 3).Value = ComboBox1.Text

If OptionButton1.Value = True Then
.Cells(x, 4).Value = "Male"
End If

If OptionButton2.Value = True Then
.Cells(x, 4).Value = "Female"
End If

End With

End Sub

Private Sub CommandButton2_Click()
Unload Me


End Sub

Private Sub CommandButton3_Click()
Unload Me
UserForm1.Show
End Sub


Private Sub CommandButton4_Click()

End Sub

Private Sub TextBox2_Change()
TextBox2.Text = Application.WorksheetFunction.Proper(TextBox2.Text)
End Sub

Private Sub UserForm_Click()
TextBox1 = Application.WorksheetFunction.Max(Sheet1.Range("A5:A1000")) + 1
End Sub


#explore #Explore





Disclaimer -

video is for educational purpose only.Copyright Disclaimer Under Section 107 of the Copyright Act 1976, allowance is made for "fair use" for purposes such as criticism, comment, news reporting, teaching, scholarship, and research. Fair use is a use permitted by copyright statute that might otherwise be infringing. Non-profit, educational or personal use tips the balance in favor of fair use.