Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Procura seguinte

Ir para baixo 
2 participantes
AutorMensagem
nuno




Mensagens : 62
Data de inscrição : 27/02/2013

Procura seguinte Empty
MensagemAssunto: Procura seguinte   Procura seguinte EmptySex maio 17, 2013 5:43 pm

Boa tarde,

Tenho um form de cadastro e de procura. Tenho o seguinte comando para procurar o nome o nome nas planilhas e puxar os dados:

Set c = ws.Range("C:C").Find(tb3.Value, LookIn:=xlValues, _
LookAt:=xlPart)

Como faço para que ao clicar novamente no botao ele procure o valor aproximado seguinte?

Obrigado pela disponibilidade!
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

Procura seguinte Empty
MensagemAssunto: Re: Procura seguinte   Procura seguinte EmptySáb maio 18, 2013 2:30 am

Boa noite!!

Tipo.........
Código:
Sub DizEnderecoCriterio()
    Dim oRange As Range, aCell As Range, bCell As Range
    Dim ws As Worksheet
    Dim ExitLoop As Boolean
    Dim SearchString As String, FoundAt As String
   
    On Error GoTo Err
   
    Set ws = Worksheets("Sheet1")
    Set oRange = ws.Columns(1)

    SearchString = "2"
   
    Set aCell = oRange.Find(What:=SearchString, LookIn:=xlValues, _
                LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                MatchCase:=False, SearchFormat:=False)
   
    If Not aCell Is Nothing Then
        Set bCell = aCell
        FoundAt = aCell.Address
        Do While ExitLoop = False
            Set aCell = oRange.FindNext(After:=aCell)

            If Not aCell Is Nothing Then
                If aCell.Address = bCell.Address Then Exit Do
                FoundAt = FoundAt & ", " & aCell.Address
            Else
                ExitLoop = True
            End If
        Loop
    Else
        MsgBox SearchString & " Não encontrado"
    End If
   
    MsgBox "Encontrado em: " & FoundAt
    Exit Sub
Err:
    MsgBox Err.Description
End Sub

Faça uma adaptação!
Ir para o topo Ir para baixo
nuno




Mensagens : 62
Data de inscrição : 27/02/2013

Procura seguinte Empty
MensagemAssunto: Valor seguinte   Procura seguinte EmptyQui Jun 20, 2013 5:55 pm

Mais uma vez solicito ajuda...não consegui adaptar esse exemplo.Será que me podem facultar um sitio onde possa retirar essa informação.

Obrigado
Ir para o topo Ir para baixo
Conteúdo patrocinado





Procura seguinte Empty
MensagemAssunto: Re: Procura seguinte   Procura seguinte Empty

Ir para o topo Ir para baixo
 
Procura seguinte
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» VBA - Procura e "imputa" valores nas cells do lado.
» Procuurar valores
» RESOLVIDO!! VBA - Procura itens em uma planilha e posta resultado em outras
» Procura em variaas Folhas do Livro
» Vlookup procura em abas diferentes

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: