gibbsonx

Igor F.

Obrigado pela atenção.

Não consigo importar seu formulário.

A extensão de formulários do meu excel é *.frm.

Bom dia.

Peço ajuda sobre como elaborar um código VB que faça o seguinte:

1) - Ao abrir o arquivo, abre-se automaticamente a caixa de diálogo SALVAR COMO.

2) - A caixa de diálogo SALVAR COMO abre um determinado diretório na rede, porém, não salva automaticamente. O salvamento deve ser manual, pois, devo determinar o nome do arquivo segundo critérios específicos para cada situação.

3) - Se a célula "F4", da Plan2 estiver preenchida com qualquer dado, a caixa de diálogo SALVAR COMO não deve ser aberta automaticamente.

Desde já, muito obrigado.

Perfeito!

Muito obrigado!

Podem ser várias combinações.

Exemplo:

B1 VAZIO

B2 VAZIO

B3 VAZIO

LINHA 5 OCULTA

B1 NÃO

B2 VAZIO

B3 NÃO

LINHA 5 OCULTA

B1 VAZIO

B2 SIM

B3 NÃO

LINHA 5 EXIBE (devido a linha B2 ser SIM)

Ou seja, se todas as células do intervalo B1:B3 estiverem VAZIAS ou selecionado "NÃO", ou uma combinação de células do intervalo B1:B3 conterem células "NÃO" e VAZIAS, a linha 5 deve ficar oculta.

Se pelo menos 1 das linhas do intervalo B1:B3 for selecionado "SIM", independente das demais serem "NÃO" ou VAZIAS, a linha 5 deve ser exibida.

As células do intervalo B1:B3.

Caro @osvaldomp

Peço desculpas por ter me expressado mal.

Mais uma vez, muito obrigado pela ajuda.

Funcionou perfeitamente.

Faltou eu mencionar mais um critério.

Preciso que a linha 5 fique oculta também se a célula estiver vazia. É possível?

14 horas atrás, osvaldomp disse:

 

Experimente. Cole o código abaixo no módulo da planilha Plan1.

 

Private Sub Worksheet_Change(ByVal Target As Range)
 If Intersect(Target, [B1:C3]) Is Nothing Then Exit Sub
 Rows(5).Hidden = Application.CountIf([B1:B3], "NÃO")
End Sub

 

Caro @osvaldomp

Muito obrigado pela ajuda.

O código funciona parcialmente.

Por exemplo, quando seleciono SIM ou Não na célula B1, a linha 5 oculta e exibe, porém, quando combino SIM e NÃO nas outras células simultaneamente, a função na funciona.

Preciso que, no intervalo da coluna, quando alguma das células for selecionado SIM, a linha 5 apareça.

Por exemplo:

B1 = NÃO  

B2 = SIM    

B3 = NÃO

Linha 5 = EXIBE

B1 = SIM

B2 = SIM    

B3 = NÃO

Linha 5 = EXIBE

B1 = NÃO

B2 = NÃO   

B3 = NÃO

Linha 5 = OCULTA

E assim por diante em todas as combinações...

Obrigado.

Boa tarde a todos.

Mais uma vez recorro aos amigos para uma ajuda sobre VB.

Tenho uma planilha onde preciso ocultar uma determinada linha, baseado no valor "SIM" ou "Não" de uma das células contidas num intervalo de colunas.

A planilha anexo é um exemplo do que preciso. Nela consta os valores em uma célula mesclada das colunas B,C, linhas 1 a 3.

Quando selecionar o valor "SIM" nas células, a linha 5 deve ficar visível.

Quando selecionar "NÃO" em uma das células, a linha 5 deve ficar oculta.

Desde já agradeço muito a ajuda de sempre.

EXEMPLO.xlsx

@osvaldomp, bom dia.

Ficou perfeito, amigo. Muito obrigado mesmo.

5 minutos atrás, osvaldomp disse:

Experimente:

 

=SE(X8="";"";SE(A1="Ameaça";PROC(X8;{0;5;9;17};{"Aceitar / Plano de Contingência";"Mitigar";"Mitigar / Transferir";"Mitigar / Transferir / Evitar"});SE(A1="Oportunidade";PROC(X8;{0;5;9;17};{"Aceitar / Plano de Contingência";"Melhorar";"Compartilhar";"Explorar"});"outro")))

 

Perfeito, oswaldomp! Exatamente isso.

Não querendo abusar, e já abusando. Será que você consegue me ajudar com a minha última dúvida nesse tópico abaixo?

Bom dia.

Peço ajuda para uma fórmula do Excel que mostre em uma única célula, duas condições diferentes, chamando uma determinada sequência de condições.

Exemplo abaixo:

SE na célula A1 tiver escrito "Ameaça", retornar os valores baseado nessa sequência de condições:

=SE(X8="";"";SE(X8<=4;"Aceitar / Plano de Contingência";SE(X8<=8;"Mitigar";SE(X8<=16;"Mitigar / Transferir";"Mitigar / Transferir / Evitar"))))

Porém,

SE na célula A1 tiver escrito "Oportunidade", retornar os valores baseado nessa sequência de condições:

=SE(X8="";"";SE(X8<=4;"Aceitar / Plano de Contingência";SE(X8<=8;"Melhorar";SE(X8<=16;"Compartilhar";"Explorar"))))

Bom dia.

Venho qui mais uma vez pedir auxílio dos amigos.

Preciso incrementar esse Log de Acessos, porém, gostaria que esse Log fosse salvo em um arquivo a parte.

De preferência gostaria que esse arquivo permanecesse fechado em algum diretório da rede onde eu pudesse consultá-lo sempre que desejar ver quem está acessando a pasta e quando.

Por que preciso disso?

A pasta que quero monitorar está num diretório Somente Leitura. Se eu deixar o Log de Acessos na mesma pasta, os registros não serão salvos quando o arquivo for aberto pois os usuários não têm acesso de gravação.

Desde já muito obrigado.

1 hora atrás, osvaldomp disse:

 

Experimente:

Private Sub Workbook_Open()
 Sheets("DedoDuro").Cells(Rows.Count, 1).End(3)(2) = Environ("USERNAME")
 Sheets("DedoDuro").Cells(Rows.Count, 1).End(3)(1, 2) = Now
 Me.Save
End Sub

obs.

1. se o arquivo for aberto com macros desabilitadas o registro de quem abriu o arquivo não ocorrerá

2. talvez seja conveniente você ocultar a planilha DedoDuro

Show de bola, @oswaldomp!

Era exatamente o que eu precisava.

Valeu!

Então @lHenrique_10.

Essa dica é exatamente a que eu me referi no posto e que já estou usando. O problema é que nesse código, só registra se o usuário alterar alguma célula e salvar o arquivo.

Eu preciso de um código que registre se qualquer usuário abriu o arquivo, mesmo se não efetuar nenhuma alteração ou mesmo se não salvar. Preciso de um feedback de quais usuários visualizaram a planilha.

Bom dia.

Preciso de uma ajuda para registrar na minha planilha de excel um histórico das pessoas que acessaram a planilha na rede.

Eu já utilizo uma dica aqui mesmo do fórum para registrar as modificações. Obtive esse código aqui nesse tópico: https://www.clubedohardware.com.br/forums/topic/868336-identificar-quem-acessou-uma-planilha-no-excel/

Isso foi muito útil e agradeço muito os amigos que colaboraram.

Porém, dessa vez preciso complementar esse código com algo mais simples.

Quero apenas saber QUEM acessou a planilha e QUANDO acessou, independente se fez ou não alguma modificação. Só quero saber se o usuário visualizou a informação.

Muito obrigado.

DJunqueira.

Sou totalmente inexperiente em programação.

Sou gestor de sistema de qualidade ISO 9001 e utilizo muitas planilhas com recursos automáticos para auxiliar os usuários com recursos a prova de erros. Nesse caso especialmente para prevenir que os usuários deixem campos em branco quando a informação não for aplicável. Parece tolo mas acredite, são pequenos detalhes que caracterizam falhas pois, em qualidade, campo em branco pode significar campo não visto caracterizando falha de registro. 

Pretendo iniciar meus estudos em programação devido ao grande potencial que a informática agrega ao meu trabalho.

Obrigado pela ajuda.

Basole.

Perfeito. É exatamente isso que preciso e sua dica será útil em outras utilizações que necessito.

Muito obrigado pela força!

Forte abraço!

Ao moderador do tópico, sinta-se a vontade para fechá-lo. Assunto resolvido.

Obrigado!

Alguém teria uma solução VB, por favor?

diego_janjao

É uma alternativa interessante. Até eu descobrir ou até alguém me ajudar com um código VB pra fazer o que eu queria, vou usá-la.

Valeu, irmão!

Forte abraço!

14 horas atrás, diego_janjao disse:

uma outra solução simples seria a utilização de uma Formatação Condicional:

 

Como retornar valor por uma seleção.xlsx

diego_janjao.

Não consigo baixar a planilha que você anexou. Tá dando erro.

15 horas atrás, DJunqueira disse:

E se você colocasse como cabeçalho da sua coluna Check aplicável S/N e depois preenchesse com um simples dropdown Sim/Não a sua planilha não ficaria mais fácil de gerenciar?

Por outro lado, se você quer ajuda monte um modelo realista da planilha, anexe e esclareça todas as limitações e células q você quer alterar.

DJunqueira.

Segue anexo planilha que o janjao montou exatamente como estou usando, para todos entenderem minha necessidade.

Obrigado pela ajuda.

Plan Exemplo.xlsx

10 minutos atrás, diego_janjao disse:

@gibbsonx Fiz este passo a passo, verifique se te serve:

 

Como retornar valor por uma seleção.xlsx

diego_janjao, obrigado pela atenção, amigo.

Infelizmente não serve. Essa solução eu já tentei mas o problema é que, quando seleciono o botão de opção "Sim", tenho que preencher uma evidência na célula à frente, sobrescrevendo a fórmula. Eu uso essa planilha para vários itens apenas salvando-a com outro nome, por isso preciso de um código VB pois não posso perder a programação da célula.

Mais uma vez obrigado pela ajuda.

Grande abraço!

Boa noite.

Peço a ajuda dos amigos experientes em códigos VB no excel.

Tenho uma planilha com dois botões de opção e gostaria que, ao clicar em um dos botões, uma determinada célula fosse preenchida com a informação "Não aplicável":

(Anexei um exemplo da planilha)

Será que alguém poderia me ajudar?

Muito obrigado.