Boa tarde povo.

Estou desenvolvendo uma macro e preciso tirar algumas dividas antes de concluí-la:

1) Meu formulário tem uma combobox (cmbEmpresa) e uma textbox (txtAno). Para avançar da combobox para a textbox, a primeira não pode estar vazia. Portanto executei o comando:

Private Sub cmbEmpresa_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Application.ScreenUpdating = False

    If Me.cmbEmpresa.Value = "" Then
        MsgBox "Selecione a Empresa!", vbCritical, "Alerta"
        Cancel = True
    Else: Me.txtAno.Enabled = True
          Me.txtAno.SetFocus
    End If
    
Application.ScreenUpdating = True

End Sub

Ele funciona bem. Porém, ao fechar o formulário sem inserir nenhum dado na cmbEmpresa, a mensagem volta a ser exibida! Quero saber se há uma maneira de cancelar a msgbox ao fechar o formulário.

2) Preciso adicionar vários dados de uma planilha numa combobox e alguns destes dados são repetidos e não há como excluir ou organizar em ordem alfabética na planilha. Preciso saber se ha uma maneira de adicionar estes dados na combobox sem duplicá-los e em ordem alfabética.

3) Num formulário com 2 combobox preciso que os dados que surgirão na 2ª combobox, dependam das informações selecionadas na primeira. EX: Tenho 20 empresas cadastradas na 1ª combobox e na 2ª combobox tenho os meses em que cada uma obteve faturamento, ao selecionar uma das empresas, preciso que a 2ª combobox exiba apenas os meses que esta empresa obteve faturamento!

4) Preciso saber como gravar os dados de uma combobox numa planilha no formato de número. Sempre que gravo os dados, eles ficam no formato texto!