Tomás Vásquez Fórum

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.

Experimente algo +/- assim

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?

Se não for isso, poste seu modelo/exemplo

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é.