Clico

Pretende-se com este código que quando a Data de Envio for igual a data em que nos encontramos é enviado um email ao destinatário. O código pesquisa todos os registos e envia para cada email onde a condição da data for a data actual. VBA Code/Macro: Sub SendEmail() Dim ws As Worksheet Dim oApp As Object, MailApp As Object, SendMail As Object Dim strbody As String Dim deldate As Variant Dim email As Variant Dim i As Integer Set ws = Worksheets("sheet1") ws.Select 'Set numrows = number of rows of data. NumRows = Range("A2", Range("A2").End(xlDown)).Rows.Count ' Select cell A2 Range("A2").Select 'Get Delivery date lin = 2 col = 4 deldate = ws.Cells(lin, col).Value 'Get email lin = 2 col = 7 email = ws.Cells(lin, col).Value ' -1 because sheet have header For i = 1 To NumRows - 1 If deldate = Date Then 'Create Email Set MailApp = CreateObject("Outlook.Application") ...

Pretende-se com esta macro Ordenar as Folhas de um livro de Excel de forma ascendente. Video que mostra como fazer: Código: Option Explicit Sub OrdenarFolhas() 'Esta rotina coloca as folhas de Excel por ordem ascendente Dim NomeFolhas() As String Dim ContarFolhas As Long Dim i As Long Dim AntigaFolhaActiva As Object 'Se não houver folha activa If ActiveWorkbook Is Nothing Then Exit Sub 'Verifica se a estrutura do livro esta protegida, se sim, não consegue ordenar e 'devolve uma mensagem ao utilizador If ActiveWorkbook.ProtectStructure Then MsgBox ActiveWorkbook.Name & " está protegida, ", vbCritical, "Não é possivel ordenar as folas. " Exit Sub End If 'Verifica se o utilizador quer mesmo fazer a ordenação If MsgBox("Pretende ordenar as folhas deste livro de Excel?", vbQuestion + vbOKCancel) <> vbOK Then Exit Sub 'Desactiva o CTRL+BREAK (opção cancelar) Application.EnableCancelKey = xlDisabl...

Criar uma List Box em Excel usando o Editor VBA, experimente :) Creating a Listbox using Excel VBA Editor, try it :)

Criar Hiperlinks com VBA Excel: 1. Abra uma folha de Excel 2. Carregue em Alt+F11 para abrir o editor de VBA 3. Insira um novo módulo 4. Copie o código que se segue e cole na janela de codigo 5. Carregue em F5 para executar 6. Verifique que o link foi adicionado a célula A4 Create Hiperlinks with Excel VBA; 1. Open an excel workbook 2. Press Alt+F11 to open VBA Editor 3. Insert a New Module 4. Copy the above code and Paste in the code window 5. Press F5 to execute it 6. You can see a new hyperlink is added at A4 Sub CreateHyperLink() ActiveSheet.Hyperlinks.Add Range("A4"), "https://clicotech.blogspot.pt/" End Sub

Função ARRED - Arredondamento Conhece?

Macro/Função para Formatar Datas.

Diferentes Formatos Data e Hora Util para usar em VBA

Sabia que: F2 edita célula actual F5 vai para uma célula especifica F11 cria um grafico ALT + PAGE DOWN move a folha para a direita no livro. CTRL + PAGE DOWN move para a próxima folha na pasta de trabalho. CTRL + SHIFT + PAGE DOWN selecciona a folha actual e a próxima numa pasta de trabalho. ALT + PAGE UP move a folha para a esquerda num livro. CTRL + PAGE UP move para o livro anterior na pasta de trabalho. CTRL + SHIFT + PAGE UP selecciona a folha actual e a anterior na pasta de trabalho...

Uma das melhores formas de se começar a poupar algum dinheiro é entender onde e quando gastamos mais. O ficheiro que segue, não é mais do que uma folha de Excel, com várias categorias de despesas e receitas e que o pode ajudar ou servir de modelo para algo mais avançado que necessite. A ideia é essencialmente entender onde se gasta mais, para que se entenda o potencial de poupança que se têm à nossa disposição. Ideia e ficheiro retirado de um blog de finanças pessoais, para que não se estrague as formulas inadvertidamente, as mesmas encontram-se bloqueadas. Aproveitem:) Download