Eliel_Silva

Caros, boa Tarde. Estou utilizando um código VBA para envio de e-mail automático utilizando dados do Excel, para controle de vigência de Seguros. porém é que o código só envia o e-mail se clicar na célula e alterá-la, não envia a partir de uma alteração por formulas. Como faço para alterar? Gostaria de enviar o alerta para Seguros e IPVA, como ambos estão na mesma sheet, esta dando erro de duplicidade do Objeto/Procedimento.Como faço pra usar duas "Private Sub Worksheet_Change" na mesma sheet? Segue cod. utilizado. Private Sub Worksheet_Change(ByVal Target As Range) Dim OutApp As Object Dim OutMail As Object Dim texto As String Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) linha = ActiveCell.Row - 1 If Target.Address = "$H$" & linha Then If Plan2.Cells(linha, 8) = "Solicitar Renovação" Then texto = Plan2.Cells(linha, 8) & " Seguro Ref. Veículo: " & Plan2.Cells(linha, 3) & " com Vigência final em:" _ & Plan2.Cells(linha, 7) End If With OutMail .To = "[email protected]" .cc = "[email protected]" .BCC = "" .Subject = "Vencimento de Apólice" .HTMLBody = texto .Send 'Utilize Send para enviar o email sem abrir o Outlook End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End If End Sub

Como faço pra usar duas "Private Sub Worksheet_Change" na mesma sheet? Gostaria de enviar o alerta para Seguros e IPVA, como ambos estão na mesma sheet, esta dando erro de duplicidade do Objeto/Procedimento, e se altero o nome, o objeto passa a ser uma declaração e assim não funciona o código.

Caros, bom dia. Estou utilizando um código VBA para envio de e-mail automático utilizando dados do Excel, para controle de vigência de Seguros. porém é que o código só envia o e-mail se clicar na célula e alterá-la, não envia a partir de uma alteração por formulas. Poderiam me apoiar nesse erro. Segue planilha em anexo.Controle de frotas de veiculos1.xlsm Controle de frotas de veiculos1.xlsm

@DJunqueira, boa tarde. A formula apresentada ficou muito boa. Quanto ao KM/L é relevante sim, porém eu havia recortado da planilha enviada como modelo. Agradeço pela atenção, e pelo apoio a mim concedido. abç

Bom dia. Obrigado contribuição. Desculpa pelo transtorno, embora eu tenha entendido, não era o que eu precisava. Para que pudesse saber quantos KM foram percorridos, teria que saber qual foi o ultimo abastecimento do mês (KM máximo) e deduzir do primeiro abastecimento do mês (KM mínimo), dessa forma saberia quantos KMs foram percorridos no período. Utilizando a Tabela Dinâmica estaríamos apenas somando ou fazendo média do KM do Hodômetro, não dos KMs percorridos. Segue abaixo formula que utilizei para conseguir calcular. {=MÁXIMO(SE($C$7:$C$60=C60;$K$7:$K$60))-MÍN(SE($C$7:$C$60=C60;$K$7:$K$60))} abç.

O problema e ki na base serao lançados os abastecimentos de tidos veiculos com requisiçao que demonstra o km no momento do abastecimento. Durante o mes o mesmo veiculo abastece mais de uma vez, e por isso tenho q identificar todos abastecimentos do veiculo e calcular qual o total de km percorrido no mes pra fazer a media. A formula que coloquei na planilha seria a saida, mais nao sei porque raios ela nao funciona na minha planilha. Se alguel souber como solucionar esse probleminha ai me avisem. Abç.

Caros, bom dia. Estou tentando calcular os KMs percorridos dos veículos que controlo, porém é que com a formula que estou utilizando não dá certo. Segue anexo planilha e formula utilizada para que possam sugerir uma forma melhor. Desde já agradeço. Eliel Como Calcular os KMs Percorridos.xlsx

@CasaDoHardware Boa tarde. o código esta salvando mesmo que não tem valores nos campos de lançamento, fazendo com que mude a sequencia sem lançar valores na planilha de controle. Como faço pra regularizar? abç

Bom dia... Ficou excelente.. Obrigado pelo apoio. abç

Bom dia, Montei uma planilha para lançamento e controle de notas fiscais, que será utilizada para controle de vencimentos e conciliação bancária. O porém é que não sei como fazer um código no VBA para lançar na planilha de controle "TAB" as linhas da nota fiscal "Rateada conforme as parcelas" informadas na sheet "LANÇ". Segue anexo "modelo" que criei que é idêntico a planilha que montei. Desde já agradeço o apoio. Duvida Rateio vencimento.xlsm

Deu certo....Obrigado pelo apoio. abç

Caros, boa tarde. Quero criar um macro para Copiar de uma planilha matriz "Pedido de compra", apenas a sheets "Pedido", e posteriormente, "salvar como" em pasta especifica utilizando como referencia o numero do pedido para salvar o arquivo. Apos salvar, quero fechar a sheet copiada e continuar utilizando a planilha matriz. Estou utilizando o codigo abaixo, mais ele fecha a planilha matriz, não a sheet copiada. Sub copiar() Sheets("PEDIDO").Select Sheets("pedido").Copy ThisWorkbook.SaveAs Filename:="C:\SAMMA\Pedidos\" & Range("D5").Text & "-" & ".XLSM" End Sub Conto com apoio de vocês. abç PEDIDO DE COMPRA_mod.xlsm

@Basole, isso mesmo que preciso. Obrigado pelo apoio.

Caros, Bom dia! Preciso fazer um filtro em uma planilha de custo, onde são duas empresas controladas. Gostaria de filtrar todas as informações de forma que a partir do momento que selecionar a empresa, apareça somente as informações pertinente a empresa selecionada. segue anexo planilha com o modelo que preciso. Desde já agradeço. Duvida filtro.xlsx

Caros, Bom dia! Preciso fazer um filtro em uma planilha de custo, onde são duas empresas controladas. Gostaria de filtrar todas as informações de forma que a partir do momento que selecionar a empresa, apareça somente as informações pertinente a empresa selecionada. segue anexo planilha com o modelo que preciso. Desde já agradeço. Duvida filtro.xlsx