Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Como criar uma msgbox para um autofilter não identificado

Discussões a linguagem C#, ASP.NET e assuntos relacionados à plataforma
Diegoodomingos
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Qui Ago 04, 2016 2:03 am

Como criar uma msgbox para um autofilter não identificado

Mensagem 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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Lúcio Mauro da Silva
Manda bem
Manda bem
Mensagens: 134
Registrado em: Sex Set 06, 2013 2:15 pm

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

Mensagem por Lúcio Mauro da Silva »

Boa tarde Diego,

Poderia postar a cópia do arquivo para analisarmos?

Obg.


Responder