A&A - In Any Place

A&A - In Any Place

A A&A - In Any Place foi criada 2005 como uma consultoria de desenvolvimento de software. Ao passo que um dos fundadores envolvia-se em diversos projetos simultâneos, passando por diversas empresas em diferentes modelos de negócio, a A&A foi transformando-se numa consultoria com um expertise bem específico e necessário no mercado corporativo. 

Um dos seus focos sempre foi o de estender suporte a criação de aplicações desenvolvidas com a suíte MS Office da Microsoft, o que se mostrou-se muito útil a comunidade de utilizadores dessa plataforma. Já existia então uma ampla comunidade com profissionais que utilizam as clássicas soluções MS Excel, MS Word, MS Access, MS PowerPoint, MS Outlook, sem qualquer experiência de desenvolvimento, subutilizando os recursos pouco explorados.

Com o passar dos anos cada uma dos produtos do Office avançaram, tornando-se verdadeiras plataformas de desenvolvimento VBA - Visual Basic for Application - devido aos seus recursos de automação, intrinsecamente existentes em seu core, comum a todos os produtos da suíte.

Essa vertente vem sendo trilhada neste mercado por muitos anos, visto haver uma enorme carência por desenvolvedores profissionais disponíveis.

A empresa passou a oferecer cursos in company, pessoais e online. Além disso, Blogs com inúmeras dicas e centenas de artigos foram implementados, os quais ainda continuam ativos com grande audiência e contribuições.

Blog ✔ VBA Brazil® 

Blog focado em ampla comunidade de desenvolvedores da área de TI. Alto e médio poder aquisitivo.

Perfis: Engenheiros de software, Analistas de Sistemas, Programadores, executivos nos cargos de coordenação e Analistas.

Blog ✔ Excel Specialist Brazil® 

Blog focado em ampla comunidade de desenvolvedores da área de TI. Nicho da comunidade que utiliza MS Excel. Alto e médio poder aquisitivo.

Perfis: Engenheiros de software, Analistas de Sistemas, Programadores, executivos nos cargos de coordenação e Analistas.

Blog ✔ VBA Access Developer Brazil®

Blog focado em ampla comunidade de desenvolvedores da área de TI. Nicho da comunidade que utiliza MS Access. Alto e médio poder aquisitivo.

Perfis: Engenheiros de software, Analistas de Sistemas, Programadores, executivos nos cargos de coordenação e Analistas.

Blog ✔ VBA Dashboards Brazil®

Blog focado em executivos com perfil de TI. São profissionais com Alto e médio poder aquisitivo. Com alto grau de importância nas empresas onde atuam.

Perfis: Executivos: Diretores, Gerentes, Coordenadores e Analistas.

Blog ✔ VBA Infográficos Brazil®

Blog focado em executivos com perfil de TI. São profissionais com Alto e médio poder aquisitivo. Com alto grau de importância nas empresas onde atuam.

Perfis: Executivos: Diretores, Gerentes, Coordenadores e Analistas.

Blog ✔ Pharma Brazil®

Blog focado em executivos da indústria farmacêutica com perfil voltado para TI. São profissionais com Alto e médio poder aquisitivo. Com alto grau de importância nas empresas onde atuam.

Perfis: Executivos da Indústria Farmacêutica: Diretores, Gerentes, Coordenadores e Analistas.

Blog ✔ Dinamicidade Elástica®

Blog focado em ampla comunidade de desenvolvedores da área de TI. Alto e médio poder aquisitivo.

Perfis: Engenheiros de software, Analistas de Sistemas, Programadores, executivos nos cargos de coordenação e Analistas.

Blog ✔ Brazil SFE®

Blog voltado para profissionais executivos, com médio e alto poder aquisitivo.

Perfis: Alto Executivos da Indústria Farmacêutica: CIOs, CEOs, Diretores, Gerentes e Coordenadores.

Blog ✔ Brazil SFE Tech 

Blog voltado para profissionais executivos com perfil técnico voltado para tecnologia - TI. Alto e médio poder aquisitivo.

Perfis: Executivos da Indústria Farmacêutica: Diretores, Gerentes, Coordenadores e Analistas.

Blog ✔ Brazil SFE Terms®

Blog focado em da área de TI. Alto e médio poder aquisitivo.

Perfis: Executivos da Indústria Farmacêutica: Diretores, Gerentes, Coordenadores e Analistas

brazilsalesforceeffectiveness@gmail.com

            

DONUT PROJECT 2015 - Extraindo e-Mails - Extracting An Email Address From Text

DONUT PROJECT 2015 - Extraindo e-Mails - Extracting An Email Address From Text

​
​

Muito útil para o envio automatizado de e-mails a partir de uma planilha sem higienização apropriada.

Function ExtractEmailAddress (s As String) As String      Dim AtSignLocation As Long      Dim i As Long      Dim TempStr As String      Const CharList As String = "[A-Za-z0-9._-]"            'Get location of the @      AtSignLocation = InStr(s, "@")      If AtSignLocation = 0 Then          ExtractEmailAddress = "" 'not found      Else          TempStr = ""          'Get 1st half of email address          For i = AtSignLocation - 1 To 1 Step -1              If Mid(s, i, 1) Like CharList Then                  TempStr = Mid(s, i, 1) & TempStr              Else                  Exit For              End If          Next i          If TempStr = "" Then Exit Function          'get 2nd half          TempStr = TempStr & "@"          For i = AtSignLocation + 1 To Len(s)              If Mid(s, i, 1) Like CharList Then                  TempStr = TempStr & Mid(s, i, 1)              Else                  Exit For              End If          Next i      End If      'Remove trailing period if it exists      If Right(TempStr, 1) = "." Then TempStr = _         Left(TempStr, Len(TempStr) - 1)      ExtractEmailAddress = TempStr  End Function

Ei! Envie seus comentários e sugestões de artigos. Compartilhe este artigo com seus chefes, colegas de trabalho e amigos.










andredinizbernardes@gmail.com 

DONUT PROJECT 2015 - Função - Retorna Qualquer Conteúdo Delimitado por 2 Caracteres

DONUT PROJECT 2015 - Função - Retorna Qualquer Conteúdo Delimitado por 2 Caracteres

​

A função abaixo é totalmente específica pois permite retornar qualquer conteúdo que estiver delimitado pelos caracteres que informarmos.

Public Function ExtraiDelimitedFor(str As String,nOpen as string,nClose as string,) As String

    Dim openPos As Integer

    Dim closePos As Integer

    Dim midBit As String

    Let openPos = InStr(str, nOpen)

    Let closePos = InStr(str, nClose)

    Let midBit = Left(str, openPos - 1) & Right(str, openPos)

    Let ExtraiTudoEntreParenteses = midBit

End Function

Ei! Envie seus comentários e sugestões de artigos. Compartilhe este artigo com seus chefes, colegas de trabalho e amigos.

andredinizbernardes@gmail.com

DONUT PROJECT 2015 - Função - Retorna Apenas o Conteúdo Entre Parênteses

DONUT PROJECT 2015 - Função - Retorna Apenas o Conteúdo Entre Parênteses

​

A função abaixo é muito útil por permitir retornar apenas o conteúdo que estiver entre parênteses.

Public Function ExtraiOValorEntreParenteses (str As String) As String

'Author: André Luiz Bernardes - andredinizbernardes@gmail.com
' Date: 06.04.15 - 10:00
' Descrição: Retorna somente o conteúdo de uma frase que estiver entre parênteses.

    Dim openPos As Integer

    Dim closePos As Integer

    Dim midBit As String

    Let openPos = InStr(str, "(")

    Let closePos = InStr(str, ")")

    Let midBit = Mid(str, openPos + 1, closePos - openPos - 1)

    Let ExtraiOValorEntreParenteses = midBit

End Function

Ei! Envie seus comentários e sugestões de artigos. Compartilhe este artigo com seus chefes, colegas de trabalho e amigos.

andredinizbernardes@gmail.com

DONUT PROJECT 2015 - Função - Extrai Conteúdo entre Parênteses

DONUT PROJECT 2015 - Função - Extrai Conteúdo entre Parênteses

​

Esta função pode auxiliar muito alguém que está num processo de higienização de dados.

Imagine poder retornar apenas aquilo que não está entre parênteses.

Por exemplo, da expressão Dr. Roberto Matsuo (Clínico Geral), retornar apenas: Dr. Roberto Matsuo

A função abaixo faz exatamente isso.

Public Function ExtraiTudoEntreParenteses(str As String) As String
'Author: André Luiz Bernardes - andredinizbernardes@gmail.com
' Date: 06.04.15 - 10:00
' Descrição: Retorna todo o conteúdo de uma frase que não estiver entre parênteses.

    Dim openPos As Integer

    Dim closePos As Integer

    Dim midBit As String

    Let openPos = InStr(str, "(")

    Let closePos = InStr(str, ")")

    Let midBit = Left(str, openPos - 1) & Right(str, openPos)

    Let ExtraiTudoEntreParenteses = midBit

End Function

Ei! Envie seus comentários e sugestões de artigos. Compartilhe este artigo com seus chefes, colegas de trabalho e amigos.

andredinizbernardes@gmail.com

DONUT PROJECT 2015 - How To Create Partially Anonymous Data - Como Manter Informações parcialmente Anônimas

DONUT PROJECT 2015 - How To Create Partially Anonymous Data - Como Manter Informações parcialmente Anônimas

Às vezes é importante tornar as informações contidas em relatórios e dashboards parcialmente anônimas, mantendo certa confidencialidade e discrição de olhos sem autorização para consulta.

O código abaixo permite-nos aplicar tal restrição:

Sub AnonymizeText()

'PURPOSE: Anonymize a number or text so only certain amount of original characters are showing (used alot with credit card #s)

'SOURCE: www.TheSpreadsheetGuru.com

Dim ShowChars As Integer

Dim AnonymChar As String

Dim SymbolString As String

Dim StringLength As Long

Dim AnonymEnd As Boolean

Dim cell As Range

Dim rng As Range

'Do you want to anonymize begining or end of text (TRUE for end, FALSE for beginning)

  AnonymEnd = False

'Number of characters you want to show

  ShowChars = 4

'Symbol you want to replace original characters

  AnonymChar = "*"

'Range where data is stored

  Set rng = Range("A2:A25")

  

'Loop through each cell and anonymize text

  For Each cell In rng.Cells

    

    StringLength = Len(cell.Value)

    SymbolString = Application.WorksheetFunction.Rept(AnonymChar, StringLength - ShowChars)

    

    If StringLength > ShowChars Then

      'Anonymize ending characters (ie 730*******)

        If AnonymEnd = True Then cell.Value = Left(cell.Value, ShowChars) & SymbolString

      

      'Anonymize beginning characters (ie *******540)

        If AnonymEnd = False Then cell.Value = SymbolString & Right(cell.Value, ShowChars)

     

    End If

  

  Next cell

End Sub

Olha como funciona:

Não me recordo de pessoalmente ter necessitado do código acima, mas imagino que poderia ser muito útil em áreas como Recursos Humanos, Auditoria, contas a pagar, folha de pagamento, e Tesouraria. Nestes departamentos os analistas geralmente utilizam dados que incluem números de conta, valores, e outras informações pessoais que provavelmente não devam ser mostrados fora do respectivo departamento.

Ei! Envie seus comentários e sugestões de artigos. Compartilhe este artigo com seus chefes, colegas de trabalho e amigos.

andredinizbernardes@gmail.com