Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Tem como puxar parte de texto para COMBOXBOX?

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
feoonline
Colaborador
Colaborador
Mensagens: 15
Registrado em: Seg Ago 20, 2018 10:08 pm

Tem como puxar parte de texto para COMBOXBOX?

Mensagem por feoonline » Qua Set 12, 2018 2:08 am

Olá a todos,

Minha duvida é a seguinte:

Tenho um combobox no formulário, eu queria que carregasse para esse combo somente os textos que tenha a inicial R, isso vai ser fixo assim sempre.
Quando eu clicar no combobox so ira ter informações com a inicial R.

Obrigado.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1013
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Tem como puxar parte de texto para COMBOXBOX?

Mensagem por Reinaldo » Qua Set 12, 2018 7:59 am

Experimente algo +/- assim

Código: Selecionar todos

ComboBox1.Clear
             'Ultima linha da coluna A
For i = 1 To Cells(Cells.Rows.Count, "A").End(xlUp).Row
    If UCase(VBA.Left(Cells(i, 1), 1)) = "R" Then
        ComboBox1.AddItem Cells(i, 1)
    End If
Next i


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

feoonline
Colaborador
Colaborador
Mensagens: 15
Registrado em: Seg Ago 20, 2018 10:08 pm

Re: Tem como puxar parte de texto para COMBOXBOX?

Mensagem por feoonline » Qui Set 13, 2018 1:14 am

Reinaldo escreveu:
Qua Set 12, 2018 7:59 am
Experimente algo +/- assim

Código: Selecionar todos

ComboBox1.Clear
             'Ultima linha da coluna A
For i = 1 To Cells(Cells.Rows.Count, "A").End(xlUp).Row
    If UCase(VBA.Left(Cells(i, 1), 1)) = "R" Then
        ComboBox1.AddItem Cells(i, 1)
    End If
Next i
Olá,
Tentei fazer porem sem êxito , segue abaixo meu código:

Private Sub atualizaProtocolos()
cboProtocolo.Clear

Dim linConta As Long
Dim linTotal As Long

linTotal = Sheets("Cadastro").Range("A1").End(xlDown).Row
For linConta = 2 To linTotal
cboProtocolo.AddItem Sheets("Cadastro").Range("A" & linConta).Value

Next linConta

End Sub

pode me ajudar?



Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1013
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Tem como puxar parte de texto para COMBOXBOX?

Mensagem por Reinaldo » Qui Set 13, 2018 8:08 am

Código: Selecionar todos

Private Sub atualizaProtocolos()
Dim linConta As Long, linTotal As Long

cboProtocolo.Clear

With Sheets("Cadastro")
linTotal = .Range("A1").End(xlDown).Row
    For linConta = 2 To linTotal
        If UCase(VBA.Left(.Range("A" & linConta), 1)) = "R" Then
            cboProtocolo.AddItem .Range("A" & linConta).Value
        End If
    Next linConta
End With
End Sub
Se não for isso, poste seu modelo/exemplo


Reinaldo
Gostou da resposta?:?: :oops: :D :mrgreen:

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


feoonline
Colaborador
Colaborador
Mensagens: 15
Registrado em: Seg Ago 20, 2018 10:08 pm

Re: Tem como puxar parte de texto para COMBOXBOX?

Mensagem por feoonline » Qui Set 13, 2018 8:50 am

Reinaldo escreveu:
Qui Set 13, 2018 8:08 am

Código: Selecionar todos

Private Sub atualizaProtocolos()
Dim linConta As Long, linTotal As Long

cboProtocolo.Clear

With Sheets("Cadastro")
linTotal = .Range("A1").End(xlDown).Row
    For linConta = 2 To linTotal
        If UCase(VBA.Left(.Range("A" & linConta), 1)) = "R" Then
            cboProtocolo.AddItem .Range("A" & linConta).Value
        End If
    Next linConta
End With
End Sub
Se não for isso, poste seu modelo/exemplo

:mrgreen: :mrgreen:

Muito obrigado pela ajuda.

Até.



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder