Domine o Excel ® (3 em 1): Excel - 70 Fórmulas Incríveis, Excel - 51 Macros incríveis e 51 Dicas e Truques Incríveis

Celula = Trim(Celula) End If Next Celula End Sub 32. Atualizar todas as tabelas dinâmicas Esta macro é simples, mas eficaz, ela ...

um novo arquivo. Sub JuntarArquivos() Dim wkbDestino As String Dim WorkbookName(1 To 99) As String Dim ws As Worksheet Dim i As ...

On Error Resume Next Application.DisplayAlerts = False For Each Ws In Application.Worksheets If Application.WorksheetFunction.Co ...

Sub TrocarNomeAba() For Each Sheet In Worksheets RotuloRetorno: Sheet.Select NovoNome = InputBox("Qual o novo nome para esta Aba ...

Private Sub WorksheetSelectionChange(ByVal Target As Range) Dim LocalSelect As String With Target If .Count = 1 Then LocalSelect ...

INTERAÇÃO COM WINDOWS 39. Salvar uma seleção como imagem Esta macro, salva automaticamente uma seleção de células como uma image ...

Wsht.Cells(1, 1).Activate Wsht.ChartObjects(Wsht.ChartObjects.Count).Delete Shp.Delete End Sub 40. Converter todos os arquivos d ...

Workbooks(Filename).Close Next iCounter End If End Sub Function FindFiles(ByVal sPath As String, ByRef sFoundFiles() As String, ...

End If FindFiles = UBound(sFoundFiles, 2) > 0 iArqEncontrados = UBound(sFoundFiles, 2) On Error GoTo 0 Set oFolder = Nothing ...

Function ProcurarArquivos(ByVal sPath As String, ByRef sFoundFiles() As String, ByRef iArqEncontrados As Integer, Optional ByV ...

On Error GoTo 0 Set oFolder = Nothing Set oParentFolder = Nothing Set oFileSystem = Nothing End Function 42. Copiar os arquivos ...

Dim iContador As Integer Dim sFileName As String Dim oFileSystem As Object, oParentFolder As Object, oFolder As Object Set oFile ...

...

INTERAÇÕES COM OUTOLOOK 43. Enviar um e-mail simples com VBA Esta macro tem por objetivo enviar um e-mail através de macro. Obs ...

44. Enviar arquivo como anexo por E-mail Esta macro envia um e-mail incluindo o arquivo ativo como anexo deste e- mail. Obs 1: A ...

mail. Obs 1: Alterar o assunto e a mensagem marcados em negrito Obs 2: .CC e .BCC são opcionais, utilize apenas para os casos en ...

Case Else: Exten = ".xlsb": FormtN = 50 End Select End If End With TempFilePath = Environ$("temp") & "\" TempFileFolder = "P ...

Obs 1: Alterar o assunto e a mensagem marcados em negrito Obs 2: .CC e .BCC são opcionais, utilize apenas para os casos enviar c ...

Dest.Sheets(1).Cells(1).Select Application.CutCopyMode = False iTempFolder = Environ$("temp") & "\" iTempFile = "Selection o ...

47. Enviar e-mail com arquivo externo como anexo Esta macro envia automaticamente um e-mail com um arquivo anexado, é possível t ...