Variável dentro de aspas

[flaviorc]

Ola amigos,

 

Nó Código que postei abaixo, preciso que seja filtrado na planilha excel todas as celulas em uma determinada coluna que atenda ao critério de se inciar com os caracteres contidos na variável pesquisa. Porém, não estou conseguindo manusear a variável dentro das aspas do critério.

 

Alguém consegue me ajudar?

 

Valeu!

 

 

Sub Filtrar_Rota_Inteira()

Dim linha As Integer, c As String
Dim pesquisa As String
Dim letra As String

linha = ActiveCell.Row

Range("CZ" & linha).Activate
c = 1
While letra <> "." And Len(pesquisa) < Len(ActiveCell)
    letra = Mid(ActiveCell.Value, c, 1)
    pesquisa = pesquisa & letra
    c = c + 1
Wend

ActiveSheet.Range("A:é").AutoFilter Field:=104, Criteria1:="='" & [pesquisa] & "' *", Operator:=xlAnd

End Sub

[Visitante]

Olá, Flavio.

Experimentou ?

Criteria1:=pesquisa & "*"

 

[flaviorc]

Osvaldo,

 

Funcionou, deu certo. 

 

Obrigado!