Alterar Busca da Coluna B para a Coluna A

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Alterar Busca da Coluna B para a Coluna A

Mensagempor Wiliam » Sex Mai 22, 2020 12:04 pm

Tenho uma planilha e a busca está sendo feita pela Coluna B e preciso que ela seja feita pela coluna A, mas não estou conseguindo alterar, talvez seja porque a coluna B esteja com texto e a Coluna A números.
Alguém pode me ajudar?
esse é o código utilizado.

Código: Selecionar todos
Private Sub Codigo_change()
  If Codigo.Text <> "" Then
    Selection.AutoFilter Field:=1, Criteria1:="=" & Codigo.Text
  Else
    Selection.AutoFilter Field:=1
  End If
End Sub

Private Sub Limpar_Filtros_Click()
Codigo = Empty
nome = ""
Qtd = ""
VMin = ""
VMax = ""
Data_Inicio = ""
Data_Fim = ""
End Sub

Private Sub nome_Change()
Selection.AutoFilter Field:=2, Criteria1:=CStr("*" + nome.Text) + "*"
If nome.Text = "" Then
    Selection.AutoFilter Field:=2
  End If
End Sub

Private Sub Qtd_Change()
If Qtd.Text <> "" Then
    Selection.AutoFilter Field:=3, Criteria1:="=" & Qtd.Text
  Else
    Selection.AutoFilter Field:=3
  End If
End Sub

Private Sub VMin_Change()
    If VMin.Text <> "" Then
        If VMax.Text <> "" Then
            Selection.AutoFilter Field:=4, Criteria1:=">=" & Replace(VMin.Text, ",", "."), Criteria2:="<=" & Replace(VMax.Text, ",", ".")
        Else
            Selection.AutoFilter Field:=4, Criteria1:=">=" & Replace(VMin.Text, ",", ".")
        End If
    Else
        If VMax.Text <> "" Then
            Selection.AutoFilter Field:=4, Criteria1:="<=" & Replace(VMax.Text, ",", ".")
        End If
    End If
       
    If VMin.Text = "" And VMax.Text = "" Then
        Selection.AutoFilter Field:=4
    End If
     
End Sub

Private Sub VMax_Change()
    If VMax.Text <> "" Then
        If VMin.Text <> "" Then
            Selection.AutoFilter Field:=4, Criteria1:=">=" & Replace(VMin.Text, ",", "."), Criteria2:="<=" & Replace(VMax.Text, ",", ".")
        Else
            Selection.AutoFilter Field:=4, Criteria1:="<=" & Replace(VMax.Text, ",", ".")
        End If
    Else
        Selection.AutoFilter Field:=4, Criteria1:=">=" & Replace(VMin.Text, ",", ".")
    End If
   
    If VMin.Text = "" And VMax.Text = "" Then
        Selection.AutoFilter Field:=4
    End If
 
  End Sub
Private Sub Data_Inicio_Change()
If Data_Inicio.Text <> "" Then
    If Data_Fim.Text <> "" Then
        Selection.AutoFilter Field:=6, Criteria1:= _
        ">=" & Format(Data_Inicio, "0"), Operator:=xlAnd, Criteria2:=" <= " & Format(Data_Fim, "0")
    Else
        Selection.AutoFilter Field:=6, Criteria1:=">=" & Format(Data_Inicio, "0")
    End If
  Else
    Selection.AutoFilter Field:=6, Criteria1:="<=" & Format(Data_Fim, "0")
  End If
 
      If Data_Fim.Text = "" And Data_Inicio.Text = "" Then
        Selection.AutoFilter Field:=6
    End If
   
End Sub



Private Sub Data_Fim_Change()
If Data_Fim.Text <> "" Then
    If Data_Inicio.Text <> "" Then
        Selection.AutoFilter Field:=6, Criteria1:= _
        ">=" & Format(Data_Inicio, "0"), Operator:=xlAnd, Criteria2:=" <= " & Format(Data_Fim, "0")
    Else
        Selection.AutoFilter Field:=6, Criteria1:="<=" & Format(Data_Fim, "0")
    End If
  Else
   Selection.AutoFilter Field:=6, Criteria1:=">=" & Format(Data_Inicio, "0")
  End If
 
    If Data_Fim.Text = "" And Data_Inicio.Text = "" Then
        Selection.AutoFilter Field:=6
    End If
End Sub
' Filtra o valor digitado na célula
Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("b1")) Is Nothing Then
            Selection.AutoFilter Field:=2, Criteria1:=CStr("*" + Range("b1").Text) + "*"
        End If
End Sub
Wiliam
Membro
Membro
 
Mensagens: 1
Registrado em: Sex Mai 22, 2020 11:58 am
Has thanked: 0 time
Have thanks: 0 time

{ SO_SELECT }

Re: Alterar Busca da Coluna B para a Coluna A

Mensagempor JSCOPA10 » Sex Mai 22, 2020 12:18 pm

.
Wiliam, dê uma lida nas regras do fórum ... viewtopic.php?f=7&t=203
.
O tópico "apresente-se aqui" é só para apresentação, não para fazer perguntas!!! ... Por isto movi ele para este tópico!!! ... Outra, sempre que postar código, clique em CODE para que ao colar ele fique como coloquei acima!!!
.
Avatar do usuário
JSCOPA10
Ninja do Excel
Ninja do Excel
 
Mensagens: 422
Registrado em: Qua Jun 19, 2019 9:11 pm
Has thanked: 41 times
Have thanks: 146 times

Re: Alterar Busca da Coluna B para a Coluna A

Mensagempor Anderson » Sex Mai 22, 2020 1:27 pm

Para converter um texto para número, use:

Código: Selecionar todos
cdbl("texto aqui")


Não crie um tópico sem anexar o arquivo.
Anderson
Membro
Membro
 
Mensagens: 166
Registrado em: Dom Mar 15, 2020 10:40 pm
Has thanked: 1 time
Have thanks: 63 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 5 visitantes