Author: Oscar Cronquist Article last updated on March 19, 2019

In this small tutorial, I am going to show you how to create basic data entry with a small amount of VBA code.

Cell B3 and C3 are input cells. When you press with left mouse button on button "Add", the data in cell B3 and C3 are copied to the first empty row in the list.

The last step in the code removes the values in cell B3 and C3, see the animated image above.

Macro

Sub AddText()
Dim Lrow As Single

With Worksheets("Sheet1")
Lrow = .Range("B" & Rows.Count).End(xlUp).Row + 1
.Range("B" & Lrow & ":C" & Lrow) = .Range("B3:C3").Value
.Range("B3:C3").Value = ""
End With

End Sub

Add macro to your workbook

  1. Press Alt+F11 to open the VB Editor.
  2. Press with right mouse button on on your workbook name in the Project Explorer window.
  3. Press with left mouse button on "Insert".
  4. Press with left mouse button on "Module" to insert a code module to your workbook.
  5. Copy macro and paste to code module, see image above.

Explaining macro

Step 1 - Name macro

Sub AddText()

Step 2 - Declare variables and data types

Dim Lrow As Single

Step 3 - Find last non-empty cell in column B

This line returns the row number of the last non-empty cell in column B:

Lrow = Worksheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row

We want the first empty cell so we add one to the code.

Lrow = Worksheets("Sheet1").Range("B" & Rows.Count).End(xlUp).Row + 1

This line of code saves the value to variable Lrow. In the example given above, the code saves the value 8 to Lrow.

Step 4 - Copy values

Let's use the value in Lrow and copy values from cell B3:C3 to the first empty row.

Worksheets("Sheet1").Range("B" & Lrow & ":C" & Lrow) = Worksheets("Sheet1").Range("B3:C3").Value

Step 5 - Remove values

The following line deletes the values in cell range B3:C3.

Worksheets("Sheet1").Range("B3:C3").Value = ""

Step 6 - End macro

End Sub

Simplify code

Worksheets("Sheet1") is repeated many times. The WITH and WITH END statement allows you to simplify the code.

Sub AddText()
Dim Lrow As Single
With Worksheets("Sheet1")
Lrow = .Range("B" & Rows.Count).End(xlUp).Row + 1
.Range("B" & Lrow & ":C" & Lrow) = .Range("B3:C3").Value
.Range("B3:C3").Value = ""
End With
End Sub

Create button

  1. Go to the Developer tab.
  2. Press with left mouse button on "Insert" button on the ribbon.
  3. Press with left mouse button on "Button" (Form Control).
  4. Press and hold with left mouse button on the worksheet.
  5. Drag with mouse to create the button then release the mouse button.

Assign macro

  1. Press with right mouse button on on your new button.
  2. Assign a macro.
  3. Select "AddText" macro.

Final note

There is a data entry form in Excel but it is not on the ribbon.

Get the Excel file


Basic-data-entry.xlsm

Weekly Blog EMAIL

Welcome! I am Oscar and here to help you out.

Feel free to comment and ask Excel questions.

Make sure you subscribe to my newsletter so you don't miss new blog articles.

Related articles