enter in last row in a set range

[Av8tordude]

I would like to enter an entry from the last row of a table that ends at A12. Using the code below is only useful if I use the entire range (A:A). Since I have limited my entries (A3:A12), I would like to check for the last empty row in rows A3:A12 and make my entry. How can I adjust the code to accomplish this task. Thanks

LastRow = Range("A" & Rows.Count).End(xlUp).Row + 1 'Finds the last blank row

 

[Av8tordude]

Just another possible way (and just in case there ever could be 2 blanks in the range)...

Range("A3:12").Find("*", , xlValues, , xlByRows, xlPrevious)(2).Row

I tried you code, however it creates a "Method 'Range' of 'Object' failed message.

I like to try it because I getting an error when i start with a black sheet. See code....

Dim LastRow As Long

LastRow = Range("A3:12").Find("*", , xlValues, , xlByRows, xlPrevious)(2).Row


If Range("A12") > vbNullString Then MsgBox "You've reach the maximum trading limit!", vbExclamation: Exit Sub


Application.ScreenUpdating = False
ActiveSheet.Unprotect Password:=""
If cbAct = "Buy" Then
    If Not tbXPrice.Visible Or tbXPrice = 0 Then
        MsgBox "Strike Price Has Not Been Entered!", vbCritical
        lbSPrice.Caption = "Strike Price"
        lbSQoute.Visible = False
        tbXPrice.Visible = True
        tbXPrice = 0
        tbXPrice.SetFocus
        
        With tbXPrice
            .SelStart = 0
            .SelLength = Len(.Text)
        End With
    Else
        Range("A" & LastRow) = cbName
        Range("B" & LastRow) = lbName.Caption
        Range("D" & LastRow) = Format(tbSDate, "mm/dd/yyyy")
        Range("E" & LastRow) = cbType
        Range("F" & LastRow) = tbOTotal
        Range("G" & LastRow) = CDbl(tbXPrice)
        Range("H" & LastRow) = Format(tbEDate, "mm/dd/yyyy")
        Range("J" & LastRow) = CDbl(tbAPrice)
        Range("K" & LastRow) = CDbl(tbBFee) + CDbl(tbOFee)
        Range("L" & LastRow) = CDbl(lbCost)
        Range("A3:Q12").Sort Key1:=Range("D3"), Order1:=xlAscending, Header:=xlNo
        MsgBox "Transaction Complete!", vbInformation
        NewOption
    End If
ActiveSheet.Protect Password:=""
Application.ScreenUpdating = True

 

[MARK858]

Sub test4()
    Dim LastRow As Long
    If Range("A12") > vbNullString Then MsgBox "You've reach the maximum trading limit!", vbExclamation: Exit Sub
    If WorksheetFunction.CountA(Range("A3:A11")) = 0 Then
        LastRow = 3
    Else
        LastRow = Range("A3:[COLOR="#FF0000"]A[/COLOR]11").Find("*", , xlValues, , xlByRows, xlPrevious)(2).Row
    End If
    MsgBox LastRow
End Sub

 

[Av8tordude]

I get an error on this line of code...I think is has something to do with the column letters....

Range("B" & LastRow) = lbName.Caption

Sub test4()
    Dim LastRow As Long
    If Range("A12") > vbNullString Then MsgBox "You've reach the maximum trading limit!", vbExclamation: Exit Sub
    If WorksheetFunction.CountA(Range("A3:A11")) = 0 Then
        LastRow = 3
    Else
        LastRow = Range("A3:[COLOR=#FF0000]A[/COLOR]11").Find("*", , xlValues, , xlByRows, xlPrevious)(2).Row
    End If
    MsgBox LastRow
End Sub

 

[MARK858]

What error? LastRow is just a number.

 

[Av8tordude]

When I run the code, it highlights this....

[COLOR=#333333]Range("B" & LastRow) = lbName.Caption[/COLOR]

If I take it out, it highlights the next line of code.

 

[Av8tordude]

Disregard....I discovered my error. The sheet was getting protected after the first entry in column A. My apologies..

Thank you Mark for esteem patience. Really grateful for you help.