nuno
Mensagens : 62 Data de inscrição : 27/02/2013
| Assunto: 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! | |
|
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Procura seguinte Sá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! | |
|
nuno
Mensagens : 62 Data de inscrição : 27/02/2013
| Assunto: 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 | |
|
Conteúdo patrocinado
| Assunto: Re: Procura seguinte | |
| |
|