Este fórum está sendo desativado

[MarceloAdriano]

Minhas Considerações...
Gostaria de saber se tem a possibilidade de deixar a caixa do ActiveX ajustadas automaticamente conforme os cadastros realizados, segue o print da tela e o arquivo em anexo.
Saliento que já tentei diversas formas, como Cont.Valores..Desloc... mas sem sucesso!
Desde já agradeço...
Atenciosamente,
Marcelo Adriano
Contagem/MG

[EdivanCabral]

Olá, boa tarde!

Olha eu particularmente não conheço como fazer isso a não ser é claro usando VBA...

Criei essa macro aqui:

Sub PreencheCombobox3()
Dim LIN As Integer
LIN = 3

Do Until Planilha2.Range("D" & LIN).Value = ""
Planilha1.ComboBox2.AddItem Planilha2.Range("D" & LIN).Value
LIN = LIN + 1
Loop

End Sub





Tente executar ela e veja se da o resultado desejado, só que para atualizar sozinho, você teria que pensar em um modo de executar essa macro de forma automática....

[MarceloAdriano]

Olá Edivan Cabral
Primeiramente obrigado...
Teria como você testar essa macro no iten em anexo e me retornar a planilha já com a marcro, digo isso, pois tentei aplicar na minha planilha mas não deu certo...
Grato.
Marcelo Adriano

[EdivanCabral]

Eu também testei na sua mais porém o seu combobox esta protegido não consigo fazer com ele, tente fazer em um novo combobox para você ver que funciona...

[MarceloAdriano]

Olá
Tentarei e te retorno, obrigado