Augusto César LMP

@Edson Luiz Branco O seu código funcionou para esta planilha, mas no trabalho me deparei com a seguinte situação: "se modificar as colunas 15, 20, 21 ou 23, tem que registrar a hora da 22. Se todas estiverem vazias, a 22 fica vazia" Tentei alterar o me.range, mas não deu certo. adicionado 17 minutos depois Consegui! Valeeeeu

Obrigado pelas respostas, gente! Amanhã no trabalho vou tentar usar e dou o feedback!

Boa tarde, tudo bem? Minha situação é a seguinte: tenho a planilha abaixo. Quero que quando alguém alterar uma das colunas 1, 3, 4 ou 5 (A, C, D, e E), a coluna 10 (J) preencha a data e horário da atualização (= NOW). Contudo, também quero que caso essas quatro colunas estejam em branco (As quatro em branco, não apenas uma delas), a coluna 10 também fique em branco. Não estou conseguindo colocar essas condicionais. Segue a planilha (apenas um exemplo, não é a que vou usar de fato) e o código: Código: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Cells(Target.Row, 10) = Now If Target.Column = 3 Then Cells(Target.Row, 10) = Now If Target.Column = 4 Then Cells(Target.Row, 10) = Now If Target.Column = 5 Then Cells(Target.Row, 10) = Now If Target.Value = "" Then Cells(Target.Row, 10) = "" End If End Sub adicionado 25 minutos depois Não sei se fui claro, mas: Se todas as colunas especificadas estiverem em branco, quero que a coluna 10 fique em branco. Se alguma das colunas especificadas forem alteradas, quero que a coluna 10 faça = NOW Se caso alguém altere uma das colunas especificadas, erroneamente, perceba, e apague, voltando à primeira condicional, quero que a coluna 10 volte a ficar em branco

Estou tentando atribuir um macro a um botão, mas aparece a seguinte mensagem: Esta fórmula é muito complexa para ser atribuída a um objeto. Como conserto isso? O código é o seguinte: Sub auto() Range("a1048576").Select ActiveCell.End(xlUp).Select ActiveCell.Offset(1, 0).Select ActiveCell.Value = InputBox("Inserir nome do agrônomo/terceiro (sem acento)") Range("c1048576").Select ActiveCell.End(xlUp).Select ActiveCell.Offset(1, 0).Select ActiveCell.Value = InputBox("Inserir número da nota fiscal") Range("f1048576").Select ActiveCell.End(xlUp).Select ActiveCell.Offset(1, 0).Select ActiveCell.Value = InputBox("Inserir data de envio de amostras (dd/mm/aaaa)") MsgBox "Caso existam mais destinatários, clique no botão ADICIONAR INFO. Caso queira mandar os emails, clique no botão MANDAR EMAILS.", vbInformation End Sub

Certinho! Valeu! Tópico Resolvido!

Bom dia! Gostaria de um macro VBA que se autoexecutasse ao abrir a planilha e me mostrasse um alerta (caixa de diálogo) caso existam células na coluna L com valores iguais a 7, 8 ou 9. E, se possível, mostrar quais são essa células. Valeu!

Bom, o que eu faria: Um ProcV na planilha 2, para procurar valores iguais da planilha 1, e colocaria uma formatação condicional na coluna A da planilha 2, para colorir caso o valor seja o mesmo do procv. Anexei um arquivo com algo bem simples para ilustrar para você. E eu ainda ocultaria a coluna do Procv pra ter menos informação na tela. Se tiver dúvidas sobre o procv, avisa que tento sanar. Teste.xlsx

Continua com o mesmo erro. Apertei Depurador para ver o erro e aparece isso:

Bom dia! Estou com uma dúvida: Utilizei um código VBA de macro para enviar emails automaticamente. Ele funciona perfeitamente, contudo, quando ele encontra uma célula em branco, ele aparece uma mensagem de erro (que não altera em nada meu trabalho, mas queria resolver isso). Eu gostaria que, quando ele encontrasse uma célula em branco (entre A2 e A23, intervalo que nomeei como IntervaloMailing), ele parasse o macro, pois, as vezes, tenho apenas 3 emails para mandar (ou seja, a A5 já seria uma célula em branco. Segue o código: Public WrkB As Workbook 'Cria variavel da Pasta de Trabalho Public WrkS As Worksheet 'Cria variavel da Planilha Public IntervaloMailing As Range 'Cria Variavel com o Intervalo do Mailing Public Celula As Range 'Cria Variavel com o registro do Mailing Public AppOutk As Outlook.Application 'Cria Variavel com a Aplicacao do Outlook Public MailOutk As Outlook.MailItem 'Cria Variavel com o objeto "Email" do Outlook Public Sub MandarEmail() Set WrkB = ThisWorkbook 'Define a pasta de Trabalho Set WrkS = WrkB.Sheets("Mailing") 'Define a Planilha com os dados Set IntervaloMailing = WrkS.Range("TabelaMailing") 'Define qual o intervalo do Mailing With WrkS .Select For Each Celula In IntervaloMailing Call CriaEmail 'Chama a Rotina para Criar o Email Next End With End Sub Sub CriaEmail() Set AppOutk = New Outlook.Application 'Define a aplicação do Outlook Set MailOutk = AppOutk.CreateItem(olMailItem) 'Define o objeto "Email" da Aplicação Outlook With MailOutk .Display .To = WrkS.Cells(Celula.Row, 7).Value 'Coluna Para .CC = "" 'Coluna Com Cópia .BCC = "" 'Coluna Copia Oculta .Subject = "Envio de amostras" 'Coluna Assunto .Body = WrkS.Cells(Celula.Row, 10).Value 'Coluna Corpo do Email .Attachments.Add WrkS.Cells(Celula.Row, 5).Value 'Coluna Anexo End With Set MailOutk = Nothing 'Esvazia a variavel Set AppOutk = Nothing 'Esvazia a variavel End Sub adicionado 0 minutos depois A mensagem de erro que aparece é esta:

Valeu pela resposta! Fiz esse código que você me passou e retornou o seguinte erro:

Bom dia! Estou com uma dúvida: Criei uma planilha para mandar emails automaticamente, com macro VBA que encontrei na internet. Para ficar show de bola, gostaria que o macro também anexasse no email automaticamente. São anexos diferentes para cada pessoa, e os arquivos terão o mesmo nome de células específicas, como B2, B3, B4, etc... Na imagem mostro o que tenho na minha planilha: nome do agrônomo, Número da nota fiscal, Data de envio, Email e mensagem gerada automaticamente com os dados anteriores. Todos os dados são fictíficos. Na parte inferior encontra-se o botão do macro que envia o email automaticamente. Gostaria de apertar e ele mandar o email gerado automaticamente (coluna E) e anexasse os arquivos com mesmo nome da coluna B. HELP!