EXIBIR TODAS AS OCORRENCIAS DE UM DETERMINADO TEXT

HGZICA 23/04/2013 13:29:24
#422374
Tarde pessoal!

tenho um FORM com um TextBox que ira receber os dados.

O problema é que não consigo fazer com que ele me retorne todos os clientes que posuem o CEP informado, do jeito que está ele só pega o primeiro cliente encontrado

 Private Sub UserForm_Initialize()
Dim FoundCell As Range
Dim CEP As String

CEP = [Ô]1111-000[Ô]

Set FoundCell = ThisWorkbook.Sheets([Ô]Clientes[Ô]).Range([Ô]H:H[Ô]).Find(What:=CEP)
Do Until FoundCell Is Nothing
    Range(FoundCell.Address).Activate
    cidade = ActiveCell.Offset(0, 1).Value
    uf = ActiveCell.Offset(0, 2).Value
    
    TextBox1.Value = [Ô]CIDADE: [Ô] & cidade & vbCrLf & [Ô]UF: [Ô] & uf & vbCrLf & [Ô]-------------------------------[Ô] & vbCrLf
    
    Set FoundCell = Range([Ô]H:H[Ô]).FindNext
Loop
End Sub
MARCELO.TREZE 23/04/2013 16:23:16
#422385 Resposta escolhida
tenta

TextBox1.Value = TextBox1.Value & [Ô]CIDADE: [Ô] & cidade & vbCrLf & [Ô]UF: [Ô] & uf & vbCrLf & [Ô]-------------------------------[Ô] & vbCrLf
HGZICA 23/04/2013 16:46:29
#422386
MARCELO-TREZE, alterei a linha, mais o não deu certo, a página fica carregando e não acontece nada.

[txt-color=#0000f0]Private Sub UserForm_Initialize()
Dim FoundCell As Range
Dim cep As String

cep = [Ô]1111-000[Ô]

Set FoundCell = Range([Ô]H:H[Ô]).Find(What:=cep)

Do Until FoundCell Is Nothing
Range(FoundCell.Address).Activate
cidade = ActiveCell.Offset(0, 1).Value
uf = ActiveCell.Offset(0, 2).Value

[ô] MARCELO-TREZE
TextBox1.Value = TextBox1.Value & [Ô]CIDADE: [Ô] & cidade & vbCrLf & [Ô]UF: [Ô] & uf & vbCrLf & [Ô]-------------------------------[Ô] & vbCrLf

Set FoundCell = Range([Ô]H:H[Ô]).FindNext
Loop

End Sub[/txt-color]

um print em anexo da planilha
MARCELO.TREZE 23/04/2013 18:33:43
#422395
bom vá na propriedade MultiLine do textbox e mude para true

e o código tem que ser assim não value e sim text veja

TextBox1.Text = TextBox1.Text & [Ô]CIDADE: [Ô] & cidade & vbCrLf & [Ô]UF: [Ô] & uf & vbCrLf & [Ô]-------------------------------[Ô] & vbCrLf


acredito que assim funcione melhor
HGZICA 24/04/2013 13:44:13
#422447
RESOLVIDO!

Obrigado MARCELO!
Tópico encerrado , respostas não são mais permitidas
Voltar