Início / user-1810618

Rax's questions

Martin Hope
Rax
Asked: 2023-07-06 21:33:15 +0800 CST
  • 5

Eu tenho um intervalo de colunas com células em branco. Estou tentando copiar se alguma dessas células contém um texto. Para isso, escrevi o código a seguir, que funciona bem para a primeira linha. Como repetir isso para cada linha até a última linha usada?

Dim SrchRng As Range, cel As Range
Set SrchRng = Sheet1.Range("BI2:CZ2")
        For Each cel In SrchRng
        If cel.Value <> "" Then
        Sheet1.Range("AH2").Value = cel.Value
    End If
Next cel
vba
Martin Hope
Rax
Asked: 2023-06-19 13:44:49 +0800 CST
  • 5

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