Question

I’m trying to insert form values into my Excel spreadsheet using vba but my current code is inserting values into the same row.

1. As my table starts from row 3, I want to start from there and continue by automatically shifting to the next row each time. The rows are already set and I don’t want to insert new rows but overwrite the current ’empty’ rows.
2. When 202 rows (maximum no. of rows available) have been entered then I want the spreadsheet to return an error message dialog.

How can I go about achieving this?

Current Code

    Private Sub btnSubmit_Click()

    Dim ws As Worksheet
    Set ws = Worksheets("main")

    ' Copy the data to the database
    ws.Rows("4:4").Insert Shift:=xlDown
    ws.Range("A3").Value = cbo_deptCode.Value
    MsgBox ("Booking request has been successfully made")

End Sub

Answer 1

something like this

Private Sub btnSubmit_Click()
    Dim ws As Worksheet
    Dim rng1 As Range
    Set ws = Worksheets("main")
    Set rng1 = ws.Cells(Rows.Count, "a").End(xlUp)
    If rng1.Row > 202 Then
    MsgBox "202 Rows exceeded"  
    Else
    rng1.Offset(1, 0) = cbo_deptCode.Value
    End If
End Sub