VBA EXCEL - ENVIAR FOLHA DE CÁLCULO POR EMAIL (Emailing Worksheet)

Enviar por Email uma folha de cálculo (criando um novo ficheiro)
Email a spreadsheet (creating a new file)

Sub Mail_ActiveSheet()
    Dim strDate As String
    ActiveSheet.Copy
    strDate = Format(Date, "dd-mm-yy") & " " & Format(Time, "h-mm-ss")
    ActiveWorkbook.SaveAs "Part of " & ThisWorkbook.Name _
                        & " " & strDate & ".xls"
    ActiveWorkbook.SendMail "nome@domain.com", _
                            "Assunto" 'Subject Line
    ActiveWorkbook.ChangeFileAccess xlReadOnly
    Kill ActiveWorkbook.FullName
    ActiveWorkbook.Close False
End Sub

Comentários

Enviar um comentário

Mensagens populares deste blogue

EXCEL 2007 - FUNÇÕES PARA CALCULAR HORAS (Functions to Calculate Hours)

Imagem
Uma das dificuldades recorrentes no utilizador comum de Excel prende-se com o cálculo de tempo, particularmente nas situações que envolvem horas e minutos. Eis aqui algumas sugestões para a resolução desses problemas, nomeadamente somar horas, diferença entre horas, arredondamento de valores hora e cálculo de minutos entre datas: One of the recurring difficulties in common Excel users relates to the calculation of time, particularly in situations involving hours and minutes. Here are some suggestions for solving these problems , including adding time values , difference between hours, hours rounding up  ​​and calculation of minutes between dates: 1. SOMAR HORAS (Summing Hours) Existem duas possibilidades para somar valores de tempo - somar parcelas de tempo para determinar um valor tempo (Coluna A) ou calcular a soma aritmética de um conjunto de valores (Coluna C). Para realizar correctamente estas operações, temos primeiro de formatar as cél
Ler mais... / Read More... »

VBA EXCEL - OCULTAR LINHAS EM BRANCO (Hide Blank Rows)

Uma das situações recorrentes na utilização do EXCEL é esconder as linhas em branco que, propositadamente ou não, vamos deixando para trás à medida que construímos uma folha de cálculo. Mais tarde, constatamos que aquelas linhas estariam melhor escondidas. Um opção rápida e consistente é utilizar uma pequena macro em VBA que, mediante um ou mais critérios, permite num só clique escolher as linhas que pretendemos esconder. Aqui deixo três possibilidades: One recurring situations in the use of EXCEL is to hide blank lines that, intentionally or not, we will leave behind as we build a spreadsheet. Later , we found that those lines would be better hidden . One option is to quickly and consistently use a small VBA macro that, through one or more criteria, allows one-click to select the lines you want to hide. Here I leave three possibilities: 1.  Esconder todas as linhas em branco desde a linha 2 até à 65000 Hide all blank lines from the l
Ler mais... / Read More... »

CALCULAR HORAS ENTRE DUAS DATAS COM UMA CONDIÇÃO (Calculate Hours Between Two Dates with a Condition)

Imagem
O cálculo com unidades de tempo (horas, dias, etc.) tem sido um dos temas mais recorrentes aqui no blog. Há alguns dias atrás, puseram-me uma questão interessante. Tratava-se de calcular o número de horas entre duas datas, subtraindo um determinado conjunto de horas (16) a cada dia do intervalo, caso esse intervalo fosse superior a 24 horas. Apresentei duas soluções para chegar ao mesmo resultado: Na primeira, utilizei a função SE para criar um conjunto de condições (Tabela 1). Na segunda, utilizei as funções DATADIF (que já foi objecto de um post -  http://exceleoutrascoisas.blogspot.pt/search/label/DATADIF ) e TEMPO. Fórmulas da Tabela 1: D4 =SE((C4-B4)*24<16;(C4-B4)*24;SE(E((C4-B4)*24>=16;(C4-B4)*24<=24);(C4-B4)*24-16;SE((C4-B4)*24>24;(C4-B4)*24-(ARRED((C4-B4)*24/24;0)*16))))) - A formatação da célula é 0,00 E4  = ( SE((C4-B4)*24<16;(C4-B4)*24;SE(E((C4-B4)*24>=16;(C4-B4)*24<=24);(C4-B4)*24-16;SE((C4-B4)*24>24;(C4-B4)*24-(ARRED((C4-B4)*24/24;0)
Ler mais... / Read More... »