Página 1 de 1

Como criar uma msgbox para um autofilter não identificado

Enviado: Seg Ago 08, 2016 4:22 pm
por Diegoodomingos
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

Re: Como criar uma msgbox para um autofilter não identificado

Enviado: Seg Ago 08, 2016 4:52 pm
por Lúcio Mauro da Silva
Boa tarde Diego,

Poderia postar a cópia do arquivo para analisarmos?

Obg.