DONUT PROJECT - VBA - Criando uma Matriz de Datas MAT - Moving Annual Total

DONUT PROJECT - VBA - Criando uma Matriz de Datas MAT

​

Em diversas ocasiões usamos tabelas com períodos MAT, geralmente estas são extraídas de BIs (Business Information). Os cabeçalhos nem sempre são aquilo que desejaríamos usar.

​

Como podemos conciliar o conteúdo, adequando os títulos?

As funções abaixo lhe permitirão carregar (LoadMonths()) em uma Matriz, 12 meses, sendo o primeiro uma data passada e os próximos 11 meses serão calculados retroativamente. Depois poderão recuperar (ReturnMonth()) estas datas.

Global nMeses(12) As Date

Sub LoadMonths()

    '      Author: André Bernardes

    '        Date: 20/08/14 - 09:53

    '      Action: Cria tabelas de Regionais para análise.

    ' Application: Analysis****Regional®

    '   Test line: nMeses (1), nMeses(2), nMeses(3), nMeses(4), nMeses(5), nMeses(6), nMeses(7), nMeses(8), nMeses(9), nMeses(10), nMeses(11), nMeses(12)

    '   Test line: Debug.Print ReturnMonth(1), ReturnMonth(2), ReturnMonth(3), ReturnMonth(4), ReturnMonth(5), ReturnMonth(6), ReturnMonth(7), ReturnMonth(8), ReturnMonth(9), ReturnMonth(10), ReturnMonth(11), ReturnMonth(12)

    Dim i As Integer

    Dim Flag As Boolean

    Dim LastDate As Date

    Let Flag = True

    For i = 1 To 12

        If Flag Then

            Let nMeses(i) = Sheets("Analise").Range("I5").Value

            Let LastDate = nMeses(i)

            Let Flag = False

        Else

            Let nMeses(i) = DateAdd("m", -1, LastDate)

            Let LastDate = nMeses(i)

        End If

    Next

End Sub

Function ReturnMonth (nMnth As Integer) As String

    '      Author: André Bernardes

    '        Date: 20/08/14 - 09:53

    '      Action: Cria tabelas de Regionais para análise.

    ' Application: AnalysisMDTRRegional®

    '   Test line: nMeses (1), nMeses(2), nMeses(3), nMeses(4), nMeses(5), nMeses(6), nMeses(7), nMeses(8), nMeses(9), nMeses(10), nMeses(11), nMeses(12)

    '   Test line: Debug.Print ReturnMonth(1), ReturnMonth(2), ReturnMonth(3), ReturnMonth(4), ReturnMonth(5), ReturnMonth(6), ReturnMonth(7), ReturnMonth(8), ReturnMonth(9), ReturnMonth(10), ReturnMonth(11), ReturnMonth(12)

    Dim nMonth As String

    Dim nYear As String

    Dim nTitle01 As String

    Let nMonth = Mid(Format(nMeses(nMnth), "DD/MM/YYYY"), 4, 2)

    Let nYear = Year(nMeses(nMnth))

    Let nTitle01 = UCase(Left(Format(Month(nMonth), "mmm"), 3))

    If nMonth = "01" Then

        Let ReturnMonth = "JAN|" & nYear

    ElseIf nMonth = "02" Then

        Let ReturnMonth = "FEV|" & nYear

    ElseIf nMonth = "03" Then

        Let ReturnMonth = "MAR|" & nYear

    ElseIf nMonth = "04" Then

        Let ReturnMonth = "ABR|" & nYear

    ElseIf nMonth = "05" Then

        Let ReturnMonth = "MAI|" & nYear

    ElseIf nMonth = "06" Then

        Let ReturnMonth = "JUN|" & nYear

    ElseIf nMonth = "07" Then

        Let ReturnMonth = "JUL|" & nYear

    ElseIf nMonth = "08" Then

        Let ReturnMonth = "AGO|" & nYear

    ElseIf nMonth = "09" Then

        Let ReturnMonth = "SET|" & nYear

    ElseIf nMonth = "10" Then

        Let ReturnMonth = "OUT|" & nYear

    ElseIf nMonth = "11" Then

        Let ReturnMonth = "NOV|" & nYear

    ElseIf nMonth = "12" Then

        Let ReturnMonth = "DEZ|" & nYear

    End If

End Function

Caso queiram traduzir os meses para outros idiomas basta que alterem os meses.

André Luiz Bernardes

Professional Profile

DONUT PROJECT - VBA - Excel - Atualizando Tabelas Dinâmicas - Refresh Pivot Table via VBA

DONUT PROJECT - VBA - Excel - Atualizando Tabelas Dinâmicas - Refresh Pivot Table via VBA

​

Consultancy in Excel, Access, VBA, Dashboards, Scorecards & PowerPoint Projects

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

Baixe o Calendário Compacto para 2014 em Excel

Aqueles que utilizam as Tabelas Dinâmicas em alta escala têm consciência do poder que elas têm e da praticidade que trazem para os nossos projetos.

Nos códigos abaixo olharemos para algumas situações onde poderemos atualizar todas as Pivots, ou apenas Pivots escolhidas.

Atualizando uma tabela Simples

Private Sub Worksheet_Activate()

Run "PivotMacro"

End Sub

Sub PivotMacro()

Dim pt As PivotTable

Set pt = ActiveSheet.PivotTables("MyPivot")

pt.RefreshTable

End Sub

Atualizando todas asTabelas Dinâmicas da Planilha

Sub AllWorksheetPivots()

    Dim pt As PivotTable

    For Each pt In ActiveSheet.PivotTables

        pt.RefreshTable

    Next pt 

End Sub

Atualizando uma Tabelas Dinâmicas específicas

Sub ChosenPivots()

Dim pt As PivotTable

    For Each pt In ActiveSheet.PivotTables    

        Select Case pt.Name

            Case "PivotTable1", "PivotTable4", "PivotTable8"

                pt.RefreshTable

            Case Else

        End Select

    Next pt

End Sub

Atualize todas as Tabelas Dinâmicas Selecionadas

Sub AllWorkbookPivots()

Dim pt As PivotTable

Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets    

        For Each pt In ws.PivotTables

                    pt.RefreshTable

        Next pt

    Next ws

    

End Sub

André Luiz Bernardes

Professional Profile

DONUT PROJECT - VBA - Excel - Removendo os Caracteres Alfabéticos e Especiais

DONUT PROJECT - VBA - Excel - Removendo os Caracteres Alfabéticos e Especiais

​

Consultancy in Excel, Access, VBA, Dashboards, Scorecards & PowerPoint Projects

DESENVOLVO APLICAÇÕES VBA

Perguntas, Questões e Esclarecimentos

Baixe o Calendário Compacto para 2014 em Excel

Sabe aqueles projetos onde precisamos limpar os dados contidos em diversas planilhas?

O código abaixo

'Remove All Alpha and Special characters from cell

Function Remove_AlphaSpecialChar (DataCell As Range) As String

     

    ' Declaração de Variável.

    Dim iCnt As Integer

    Dim IpData As Range

    Dim sData As String, sTmp As String

              

    If DataCell.Count <> 1 Then

        MsgBox ("Por favor, selecione uma célula"), vbInformation

        Exit Function

    End If

     

    ' Loop que checa todos os caracteres disponíveis na célula.

    For iCnt = 1 To Len(DataCell.Text)

        If Mid(DataCell.Text, iCnt, 1) Like "[0-9]" Then

            Let sData = sData & Mid(DataCell.Text, iCnt, 1)

        End If

    Next iCnt

     

    Let Remove_AlphaSpecialChar = sData

End Function

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

UM BREVE RETROSPECTO...

Bem, a minha primeira linguagem de programação foi o COBOL, passei pelo Pascal, C, e aprofundei-me mesmo no Clipper.

Já trabalhando, desenvolvi inúmeras aplicações com o Clipper para as diversas áreas de trabalho, uma vez que trabalhava em Santos, cidade portuária, com necessidades diversas. A empresa em que trabalhei, era uma softwarehouse, como chamávamos na época.

Desenvolvi sistemas de estocagem de café, venda|corretagem de café, contabilidade, estoque em geral, venda no balcão, etc...De software de Locadora de Videos a Controle de Condomínio, desenvolvi uma infinidade de aplicações e sistemas que foram ampliando-se com o passar do tempo e das necessidades dos Clientes, que já eram inúmeros.

A tecnologia também não parou, então venho conhecendo computadores de CP500 ao atual Ultrabook.

Vim de uma época onde o conceito Cliente/Servidor não existia, e precisávamos emulá-lo.

Enfim, casei-me e vim trabalhar no mercado de São Paulo numa consultoria. Como já tinha desenvolvido experiência para ter contato com diversos clientes, desenvolvendo inúmeras aplicações, pude destacar-me nesta empresa, que a princípio contratara-me apenas para desenvolver soluções internas.

Nesta ocasião, fui apresentado ao Delphi, uma linguagem visual, a minha primeira, apesar de já ter visto o Visual Basic e usado a versão Visual Objects do Clipper.

Em São Paulo pude ampliar meus conhecimentos e técnicas. Atendia variados clientes corporativos, nas áreas mais abrangentes possíveis, o que foi excelente!

Com o passar dos anos, além de programação e análise de sistemas, passei a focar-me em processos, liderar equipes, mas a paixão por desenvolver soluções rápidas e práticas não terminava, sempre dava um jeito para participar no desenvolvimento durante os projetos onde estava envolvido.

Pois bem, acabei percebendo um gap, lá pelos idos de 1997/8. As empresas, na sua totalidade, utilizavam massivamente o MS Office. O qual conhecia desde as primeiras versões, pois fora usuário dos famosos Lotus 123, Visicalc, QuattroPro, Wordstar, etc... Tive o insight de detectar que, apesar de muitos usuários terem acesso a este produto, o MS Office, bem poucos sabiam utilizá-lo plenamente. Não conheciam o conceito de Macros, e depois não captaram o momento onde a Microsoft trouxera o Visual Basic para dentro do MS Office.

Juntando a minha percepção e a necessidade do mercado, tive a ideia de me especializar em criar soluções única e exclusivamente com o MS Office. E isso envolvia usá-lo desde o MS Powerpoint, até o MS Access, e é óbvio que depois as tecnologias e a arquitetura em si, foram tornando-se ainda mais abrangentes.

Criei as aplicações mais diversas, em áreas ainda mais distintas que anteriormente. E poderá verificá-las através das minhas experiências profissionais, através das mais de 43 empresas por onde passei e estão constantes no meu curriculum vitae.

Pois bem, como não poderia deixar de ocorrer, findei por embrenhar-me em novos conceitos. Li muito, comprei muitos livros. Ministrei e assisti muitos cursos. E isso acabou me levando a manter em certo momento, uns 5 Blogs, onde escrevia sobre o desenvolvimento VBA e seus desdobramentos: 

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

Hoje, focado nos últimos 5 anos, na Indústria Farmacêutica, continuo usando os meus conhecimentos técnicos para desenvolver soluções na minha área de atuação.

| Blog Office VBA | Blog Excel | Blog Access | Blog Infochart |