Boa tarde pessoal,
Estou fazendo um curso de vba pela internet, tentando aprender sozinho, na "raça" rsrs...
O primeiro exercício é para filtrar linhas através de um textbox.
O código é o abaixo, mas , ao depurar, deu erro na linha: lLinha = Cells( Rows.Count, 2).End(xlToUP).Row
O que o código faz é apenas fazer a filtragem da linha de acordo com oq é digitado....deve ser algo bobo..mas não consigo resolvÊ-lo...
Poderiam dar um help?
Se eu substituo a variável lLinha por um número qualquer , ao fazer o loop, o código roda legal...
Private Sub TextBox2_Change()
Dim i As Long
Dim lLinha As Long
'Desliga a atualização automática do Excel
Application.ScreenUpdating = False
'Seleciona todas as células da planilha
Cells.Select
'Exibe todas as linhas da planilha
Selection.EntireRow.Hidden = False
`guarda última linha preenchida
lLinha = Cells( Rows.Count, 2).End(xlToUP).Row
'Seleciona a célula
Cells(3, 2).Select
'Faz um loop por todas as colunas preenchidas a partir da segunda
For i = 4 To lLinha
'Verifica se a célula contém a informação pesquisada
If (UCase(Cells(i, 2).Value) Like "*" & UCase(TextBox2.Text) & "*") = False Then
'Oculta a coluna caso não tenha a informação pesquisada
Rows(i).EntireRow.Hidden = True
End If
Next i
'Seleciona novamente o textbox para digitar o próximo caracter
TextBox2.Activate
'Liga a atualização automática do Excel
Application.ScreenUpdating = True
End Sub
Postado : 17/08/2015 10:18 am