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
Muito obrigado pela ajuda.
Até.