VBA - Combobox

[zenfra 0]

Boa tarde pessoal,Gostaria de saber se alguém aqui já trabalhou com VBA .Quero preecher um combobox no Excel a partir de uma consulta a uma tabela na minha base de dados Sql server.A conexão funciona perfeitamente, a select dos dados também, mas não consigo inserir itens no combobox, alguém saberia?Obrigado

[Graymalkin 0]

Você usou o método AddItem da combobox?Abraços,Graymalkin

[zenfra 0]

Sim usei ... como a seguir:Option ExplicitPrivate Sub UserForm_Initialize()Dim SQL As StringDim Cn As ConnectionDim Rs As RecordsetDim strings As StringSet Cn = CreateObject("ADODB.Connection")Set Rs = CreateObject("ADODB.Recordset")SQL = "select alterado_por,count(ds_acao) as conta " & _ "from bil_acao group by alterado_por " & _ "with rollup " Set Cn = RetornaConexao(1) Set Rs = Cn.Execute(SQL)Do Until Rs.EOFComboBox1.ClearComboBox1.AddItem Rs!ds_acao Rs.MoveNext Loop End Submas ele apresenta um erro :erro em tempo de execução: 3265O item não pode ser encontrado na coleção do correspondente ao nome ou ao ordinal solicitado

[Graymalkin 0]

O problema então não é a inserção no ComboBox e sim na sua SQL. Veja:

 

SQL = "select alterado_por,count(ds_acao) as conta " & _"from bil_acao group by alterado_por " & _"with rollup "

Você não está pedindo o campo "ds_acao" ali, você está pedindo "count(ds_acao)" e está lhe dando o nome "conta". Em um recordset você só tem os campos que seleciona.

 

Abraços,

 

Graymalkin