Olá Prezados,
Estou elaborando um Userform, para gerar relátório atravês de uma datainicial e uma datafinail. Estou utilizando a formula autofilter, a mesma esta funcionando corretamente, mas porém encontrei em minha codificação uma falha, pois quando executo a mesma em uma data não registrada ela me traz todo o histórico da minha base. Eu gostaria de saber como posso fazer para evitar esse processo quando minha data não for encontrada, e assim o meu userform execulta esta msgbox informando : "NAO Á RESGISTROS PARA ESTA DATA". Vocês podem me ajudar, estou aprendendo a codificar agora e tenho aprendido bastante com vocês. Segue abaixo a minha codificação:
Dim DTINICIAL As Date
Dim DTFINAL As Date
DTINICIAL = TextBox1
DTFINAL = TextBox2
INICIAL = CLng(DTINICIAL)
Final = CLng(DTFINAL)
Plan2.Cells.AutoFilter FIELD:=3, Criteria1:=ComboBox1
Plan2.Cells.AutoFilter FIELD:=1, Criteria1:=">=" & INICIAL, Operator:=xlAnd, Criteria2:="<=" & Final
if autofilter FIELD:=3, Criteria1:=ComboBox1 = "" then
MsgBox "NAO Á RESGISTROS PARA ESTA DATA", vbInformation, "
else
A = Application.WorksheetFunction.CountA(Plan2.Columns(1))
Plan2.Range("A2:F" & A).Copy (Plan11.Cells(1, 1))
b = Application.WorksheetFunction.CountA(Plan3.Columns(1)) + 1
Plan11.Range("A1").Copy (Plan3.Cells(b, 1))
Plan3.Select
Range("G2:J14").Select
Selection.Copy
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Plan3.Cells.AutoFilter FIELD:=3, Criteria1:=ComboBox1
e = Application.WorksheetFunction.CountA(Plan3.Columns(2))
d = Application.WorksheetFunction.CountA(Plan5.Columns(1))
Plan3.Range("B2:F" & e).Copy (Plan5.Cells(d, 1))
ActiveSheet.ShowAllData
Range("A2:F14").Select
Selection.ClearContents
Plan11.Cells.ClearContents
Plan2.Select
ActiveSheet.ShowAllData
Plan5.Select
End
End If
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Como criar uma msgbox para um autofilter não identificado
-
- Acabou de chegar
- Mensagens: 1
- Registrado em: Qui Ago 04, 2016 2:03 am
- Lúcio Mauro da Silva
- Manda bem
- Mensagens: 134
- Registrado em: Sex Set 06, 2013 2:15 pm
Re: Como criar uma msgbox para um autofilter não identificado
Boa tarde Diego,
Poderia postar a cópia do arquivo para analisarmos?
Obg.
Poderia postar a cópia do arquivo para analisarmos?
Obg.