Página 1 de 1

Tem como puxar parte de texto para COMBOXBOX?

Enviado: Qua Set 12, 2018 2:08 am
por feoonline
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.

Re: Tem como puxar parte de texto para COMBOXBOX?

Enviado: Qua Set 12, 2018 7:59 am
por Reinaldo
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

Re: Tem como puxar parte de texto para COMBOXBOX?

Enviado: Qui Set 13, 2018 1:14 am
por feoonline
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?

Re: Tem como puxar parte de texto para COMBOXBOX?

Enviado: Qui Set 13, 2018 8:08 am
por Reinaldo

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

Re: Tem como puxar parte de texto para COMBOXBOX?

Enviado: Qui Set 13, 2018 8:50 am
por feoonline
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é.