USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (VBA)

Título da Dica:  Realiza busca por strings nas células o excel, depois verifica toda a planilha, até o final.....
Postada em 16/2/2006 por Geronimo            
PROCURAR POR STRINGS NO EXCEL... E PESQUISAR PELA PRÓXIMA...

IMPORTANTE: É NECESSÁRIO DECLARAR AS VARIÁVEIS DE CONTROLE COMO PUBLIC....

If TextBox1.text = "" Then
    MsgBox "Digite uma referência a ser buscada!"
    Exit Sub
End If

    ActiveCell.Select
    Maxplace = Selection.address
    ActiveSheet.Range(Maxplace, Cells(200, 2)).Select
    Selection.Find(what:=(TextBox1.text), AFTER:=ActiveCell, LookIn:=xlValues, _
    LookAt:=xlPart, searchOrder:=xlByColumns, searchDirection:=xlNext, _
    MatchCase:=False).Select

ulttext = Selection.address
text = TextBox1.text

If Maxplace = ulttext Then
        cont = cont + 1
           If cont = 3 Then
                If MsgBox("A pesquisa chegou ao final da planilha e não encontrou mais dados, deseja pesquisar do início?", vbYesNo, "Pesquisar Novamente!") = vbYes Then
                    Maxplace = Range("b8").Select
                    cont = 0
                Else
                    cont = 0
                End If
            End If
Else
    cont = 0
End If

End If
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página