Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Pesquisa resultou em 3 ocorrências

por Zeca1456
Ter Abr 30, 2019 1:07 pm
Fórum: VBA Básico
Tópico: FILTRO NO ListView
Respostas: 1
Exibições: 206

FILTRO NO ListView

Ao iniciar a UserForm, o ListView é carregado automaticamente. Tenho uma caixa de texto (txtPesquisa) ao digitar uma letra o sistema faz um filtro no ListView mostrando apenas os clientes cujo o nome se inicia com a letra que foi digitada. Quero criar um código para que o sistema mostre uma mensagem...
por Zeca1456
Ter Jul 31, 2018 1:05 pm
Fórum: VBA Básico
Tópico: VBA - Se o relatório estiver vazio, quero uma mensagem dizendo que nao ha nada nesse intervalo.
Respostas: 2
Exibições: 389

Re: VBA - Se o relatório estiver vazio, quero uma mensagem dizendo que nao ha nada nesse intervalo.

Eu só coloquei o trecho onde quero acrescentar um MsgBox. Entao quando isso ocorre--> If Dates >= txtReportDateStart And Dates <= txtReportEndDate Then If IsNumeric(.Cells(line, 23)) Then End If End If xxxxxxxxxxxxxxx ABAIXO CODIGO COMPLETO xxxxxxxxxxxxxxxxxxxxxxxxxxxxx Private Sub btnFilterDates_Cl...
por Zeca1456
Seg Jul 30, 2018 4:49 pm
Fórum: VBA Básico
Tópico: VBA - Se o relatório estiver vazio, quero uma mensagem dizendo que nao ha nada nesse intervalo.
Respostas: 2
Exibições: 389

VBA - Se o relatório estiver vazio, quero uma mensagem dizendo que nao ha nada nesse intervalo.

Ola pessoal. Tenho essa macro: Dim Dates As Date Dim StartDate As Date Dim EndDate As Date Dim line As Long Dim linelist As Long Dim li As ListItem line = 2 listvBetweenDates.ListItems.Clear With Sheet1 While .Cells(line, 1).Value <> " " Dates = .Cells(line, 16).Value If Dates >= txtReportDateStart ...