Este fórum está sendo desativado

[JCabral]

Boa tarde
Gostaria de saber se é possível, e em caso afirmativo como, adicionar o texto que é escrito numa ComboBox, numa Userform, à Lista de dados da ComboBox e a uma Lista existente numa determinada Tab da Planilha, ou seja:

- Tenho uma userform com uma ComboBox;
- Ao escrever algo na ComboBox, p.ex. "TESTE" e premindo o "ENTER" é adicionado na Lista da ComboBox o item "TESTE" e é escrito em na Coluna C também.

Adiciono planilha exemplo

[Basole]

Experimente o evento Keydown:

Código: Selecionar todos

Private Sub cboData_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
KeyCode = 0
Range("C" & Cells(Rows.Count, 3).End(xlUp).Offset(1).Row) = Me.cboData.Text
 Me.cboData.Clear
 Call LoadComboBox
End If
End Sub

[JCabral]

Caro Basole

Diria que é quase perfeito, é que se selecionar um item existente e carregar ENTER ele grava e o item fica repetido. Tem como checkar se o item já existe e caso exista não gravar?

NOTA IMPORTANTE: Não sei se é só comigo, mas não estou autorizado a agradecer, aparece uma POP-UP a dizer que "Não está autorizado a fazer esta ação."

[osvaldomp]

Olá, @JCabral .

Segue uma ideia.
No código que o Mestre @Basole passou acrescente um comando para verificar se o conteúdo da Combo já existe na coluna C, conforme em vermelho abaixo.

If Application.CountIf([C:C], cboData.Text) = 0 Then
Range("C" & Cells(Rows.Count, 3).End(xlUp).Offset(1).Row) = Me.cboData.Text
End If

[JCabral]

@osvaldomp, @Basole,

Muito obrigado a ambos, ficou TOP.

Continuo sem poder agradecer lá em cima. Continuo sem saber se é problema meu

[osvaldomp]

Continuo sem poder agradecer lá em cima. Continuo sem saber se é problema meu

Eu cliquei no "Obrigado" da sua mensagem e me retornou "Você não está autorizado ...".

Ainda, apesar de marcar "Mantenha-me conectado", ao sair da página sou desconectado.

Me parece que a plataforma que suporta o fórum está com problemas.

[JCabral]

@osvaldomp,

Acontece-me exactamente isso, obrigado por confirmar que o problema não é só meu.