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  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Procura seguinte

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
nuno



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

MensagemAssunto: Procura seguinte   Sex 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!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



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

MensagemAssunto: Re: Procura seguinte   Sab 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!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
nuno



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

MensagemAssunto: Valor seguinte   Qui 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Procura seguinte   Hoje à(s) 10:16 pm

Voltar ao Topo Ir em baixo
 
Procura seguinte
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Galera de BRASILIA O que precisar referente a xbox 360 me procura ae .
» [Exame.com] Cresce procura por programadores para smartphones e tablets
» Ricardo Silva - URGENTE: Procura-se companheiro para a Extreme XL Lagares
» Pediram me o seguinte...
» [FAQ] Mensagens da página anterior para mostrar na página seguinte

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: