1. java
  2. android
  3. c#
  4. .net
  5. javascript
  6. php
  7. jquery
  8. html
  9. sql

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

  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do GUJ!

0 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags vba excel relatórios ou faça a sua própria pergunta.