Pesquise duas colunas no Microsoft excel 2013 e defina o valor de uma terceira coluna com um valor específico

Question

Eu quero pesquisar um texto específico que é o firstname_lastname , por exemplo, John_Smith in worksheetA . WorksheetA tem uma coluna firstname e outra coluna lastname . Então, depois de saber qual linha tem o nome e sobrenome que eu procurei, eu quero definir o valor da célula na mesma linha com um valor específico.

Por exemplo, se esta for minha planilha:

Firstname     Lastname     Found
Matt          Damon        No
Smith         Andrew       No
John          Smith        No
Tom           Mark         No

e minha palavra de pesquisa é John_Smith , o resultado será

Firstname     Lastname     Found
Matt          Damon        No
Smith         Andrew       No
John          Smith        Yes
Tom           Mark         No

Algum conselho, por favor, como isso pode ser feito no VBA excel?

    

Answer 1

Este código deve funcionar:

Public Sub searchfullname()
    fullname = InputBox("Input first and last name separated by _")
    namesarray = Split(fullname, "_")
    i = 2
    dataintable = True
    result = "No"
    m = ActiveSheet.Cells(i, 1)
    If m = "" Then dataintable = False
    While dataintable = True
        result = "No"
        If m = namesarray(0) Then
            n = ActiveSheet.Cells(i, 2)
            If n = namesarray(1) Then
                result = "Yes"
            End If
        End If
        ActiveSheet.Cells(i, 3) = result
        i = i + 1
        m = ActiveSheet.Cells(i, 1)
        If m = "" Then dataintable = False
    Wend
End Sub