ola,
estou fazendo um codigo em vba que deve ocultar algumas linhas que contenha a palavra RF se eu digitar a palavra reator.
como eu faria essa condicao?
imagino que seja com IF
Você está vendo a versão anterior da nova experiência da Alura que estamos preparando para você. Em breve, ela ganha uma identidade visual novinha totalmente pensada em potencializar seus estudos!
ola,
estou fazendo um codigo em vba que deve ocultar algumas linhas que contenha a palavra RF se eu digitar a palavra reator.
como eu faria essa condicao?
imagino que seja com IF
Bom dia!
Correto! É necessário o uso de IF para que você possa tratar tal condição.
o código abaixo pode ser adaptado e usado para a necessidade que voce tem.
Private Sub Worksheet_Change(ByVal Target As Range)
' Define a célula exata onde você digita a palavra (ex: A1)
If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
' Verifica se o texto digitado é "reator" (ignora maiúsculas/minúsculas)
If LCase(Target.Value) = "reator" Then
OcultarLinhasRF
End If
End If
End Sub
Sub OcultarLinhasRF()
Dim celula As Range
Dim intervalo As Range
' Define o intervalo que contém os dados (mude "B1:B100" para a sua coluna real)
Set intervalo = Me.Range("B1:B100")
' Congela a tela para o código rodar mais rápido
Application.ScreenUpdating = False
' Vira cada célula do intervalo
For Each celula In intervalo
' Se a célula contiver a palavra "RF", oculta a linha inteira
If InStr(1, celula.Value, "RF", vbTextCompare) > 0 Then
celula.EntireRow.Hidden = True
End If
Next celula
Application.ScreenUpdating = True
End Sub
Espero ter ajudado. Se sua dúvida foi sanada, marque este tópico como solucionado.
Bons estudos!