VB Help

[jayjaysb]

Hi all,

I have created 2 tabs Data and Form, Data Entry Form. With Name, Date, Item No, Outcome (dropdown) and Comment. Along with Save and Reset Buttons.

Could someone please help with VB for me. Thanks JJSB

 

[Logit]

.
Here is a small database project to review. Study the code. It has everything you are seeking but the existing code needs
to be edited to fit your specific project. (i.e, You will need to use your own variable names and also expand on the existing
code to include all the fields you are using.)

This example uses a UserForm for the data input.

Option Explicit
Private Sub btnCancel_Click()
    Unload Me
End Sub


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
Sub CommandButton1_Click()
    Selection.EntireRow.Delete
End Sub

Download file : https://www.amazon.com/clouddrive/share/1mJIn9XSkerqNOlNHHP7T0lT15OoyeoKfIGlGZX3j2I

 

[Yongle]

deleted by Yongle

 

[jayjaysb]

Many thanks, JJSB

.
Here is a small database project to review. Study the code. It has everything you are seeking but the existing code needs
to be edited to fit your specific project. (i.e, You will need to use your own variable names and also expand on the existing
code to include all the fields you are using.)

This example uses a UserForm for the data input.

Option Explicit
Private Sub btnCancel_Click()
    Unload Me
End Sub


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
Sub CommandButton1_Click()
    Selection.EntireRow.Delete
End Sub

Download file : https://www.amazon.com/clouddrive/share/1mJIn9XSkerqNOlNHHP7T0lT15OoyeoKfIGlGZX3j2I

 

[jayjaysb]

Hi, looking for VB for the SAVE and RESET Buttons, Thanks JJSB

Many thanks, JJSB

 

[Logit]

.
SAVE : https://docs.microsoft.com/en-us/office/vba/api/excel.workbook.save

What is meant by RESET ?

 

[jayjaysb]

Hi Logit, If someone completes the fields, then realises the data is wrong, then they would hit reset button to clear the data. Thanks

 

[Logit]

.
Using the example project :

Sub ClrFields()
     Me.txtFirstName.Value = ""
     Me.TxtSurname.Value = ""
     'add more fields ...
End Sub

 

[jayjaysb]

Many thanks, JJSB

 

[Logit]

You are welcome.