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

Msgbox com condições

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
RamonMts
Colaborador
Colaborador
Mensagens: 18
Registrado em: Dom Jul 21, 2019 9:11 pm

Msgbox com condições

Mensagem por RamonMts »

Pessoal, bom dia.

Poderiam me auxiliar por favor?

Eu tenho uma tabela com controle de tarefas e um controle nela.
Fiz uma macro pra quando tiver processos pendentes, ele mostrar no msgbox porém, não consegui estabelecer alguns critérios.

1 - o msg box mostrar pesquisando nas linhas de situação (coluna G) o que está como "verificar" e mostrar quais atividades da coluna "D" estão pendentes.

2 - a mesma coisa pra semanal e mensal, porém nessas eu tentei adicionar uma função pra ele mostrar a tarefa e contar quantos dias faltam para o fim da semana (a sexta) e o fim do mês (todo dia 25) e contar quantos dias faltam pra entrega.

Não consegui por estes dois critérios, poderiam me ajudar por gentileza?
Anexos
TABELA DE ATIVIDADES - Copia 21.rar
(22.15 KiB) Baixado 168 vezes


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
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Msgbox com condições

Mensagem por Reinaldo »

Não entendi a demanda.
Em seu modelo/exemplo há duas "Tabelas" aparentemente iguais (exceto qtde de itens); o que distingue/demonstra a aplicação de cada uma delas?
Em G18 consta como verificar. Como identificar se é Diário / Semanal /Mensal
Uma sugestão, antés da exibição do MsgBox, de um loop nas linhas/tabela envolvida verificando qual(is) linha(s) atende o desejado


RamonMts
Colaborador
Colaborador
Mensagens: 18
Registrado em: Dom Jul 21, 2019 9:11 pm

Re: Msgbox com condições

Mensagem por RamonMts »

Reinaldo escreveu: Ter Mai 26, 2020 1:37 pm Não entendi a demanda.
Em seu modelo/exemplo há duas "Tabelas" aparentemente iguais (exceto qtde de itens); o que distingue/demonstra a aplicação de cada uma delas?
Em G18 consta como verificar. Como identificar se é Diário / Semanal /Mensal
Uma sugestão, antés da exibição do MsgBox, de um loop nas linhas/tabela envolvida verificando qual(is) linha(s) atende o desejado
Reinaldo, perdão, me expressei mal no texto. Refiz as tabelas com o seguinte: a primeira é de tarefas diárias e a segunda de tarefas semanais. Refiz o arquivo, segue em anexo novamente.
O que não consegui (nem com o youtube :cry: ) fazer foi:
1- fazer a macro do msgbox pesquisar na coluna G (na tabela diário) se todos foram concluídos, se sim ela informar "todas concluídas), se não, ela informar no msgbox qual tarefa da coluna D está pendente;

2-A mesma coisa na semanal (retornar concluído se todas estiverem como concluídas), se não, ela informar a tarefa da coluna D e quantos dias faltam pra entrega (da coluna F).
Ex: Na tabela semanal a tarefa "Analisar relatório semanal" está a verificar e a restam 2 dias para a entrega. (tendo em vista a entrega em 28/05 e hoje ser 26/05).

Consegues me ajudar por favor?
Anexos
TABELA DE ATIVIDADES - Copia 21.rar
(22.39 KiB) Baixado 175 vezes


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Msgbox com condições

Mensagem por Reinaldo »

Talvez assim:

Código: Selecionar todos

Sub verDemandaDia()
Dim Demandas As String
Dim x As Integer
    For x = 7 To 13
        If Cells(x, 7).Value = "Verificar" And Demandas = "" Then
            Demandas = Cells(x, 4).Value
        ElseIf Cells(x, 7).Value = "Verificar" And Demandas <> "" Then
            Demandas = Demandas & Chr(10) & Cells(x, 4).Value
        End If
    Next
    If Demandas = "" Then
        MsgBox "Todas as Demandas Foram Concluídas!"
    Else
        MsgBox "Existem demandas pendentes!" & Chr(10) & Demandas
    End If
End Sub


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.


Responder