Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Tem como puxar parte de texto para COMBOXBOX?
Tem como puxar parte de texto para COMBOXBOX?
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.
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.
- Reinaldo
- Jedi
- Mensagens: 1537
- 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?
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?
Olá,Reinaldo escreveu: ↑Qua Set 12, 2018 7:59 am Experimente algo +/- assimCó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
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?
- Reinaldo
- Jedi
- Mensagens: 1537
- 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?
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
Re: Tem como puxar parte de texto para COMBOXBOX?
Reinaldo escreveu: ↑Qui Set 13, 2018 8:08 amSe não for isso, poste seu modelo/exemploCó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
Muito obrigado pela ajuda.
Até.