Clico

Concatenar de forma simples

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. Código: Public ws As Worksheet Public iCount As Integer    ' String used to count exist records Public lastrow As Long      ' String used to detect last used row to add next record Private Sub cmdAdd_Click() Dim TClientID As Integer           iCount = Application.WorksheetFunction.CountIf(Range("A1:A10000"), "C*")         With ws.UsedRange         lastrow = .Rows(.Rows.Count).Row     End With          TClientID = ws.Range("A" & lastrow).Value          'Select new row to add record     ws.Range("A" & lastrow + 1).Select      ...

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

Atalhos e fórmulas que vão tornar sua vida no Excel mais fácil Matemática Adição =SOMA(célulaX;célulaY) Subtração =(célulaX-célulaY) Multiplicação = (célulaX*célulaY) Divisão =(célulaX/célulaY) Estatística Média =MEDIA(célula X:célulaY) Máxima =MAX(célula X:célulaY) Mínima =MIN(célula X:célulaY) Teclas de atalho CTRL + (para visualizar dados que não estão próximos, pode-se usar a opção de ocultar células e colunas. Usando esse comando fará com que as linhas correspondentes à selecção sejam ocultadas. Para que aquilo que ocultou reapareça, selecione uma célula da linha anterior e uma da próxima e depois tecle CTRL + SHIFT + CTRL + Atalho igual ao anterior, mas oculta colunas e não linhas. CTRL + SHIFT + $ Atalho para aplicar a conteúdos monetários o formato de moeda. Ele coloca o símbolo desejado (por exemplo, €) no número, além de duas casas decimais. CTRL + SHIFT + Asterisco (*) Para selecionar dados que estão em volta da célula atualmente ativa. Caso existam células vazias no meio ...

Codigo VBA - Verifica se Outlook esta aberto e devolve respectiva mensagem experimente . VBA Code - See if Outlook is running and give a message, try it

Conhece a Função Rank, Ordem?

Conhece a Função Romano()? Veja o exemplo que segue... A Função Romano converte um numeral árabe em numerais romanos, como texto.