✔ VBA Dashboards Specialist®: julho 2016

20 de julho de 2016

VBA Excel Intermediário - Usando PROCH no VBA - How to use the HLOOKUP Function - RetHLookup

VBA Excel Intermediário - Usando PROCH no VBA - How to use the HLOOKUP Function - RetHLookup

Sim, a velha e conhecida PROCH. Usá-la de forma programática pode facilitar muitíssimo o modo como passamos informações parametrizáveis para serem rapidamente encontradas em uma ou mais planilhas.

Function RetHLookup (nValue As Single, nRng As Range, nColReturn As Integer) As Variant
' Author: André Luiz Bernardes - A&A - In Any Place - andreluizbernardess@gmail.com
' Date: 20/07/2016 - 18:54
' Application: Field Force Dashboard Analysis® - © ALLERGAN 2016, Inc. Todos os direitos reservados.
' Company: © ALLERGAN 2016, Inc. Todos os direitos reservados.
' Purpose: Return value from reference.
' Let a= RetHLookup (1295359, Sheets("Par01").Range("L34:Z35"), 2)

Let RetHLookup = Application.WorksheetFunction.HLookup(nValue, nRng, nColReturn, False)
End Function

É claro que um código muito similar pode e deve ser usado para PROCV.

Se gostou, compartilhe este post com outros! Deixe seus comentários e sugestões.

brazilsalesforceeffectiveness@gmail.com

VBA Intermediário - Função Converte um Range numa String - Range to String - Function ConRngInStr

VBA Intermediário - Função Converte um Range numa String - Range to String - Function ConRngInStr

O que segue abaixo é uma função que permite converter o intervalo contido num Range numa String para apresentação dentro de uma célula.

Function ConRngInStr
(tgtRange As Range, Separator As String) As String
' Author: André Luiz Bernardes - A&A - In Any Place - andreluizbernardess@gmail.com
' Date: 20/07/2016 - 09:15
' Application: Field Force Dashboard Analysis®
' Purpose: Função Converte um Range numa String - Range to String

If tgtRange Is Nothing Then Exit Function

Dim nCells As Range

For Each nCells In tgtRange.Cells
Let ConRngInStr = ConRngInStr & Separator & nCells
Next nCells

Let ConRngInStr = Right(ConRngInStr, Len(ConRngInStr) - 1)
End Function

Se gostou, compartilhe este post com outros! Deixe seus comentários e sugestões.

brazilsalesforceeffectiveness@gmail.com

VBA Intermediário - Função que converte um Range numa String separada por [Enter] - Convert my Range Array to Single Cell String

VBA Intermediário - Função que converte um Range numa String separada por [Enter] - VBA - Convert my Range Array to Single Cell String

Vez ou outra precisaremos converter os conteúdos em um Range, dentro de uma célula. A função abaixo além de fazer isso, propicia que o intervalo entre os conteúdos do Range sejam separados por um [Enter], permitindo a apresentação dentro da célula sem perder o aspecto de coluna. Claro que essa característica poderá ser mudada para: Vírgula, barra, hífen, etc...

Function ConvertRngInStr (MyRange As Range)
' Author: André Luiz Bernardes - A&A - In Any Place - andreluizbernardess@gmail.com
' Date: 20/07/2016 - 09:05
' Application: Field Force Dashboard Analysis®
' Purpose: Função que converte um Range numa String separada por [Enter] - Convert my Range Array to Single Cell String.

Dim nFrase As String

Dim r As Range

For Each r In MyRange
Let nFrase = nFrase & r.Value & vbCrLf
Next r

Let ConvertRngInStr = nFrase
End Function

Se gostou, compartilhe este post com outros! Deixe seus comentários e sugestões.

brazilsalesforceeffectiveness@gmail.com

VBA Intermediário - Função Converte um Range num Array - Range to Array - Function ConRngArray

O que segue abaixo é o exemplo de uma função que permite converter o intervalo contido num Range num Array.

Function ConRngArray (ByVal nRng As Range) As String()
' Author: André Luiz Bernardes - A&A - In Any Place - andreluizbernardess@gmail.com
' Date: 20/07/2016 - 07:03
' Application: Field Force Dashboard Analysis®
' Purpose: Função Converte um Range num Array - Range to Array

Dim nVector01 As Variant
Dim nVector02() As String
Dim i As Long

Let nVector01 = nRng.Value

ReDim nVector02(1 To UBound(nVector01))

For i = 1 To UBound(nVector01)
Let nVector02(i) = nVector01(i, 1)
Next

Let ConRngArray = nVector02()
End Function n

Se gostou, compartilhe este post com outros! Deixe seus comentários e sugestões.

brazilsalesforceeffectiveness@gmail.com

12 de julho de 2016

✔ A&A – FFDA® - Field Force Dashboard Analysis® - Designing and Building 6 AMAZINGS Dashboards

In management information systems, a dashboard is an easy to read, often single page, real-time user interface, showing a graphical presentation of the current status (snapshot) and historical trends of an organization’s or computer appliances key performance indicators to enable instantaneous and informed decisions to be made at a glance.

Contact us in What'sApp for projects

In real-world terms, dashboard is another name for progress report or report. Often, the dashboard is displayed on a web page that is linked to a database which allows the report to be constantly updated.