How to create user form under VBA for entering data

chintamani.avinash said:

Hello friends,
I want to enter data in sheet 1 using user form having based of VBA coding. My requirement is that,

1. I want button on sheet 1 by the name 'Enter Data'. When i click on that button user form will be open up.

2. I have table in sheet 1 in which i want to enter data. Fields in the table are [a] Sr. No. Date [c] Name of the Category [d] Items under Category [e] Quantity.

3. Important thing is that, menu of '[d] items under category' is dependent to '[c] Name of the Category'.

I have following three categories in my shop: Fruits, Vegetables and Dry Fruits.
Under each of the category following items are includes:
Fruits: Apple, Orange, papaya, grapes and Kivi.
Vegetables: Ladyfinger, coli-flower, cabbage and eggplant
Dry fruits: Almonds, cashews, walnuts, pistachio and dates.

Under this i want dependent list. Means if i click on Fruits, in the next cell list of fruits should be auto-populated so that i can select one them. If i select vegetables then in the next cell list of vegetables should be auto-populated so that i can select one of them, and so on in case of Dry fruits. But if i go to previous cell of '[c] Name of the Category' then next cell should be automatically changed its options as per previous cell on which it is dependent.

4. Data entry in sheet 1 is expected to be start from
cell A4 for [a] Sr. No., Cell B4 for Date, C4 for [c] Name of the Category, Cell D4 for [d] Items under Category, E4 for [e] Quantity.
If possible Sr. no. should be auto-populated.

5. Date should in the format dd-mm-yyyy

6. I also need following functions / buttons / options on user from: Add Data, Search Data, Edit Data, Delete Data.

6. If possible under Search Data options, search can be done by various criteria as per [a] Sr. No. Date [c] Name of the Category [d] Items under Category [e] Quantity.

7. Some times Quantity remains in decimal form e.g. 11, 12.50 which should not be changed. Means 12.50 should be 12.50 and not 12.5

I have also attached file for understanding of table.

Thank you for your help in advance. This will be your great help.

Click to expand...

Logit said:

.
Download the example workbook here ----> https://www.amazon.com/clouddrive/share/i9K6qpVH4rL0fV9X3110ciBJcTAg4syfkw50NPc5USu

You can edit the workbook to fit your needs. This example is a very basic representation of constructing a small database, which is what you are attempting to do.

Click to expand...

Logit said:

.
It is time to learn VBA coding ...

Code:

Private Sub btnOK_Click()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim newRow As Long
    
    newRow = Application.WorksheetFunction.CountA(ws.Range("A:A")) + 1
    
    'The next two lines can be expanded as many times as needed for all the entry fields in your project
    
    ws.Cells(newRow, 1).Value = Me.txtFirstName.Value
    ws.Cells(newRow, 2).Value = Me.txtSurname.Value
    
End Sub

Where you see ... Me.txtFirstName.Value ... change that to your DropDown/ComboBox value .

There are tons of examples on the internet ... Google is your friend.

Start to build your project with this portion. Then move on to the other requirements of your project and when you get stuck, return here for assistance.

If you are wanting someone to build the entire project for you, there is a Commercial Section in this Forum where you pay someone for the project.

Click to expand...