Evento SQL Saturday #284

No dia 26/04/2014 fui palestrante no evento SQL Saturday #284, realizado na Estácio FARGS, evento do qual participei desde seu planejamento e negociação, que ocorreram desde novembro de 2013. Nos quinze anos de existência do PASS, esta foi a primeira vez que o evento foi realizado no Rio Grande do Sul e foi realmente muito gratificante tem participado do grupo que tornou possível a realização dele, tento como palestrante, como fazendo a ponte entre a Estácio e o PASS e auxiliando no ajuste de diversos detalhes para sua realização. O evento foi um sucesso completo, onde tivemos a presença de … Continue reading Evento SQL Saturday #284

Enviar visualização de planilha por e-mail

Recebi um questionamento sobre como enviar a visualização de uma planilha, por e-mail. Claro, pode ser na forma de imagem, mas eu considero como melhor forma, o envio como PDF. Desta forma vamos à solução! A primeira etapa é definir a área de impressão de sua planilha e os ajustes de página, como a Orientação (Retrato ou Paisagem) e se deseja que imprimi em múltiplas páginas ou ajuste o conteúdo a uma única página, depois é executar a macro abaixo que ela faz o resto, mas claro que você precisa ajustar o que coloquei em negrito antes de roda-la: Sub … Continue reading Enviar visualização de planilha por e-mail

Criando um timer no Excel

Hoje respondi a uma pergunta no forum sobre como se criaria um timer para a execução de uma macro no Excel, pois aqui vai a solução: Para que o timer seja iniciado ao abrir a planilha inclua este código em EstaPasta_de_trabalho: Private Sub Workbook_Open()    Call iniTimerEnd Sub Agora insira um módulo e nele adicione o seguinte código (Inserir -> Módulo): Public Sub iniTimer()    Application.OnTime EarliestTime:=Time + TimeValue(“00:00:05″), Procedure:=”minhaMacro”End Sub Public Sub minhaMacro()    On Error Resume Next    MsgBox (“Passou o tempo!”)    Application.OnTime EarliestTime:=Now + TimeValue(“00:00:05″), Procedure:=”minhaMacro”End Sub Public Sub paraTimer()    Application.OnTime EarliestTime:=Now + TimeValue(“00:00:01″), Procedure:=”minhaMacro”, Schedule:=FalseEnd Sub Naturalmente que o código … Continue reading Criando um timer no Excel