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

É que essa planilha é parte de outra, onde comparo os valores orçado x realizado e as variaçoes em reais e %. E pra isso vou precisar demonstrar o saldo no acumulado ate o mes corrente.

Fazer esse calculo vai me ajudar muito.

Conto com o apoio deste forum.

Abç.

boa noite.

Neste mesmo arquivo, qual seria a melhor forma de somar o acumulado de cada linha tendo como critério o mês que eu escolher?

Duvida calculo intervalo.xlsx

Deu certo!!!

Muito Obrigado pelo apoio.

Abç

Estou tentando fazer a soma de varias linhas e colunas com mais de um critério utilizando o somases, porém esta apresentando erro.

Alguém poderia me sugerir uma forma melhor para calcular, de forma que assim que mudar o período possa carregar os dados pertinente ao mes selecionado? Segue anexo planilha 

Duvida calculo intervalo.xlsx