Find first empty cell in selected area depending on data input of 2 textbox

[apoliboli]

Hi. How can i find the first empty cell in a row
if textboxA is > 500 and textboxB = "hello" go to (first empty cell in )C2-C6
if textboxA > 500 and textboxB = "goodbye" got to (first empty cell in )C7-C11
if textboxA < 499 and textboxB = "hello" go to "first empty call in ) D2-D6
if textboxA < 499 and textboxB ="goodbye" got to (first empty cell in )D7-D11

thx

 

[JLGWhiz]

See if you can use this

Sub t()
With ActiveSheet
If .textboxA.Value > 500 And .textboxB.Text = "hello" And Application.CountA(.Range("C2:C6")) < 5 Then
    If .Cells(2, 3) <> "" Then
        .Cells(1, 3).End(xlDown)(2).Select
    Else
        .Cells(2, 3).Select
    End If
ElseIf .textboxA.Value > 500 And .textboxB.Text = "goodbye" And Application.CountA(.Range("C7:C11")) < 5 Then
    If .Cells(7, 3) <> "" Then
        .Cells(6, 3).End(xlDown)(2).Select
    Else
        .Cells(7, 3).Select
    End If
 ElseIf .textboxA.Value < 499 And .textboxB.Text = "hello" And Application.CountA(.Range("D2:D6")) < 5 Then
    If .Cells(2, 4) <> "" Then
        .Cells(1, 4).End(xlDown)(2).Select
    Else
        .Cells(2, 4).Select
    End If
 ElseIf .textboxA.Value < 499 And .textboxB.Text = "goodbye" And Application.CountA(.Range("D7:D11")) > 5 Then
    If .Cells(7, 4) <> "" Then
        .Cells(6, 4).End(xlDown)(2).Select
    Else
        .Cells(7, 4).Select
    End If
End If
End With
End Sub

 

[apoliboli]

Thank you very much

 

[JLGWhiz]

Thank you very much

You are welcome,
regards, JLG