Início / computer / Perguntas / 1789855
Accepted
Rax
Asked: 2023-06-19 13:44:49 +0800 CST

VBA para encontrar texto específico em um intervalo de colunas

  • 772

Eu tenho valor como "VERDADEIRO" nas colunas B a H. Quero que minha macro retorne "FALSO" na coluna A se alguma célula no intervalo B:H contiver "FALSO" senão "VERDADEIRO". E faça isso até a última linha preenchida. Qualquer ajuda é apreciada!

Eu tentei o código abaixo que está funcionando para uma linha, mas como fazer isso para todas as linhas preenchidas?

Sub Test2()

Dim foundRng As Range

Set foundRng = Range("B2:H2").Find("FALSE")

If foundRng Is Nothing Then
    Range("A2").Value = "TRUE"
Else
    Range("A2").Value = "FALSE"
End If
End Sub
vba

1 respostas

  1. Best Answer

    Eu modifiquei seu código e incluí:

    • Uma variável para encontrar a última célula não vazia da coluna A: Dim lastRow As Long.
    • Em seguida, use um loop para verificar o valor do intervalo B:H e exibe o resultado na linha correspondente da coluna A.
    Sub Test2()

    Dim foundRng As Range
    Dim lastRow As Long

    'Find the last row with data of column A -- A is indicated with 1
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    'Loop from row 2 to the last row
    For counter = 2 To lastRow
        'Check the value based on the row
        Set foundRng = Range("B" & counter & ":H" & counter).Find("FALSE")
        
        If foundRng Is Nothing Then
            Worksheets("Sheet1").Range("A" & counter).Value = "TRUE"
        Else
            Worksheets("Sheet1").Range("A" & counter).Value = "FALSE"
        End If
        
    Next counter
    
End Sub
    • 1

relate perguntas