简体   繁体   中英

VBA Excel find the first empty cell next to values

Could use some help on a project. My table looks something like this:

WEEK1 TEST1 VALUE
WEEK1 TEST1 [blank]
WEEK1 TEST2 [blank]
WEEK2 TEST1 VALUE
WEEK2 TEST2 [blank]
WEEK2 TEST1 VALUE

About 800 rows of these in different variations.

Now I need to find the first empty cell in C that has WEEK2 and TEST2 next to it. How would one go about doing this? Purpose is to enter a value in that cell that comes from a userform that defines A and B.

Sub FindMatch()
Dim sTxt1 As String, sTxt2 As String, vMatch As Variant

sTxt1 = """Week2"""
sTxt2 = """Test2"""

sformula = "MATCH(1,(A:A=" & sTxt1 & ")*(B:B=" & sTxt2 & "),0)"
vMatch = Evaluate(sformula)
If IsNumeric(vMatch) Then MsgBox Range("C" & vMatch).Address

End Sub

Added another condition to check whether Column-C is blank? Replace the below line of code to verify the column-C part also.

sformula = "MATCH(1,(A:A=" & sTxt1 & ")*(B:B=" & sTxt2 & ")*(C:C=""""),0)"

Try this code.

Sub CheckRows()
Dim RowNo As Long
RowNo = 1
    With ActiveWorkbook.Sheets(1)
        Do While .Cells(RowNo, 1).Value <> ""
                If UCase(.Cells(RowNo, 1).Value) = "WEEK2" And _
                UCase(.Cells(RowNo, 2).Value) = "TEST2" And _
                .Cells(RowNo, 3).Value = "" Then
                MsgBox "Found at Row Number " & RowNo
                Exit Sub
            Else
            RowNo = RowNo + 1
            End If
        Loop
    End With
End Sub
Sub test()
    Dim x As Range, i&: i = [C:C].Find("*", , , , , xlPrevious).Row
    For Each x In Range("A1:A" & i)
        If UCase(x.Value2 & x.Offset(, 1).Value2 & _
                 x.Offset(, 2).Value2) = "WEEK2TEST2" Then
            MsgBox x.Offset(, 2).Address(0, 0):  Exit For
        End If
    Next x
End Sub

The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.

 
粤ICP备18138465号  © 2020-2024 STACKOOM.COM