Sub Estados()
With MeuFormulario.ComboBox_Estado ' Gostaria não precisar criar vários códigos para ComboBox com nomes diferentes, p. ex.: ComboBox_UF em outro campo no mesmo formulário.
.AddItem "Acre"
.AddItem "Alagoas"
.AddItem "Amapá"
.AddItem "Amazonas"
.AddItem "Bahia"
.AddItem "Ceará"
.AddItem "Distrito Federal"
.AddItem "Espírito Santo"
.AddItem "Goiás"
.AddItem "Maranhão"
.AddItem "Mato Grosso"
.AddItem "Mato Grosso do Sul"
.AddItem "Minas Gerais"
.AddItem "Pará"
.AddItem "Paraíba"
.AddItem "Paraná"
.AddItem "Pernambuco"
.AddItem "Piauí"
.AddItem "Rio de Janeiro"
.AddItem "Rio Grande do Norte"
.AddItem "Rio Grande do Sul"
.AddItem "Rondônia"
.AddItem "Rorâima"
.AddItem "Santa Catarina"
.AddItem "São Paulo"
.AddItem "Sergipe"
.AddItem "Tocantins"
End With
End Sub
E isso aí pessoal... Se alguém puder ter uma Valeu!
Obrigado.
Editado pela última vez por costaribeiro em Qua Fev 23, 2022 10:01 am, em um total de 1 vez.
Sub PreencherCombos()
Estados(ComboBox1)
Estados(ComboBox2)
Estados(ComboBox3)
End Sub
Sub Estados(ByRef pCBControl as ComboBox)
' pCBControl é um parâmetro da sub Estados, que vai representar o ComboBox que deseja.
' Por ser um parâmetro do tipo objeto, a sintaxe já captura o endereço de memória e, todas as modificações realizadas, afetam diretamente o controle informado.
With pCBControl
.AddItem "Acre"
.AddItem "Alagoas"
.AddItem "Amapá"
.AddItem "Amazonas"
.AddItem "Bahia"
.AddItem "Ceará"
.AddItem "Distrito Federal"
.AddItem "Espírito Santo"
.AddItem "Goiás"
.AddItem "Maranhão"
.AddItem "Mato Grosso"
.AddItem "Mato Grosso do Sul"
.AddItem "Minas Gerais"
.AddItem "Pará"
.AddItem "Paraíba"
.AddItem "Paraná"
.AddItem "Pernambuco"
.AddItem "Piauí"
.AddItem "Rio de Janeiro"
.AddItem "Rio Grande do Norte"
.AddItem "Rio Grande do Sul"
.AddItem "Rondônia"
.AddItem "Rorâima"
.AddItem "Santa Catarina"
.AddItem "São Paulo"
.AddItem "Sergipe"
.AddItem "Tocantins"
End With
End Sub