My code is all there, but I can not find the error.
Private Sub CommandButton1_Click()
filtro_normal
End Sub
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Plan2.Range("data").NumberFormat = "General"
End Sub
Private Sub CommandButton10_Click()
Desativar_filtro
proximo_mes
Seleção_datas.Mensagem_1.Caption = "Filtrando contas do próximo mês"
Descongelar
Congelar
If Plan4.Range("d2") = "N° de itens agendados: 0" Then
MsgBox "Não existe nenhuma conta agendada para o próximo mês", vbInformation, "Agendamento de contas"
End If
End Sub
Private Sub CommandButton10_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton10.SetFocus
End Sub
Private Sub CommandButton11_Click()
Desativar_filtro
Esta_semana
Seleção_datas.Mensagem_1.Caption = "Filtrando contas desta semana"
Descongelar
Congelar
If Plan4.Range("d2") = "N° de itens agendados: 0" Then
MsgBox "Não existe nenhuma conta agendada para esta semana", vbInformation, "Agendamento de contas"
End If
End Sub
Private Sub CommandButton11_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton11.SetFocus
End Sub
Private Sub CommandButton12_Click()
Desativar_filtro
HOJE
Seleção_datas.Mensagem_1.Caption = "Filtrando contas de hoje"
Descongelar
Congelar
If Plan4.Range("d2") = "N° de itens agendados: 0" Then
MsgBox "Não existe nenhuma conta em aberto hoje " & " " & Seleção_datas.Mensagem_4, vbInformation, "Agendamento de contas"
End If
End Sub
Private Sub CommandButton12_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton12.SetFocus
End Sub
Private Sub CommandButton13_Click()
Desativar_filtro
Amanhã
Seleção_datas.Mensagem_1.Caption = "Filtrando contas de amanhã"
Descongelar
Congelar
If Plan4.Range("d2") = "N° de itens agendados: 0" Then
MsgBox "Não existe nenhuma conta agendada para amanhã", vbInformation, "Agendamento de contas"
End If
End Sub
Private Sub CommandButton13_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton13.SetFocus
End Sub
Private Sub CommandButton14_Click()
frmControle.Show 0
End Sub
Private Sub CommandButton14_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton14.SetFocus
End Sub
Private Sub CommandButton15_Click()
ActiveSheet.Range("$A$3:$G$2000").AutoFilter Field:=2
ActiveSheet.Range("$A$3:$G$2000").AutoFilter Field:=10
Seleção_datas.Mensagem_1.Caption = "Filtrando Período completo"
Este_ano
Descongelar
Congelar
End Sub
Private Sub CommandButton15_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton15.SetFocus
End Sub
Private Sub CommandButton16_Click()
Range("Filtro_periodo_1") = DTPicker1
Range("Filtro_periodo_2") = DTPicker2
If DTPicker2 < DTPicker1 Then
MsgBox "A data final não pode ser menor que a data inicial!", vbCritical, "Seleção de datas"
Else
Plan2.Range("f1") = False
Desativar_filtro2
ActiveSheet.Range("$J$6:$J$19").AutoFilter Field:=10, Criteria1:=">=" & (Range("Filtro_periodo_1")), Operator:=xlAnd, Criteria2:="<=" & (Range("Filtro_periodo_2"))
Seleção_datas.Mensagem_1 = "Filtrando " & Seleção_datas.DTPicker1 & " até " & Seleção_datas.DTPicker2
Ocultar_pago
Plan4.Range("a2") = Seleção_datas.Mensagem_1
End If
End Sub
Private Sub CommandButton2_Click()
Desativar_filtro2
Pesquisa.ComboBox1 = ""
Pesquisa.ComboBox2 = ""
Seleção_datas.Mensagem_1.Caption = "Filtro desativado"
Ocultar_pago
End Sub
Private Sub CommandButton2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton2.SetFocus
End Sub
Private Sub CommandButton3_Click()
Pesquisa.Show 0
Pesquisa.Left = 765
Pesquisa.Top = 359
'If Seleção_datas.Mensagem_1 = "" Then
'Pesquisa.Msg_de_pesquisa = "A Pesquisa será feito dentro da data que está filtrada"
'Else
'Pesquisa.Msg_de_pesquisa = Seleção_datas.Mensagem_1
'End If
End Sub
Private Sub CommandButton4_Click()
Desativar_filtro
Seleção_datas.Mensagem_1.Caption = "Filtro desativado"
Ocultar_pago
Seleção_datas.Mensagem_1.Caption = "Todas as datas"
Plan4.Range("a2") = ""
End Sub
Private Sub CommandButton3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton3.SetFocus
End Sub
Private Sub CommandButton5_Click()
Desativar_filtro
Mês_passado
Seleção_datas.Mensagem_1.Caption = "Filtrando contas do mês passado"
Descongelar
Congelar
If Plan4.Range("d2") = "N° de itens agendados: 0" Then
MsgBox "Não existe nenhuma conta em aberto do mês passado" & " " & Seleção_datas.Mensagem_4, vbInformation, "Agendamento de contas"
End If
End Sub
Private Sub CommandButton5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton5.SetFocus
End Sub
Private Sub CommandButton6_Click()
Desativar_filtro
Semana_passada
Seleção_datas.Mensagem_1.Caption = "Filtrando contas da semana passada"
Descongelar
Congelar
If Plan4.Range("d2") = "N° de itens agendados: 0" Then
MsgBox "Não existe nenhuma conta em aberto da semana passada" & " " & Seleção_datas.Mensagem_4, vbInformation, "Agendamento de contas"
End If
End Sub
Private Sub CommandButton6_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton6.SetFocus
End Sub
Private Sub CommandButton7_Click()
Desativar_filtro
Ontem
Seleção_datas.Mensagem_1.Caption = "Filtrando contas de ontem"
Descongelar
Congelar
If Plan4.Range("d2") = "N° de itens agendados: 0" Then
MsgBox "Não existe nenhuma conta em aberto de ontem " & " " & Seleção_datas.Mensagem_4, vbInformation, "Agendamento de contas"
End If
End Sub
Private Sub CommandButton7_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton7.SetFocus
End Sub
Private Sub CommandButton9_Click()
Desativar_filtro
Proxima_semana
Seleção_datas.Mensagem_1.Caption = "Filtrando contas da próxima semana"
Descongelar
Congelar
If Plan4.Range("d2") = "N° de itens agendados: 0" Then
MsgBox "Não existe nenhuma conta agendada para próxima semana", vbInformation, "Agendamento de contas"
End If
End Sub
Private Sub CommandButton9_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CommandButton9.SetFocus
End Sub
Private Sub DTPicker1_Change()
Range("Filtro_periodo_1") = DTPicker1
End Sub
Private Sub DTPicker2_Change()
Range("Filtro_periodo_2") = DTPicker2
End Sub
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
If Range("Filtrar_ao_clicar_data") = True Then
ActiveSheet.Range("$A$3:$G$2000").AutoFilter Field:=2
filtrar_data_imediatamente
End If
Plan4.Range("a2") = Seleção_datas.Mensagem_1
Descongelar
Congelar
If Plan4.Range("d2") = "N° de itens agendados: 0" Then
MsgBox "Não existe nenhuma conta agendada para o dia " & MonthView1 & " " & Seleção_datas.Mensagem_4, vbInformation, "Agendamento de contas"
End If
End Sub
Private Sub UserForm_Activate()
Descongelar
Congelar
If Plan2.Range("f1") = True Then
Seleção_datas.Mensagem_4 = "As contas pagas estão ocultas"
End If
End Sub
Private Sub UserForm_Initialize()
If Plan2.Range("f1") = True Then
Seleção_datas.Mensagem_4 = "As contas pagas estão ocultas"
End If
Range("Data") = ""
Seleção_datas.MonthView1.Value = VBA.Date
End Sub