josequali

@LaerteB Não funcionou bem. Quando atualizo a data ele não modifica a condição na célula. Deixa fixado o valor , mas mesmo assim, obrigado! Vou utilizar a fórmula que citei acima.

@Midori Obrigado!

@Midori @LaerteB Bom dia! Queria tirar uma dúvida. Atualmente tenho um código que me permiti enviar um e-mail com um texto padrão, no entanto, gostaria de também anexar um arquivo do word padrão que fica em uma pasta do meu computador, ou seja, toda vez que eu enviar um e-mail ele sempre irá enviar esse mesmo arquivo para o destinatário, porque o nome do arquivo nunca altera, só o conteúdo (uso outro comando para alterar já). Vocês saberiam algum comando para enviar para o corpo do e-mail esse anexo? O comando que uso para enviar o e-mail está abaixo. Para enviar o e-mail tem que ter o outlook instalado no PC com uma conta logada. Segue em anexo o arquivo modelo. 'enviar e-mail Dim OutApp As Object Dim OutMail As Object Dim cell As Range Dim Sh1 As Worksheet Application.ScreenUpdating = False Set OutApp = CreateObject("Outlook.Application") Set Sh1 = Planilha3 Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = txtEmail.Value .Subject = "ALERTA - uma nova solicitação foi aberta" .Body = "Prezado," _ & vbNewLine & vbNewLine & _ "Foi incluída uma nova solicitação de análise de soja, " & _ "em nosso sistema" _ & vbNewLine & vbNewLine & _ ComboBox1.Value & "." .Send ' envia o e-mail diretamente End With On Error GoTo 0 Set OutMail = Nothing MsgBox ("Email enviado com sucesso") On Error GoTo limpa limpa: Set OutApp = Nothing Set Sh1 = Nothing Application.ScreenUpdating = True End Sub enviar -email.zip

@LaerteB Obrigado!

@Midori Obrigado! Perfeito

@Midori como seria esse mesmo comando para abrir um pdf?

=SE(J3-HOJE()>=1080;"Obsoleto";SE(J3<HOJE();"Vencido";"A Vencer")) tentei essa formula. adicionado 26 minutos depois @LaerteBconsegui =SE(HOJE()-J3>=1080;"Obsoleto";SE(J3<HOJE();"Vencido";"A Vencer")) Obrigado!

@LaerteB Fica em Loop e a planilha trava

@LaerteB Se eu deixar esse comando ele remove a formula do comando =SE(J4<=HOJE();"Vencido";"A vencer" Ai no próximo cadastro eu perco a formula porque o obsoleto não pertence a nenhuma formula.

@LaerteB @MidoriTentei usar essa formula, mas não deu certo porque os dois últimos valores ficam como falso. =SE(J3<HOJE();"Vencido";SE(J3=HOJE();"A vencer"; SE(J3>1080;"Obsoleto")))

@LaerteB Boa tarde! Eu esqueci de informar que além das duas condições acima, se a data de hoje for maior que 3 anos data data da coluna J3, então deve aparecer o nome obsoleto. adicionado 0 minutos depois Funcionou sim, só preciso acrescentar essa opção.

Bom dia @Midori @LaerteB @Edson Luiz Branco! Gostaria de tirar um dúvida. Atualmente preciso criar a seguintes condição para formula na minha planilha do excel. NOTA: coloquei como número qualquer porque ele pode ser alterado a depender da data. Segue em anexo a planilha mode. Desde já agradeço a disponibilidade. formula da lista mestra para vencimento.zip

@Midori consegui! era só por duplas aspas na formula

@Midori @LaerteB uma dúvida! Queria ao cadastrar um produto lançar a seguinte formula na minha célula do Excel. Range("t3").Value = "=SEERRO(SE((H$3-J3)>0;"Vencido a "&H$3-J3&" dias ";"A vencer em "&J3-H$3& " dias");(SE($D3="";"";"MINUTA")))" mas quando coloco no formulário que era esperado o fim de instrução. Como corrigir?

@Midori Obrigado!

Existe esse comando mas ele só abre o arquivo do código. http://www.macoratti.net/dica29.htm#:~:text=- Abrindo um documento do Word,Leia artigo - Usando VBA).&text=Inicie o VB e crie,e clique no botão OK.

@Midori Obrigado!

@Midori @LaerteB @Edson Luiz BrancoBoa noite! Gostaria de saber se existe algum código que evite que durante a execução de uma macro em uma planilha ela der erro porque tem outra planilha aberta - pasta de trabalho (seja com comando semelhantes ou não). Tentei usar esse comando: Windows("Nome da Planilha.xls").Activate Mas não prestou. As vezes quando vou executar um comando que tem o mesmo código em outra planilha aberta dar erro, porque as duas estão ativas. Já uso o comando para deixar a planilha invisível quando abro o formulário. Desde já agradeço pela ajuda. Obrigado!

@Midori @LaerteB Boa noite! Gostaria de sanar uma dúvida. Atualmente no meu projeto preciso abrir diferentes arquivos word para editar. No entanto, queria ver alguma formula que permiti-se a partir do caminho do do arquivo salvo na textbox executa-se o word para edição do arquivo desejado. Segue em anexo o modelo. Já inserir o comando para buscar o arquivo do word. Desde já agradeço pela ajuda abrir arquivo do word a partir do link da texbox.zip

@LaerteB Funcionou perfeitamente! só tive que ajustar o tempo de execução, porque minha internet não ajuda muito, rs. Cara Muito obrigado! Que Deus te abençoe meu filho. Perfeito!

@LaerteB Funcionou perfeitamente.! Era isso que eu precisava :D.

Boa tarde @Midori @LaerteB Estou com um pequeno impasse! Atualmente adicionei um comando para todas vez que determinado usuário do computador abrir a planilha que eu estou desenvolvendo, o campo do Responsável seja preenchido de acordo com o nome do usuário do computador que está acessando. Para isso usei o comando abaixo: <Function Login_win() Login_win = Environ("username") End Function> E dentro da célula da planilha coloco o comando < = Login_win() > No entanto, tive um pequeno problema. Como na empresa a planilha é acessada pela rede, ela deixa o nome do ultimo usuário logado. No entanto, quero que carregue o nome do novo usuário que a está acessando, e para isso, tenho que dar dois cliques e enter nas célula onde tem o comando para ela atualizar a informação. No caso célula a1 da planilha1 Tentei o código do vídeo abaixo, mas não funcionou para a minha situação, já que a macro tem que ser executada ao iniciar o formulário. Caso não seja possível colocar no inicialize, pode ser um botão como o nome 'atualizar' para dar um click para atualizar a informação. Segue em anexo a planilha modelo. Desde já, agradeço pela ajuda Atualizar célula do excel.zip

@LaerteB whatsapp envio de mensagem.zip