Versão atual:

Como criar um relatório em VBA

Preciso que gere um relatório em que o usuário escolha entre grupo, concessão, estado ou responsável depois se ele quer todos ou específico.

Private Sub UserForm_Click()

Private Sub UserForm_Initialize()
    OptionButton_todos.Enabled = False
    OptionButton_espec.Enabled = False
    ComboBox1.Enabled = False
End Sub
Private Sub CheckBox_grupo_Click()
 If CheckBox_grupo Then
    CheckBox_concessao.Enabled = False
    CheckBox_uf.Enabled = False
    CheckBox_responsavel.Enabled = False
    OptionButton_todos.Enabled = True
    OptionButton_espec.Enabled = True
    ComboBox1.Enabled = True
Else
    CheckBox_concessao.Enabled = True
    CheckBox_uf.Enabled = True
    CheckBox_responsavel.Enabled = True
    OptionButton_todos.Enabled = False
    OptionButton_espec.Enabled = False
    ComboBox1.Enabled = False

End If
End Sub
Private Sub CheckBox_concessao_Click()
 If CheckBox_concessao Then
    CheckBox_grupo.Enabled = False
    CheckBox_uf.Enabled = False
    CheckBox_responsavel.Enabled = False
    OptionButton_todos.Enabled = True
    OptionButton_espec.Enabled = True
    ComboBox1.Enabled = True
Else
    CheckBox_grupo.Enabled = True
    CheckBox_uf.Enabled = True
    CheckBox_responsavel.Enabled = True
    OptionButton_todos.Enabled = False
    OptionButton_espec.Enabled = False
    ComboBox1.Enabled = False

End If
End Sub
Private Sub CheckBox_uf_Click()
 If CheckBox_uf Then
    CheckBox_grupo.Enabled = False
    CheckBox_concessao.Enabled = False
    CheckBox_responsavel.Enabled = False
    OptionButton_todos.Enabled = True
    OptionButton_espec.Enabled = True
    ComboBox1.Enabled = True
Else
    CheckBox_grupo.Enabled = True
    CheckBox_concessao.Enabled = True
    CheckBox_responsavel.Enabled = True
    OptionButton_todos.Enabled = False
    OptionButton_espec.Enabled = False
    ComboBox1.Enabled = False

End If
End Sub
Private Sub CheckBox_responsavel_Click()
 If CheckBox_responsavel Then
    CheckBox_grupo.Enabled = False
    CheckBox_concessao.Enabled = False
    CheckBox_uf.Enabled = False
    OptionButton_todos.Enabled = True
    OptionButton_espec.Enabled = True
    ComboBox1.Enabled = True
Else
    CheckBox_grupo.Enabled = True
    CheckBox_concessao.Enabled = True
    CheckBox_uf.Enabled = True
    OptionButton_todos.Enabled = False
    OptionButton_espec.Enabled = False
    ComboBox1.Enabled = False

End If

End Sub
Private Sub OptionButton_todos_Click()
 If OptionButton_todos Then
    ComboBox1.Enabled = False
Else
    ComboBox1.Enabled = True

End If

End Sub
Private Sub OptionButton_espec_Click()
 If OptionButton_espec Then
    ComboBox1.Enabled = True
Else
    ComboBox1.Enabled = False

End If
End Sub
Private Sub botao_buscar_Click()

relat_busca

End Sub

Private Sub botao_voltar_Click()

Unload Me

End Sub

Em anexo segue a tela

https://www.filepicker.io/api/file/q7136RDfRujvRds6toQr

Versões(2):

Ver a versão formatada

Como criar um relatório em VBA

Comentário

new question