Melhores as suas Planilhas MS Excel!

Melhores as suas Planilhas MS Excel!

MELHORE SUAS PLANILHAS

- Torne-as mais rápidas e leves

- Propicie backups automáticos

- Acrescente macros produtivas

- Organize-as automaticamente

DASHBOARDS

- Impacte com Dashboards

- Transforme seus conteúdos

- Dê atenção para o conteúdo

Solicite orçamento via:

brazilsalesforceeffectiveness@gmail.com

       

VBA Excel Intermediário - Exportando DOIS Ranges Simultaneamente para o PowerPoint

VBA Excel Intermediário - Exportando DOIS Ranges Simultaneamente para o PowerPoint

Sim, caso nosso Dashboard seja grande demais, ou tenha pequenas partes que gostaria de destacar durante a sua apresentação, talvez decida exportar pequenas partes em slides separados, logo após tê-los exportado juntos.

Ter a liberdade de poder efetuar essa exportação com a mesma funcionalidade técnica é sempre uma bem recebida solução para a nossa correria do dia a dia.

Um plus+ neste código é o que verá no arremate da colagem da imagem, quando o script tenta adequar o tamanho da imagem ao slide onde está sendo colado. 

Começa assim:

    Dim nTitle As String
    Dim nRngName01 As String

    Dim nRngName02 As String

     Let nRngName01 = "TOP"
     Let nRngName02 = "BODY"

     Let nTitle = ActiveSheet.Range("AB9").Value

    Call XPortRng2PPT (nRngName01, nRngName02, nSheetName, nTitle)

Continue assim:

Sub XPortRng2PPT (nRngName01 As String, nRngName02 As String, nSheet As String, nTitle As String)
    '      Author: André Luiz Bernardes - A&A - In Any Place - andreluizbernardes@gmail.com
    '        Date: 01/06/2016 - 10:32
    ' Application: Field Force Dashboard Analysis® 
    '     Purpose: Copy/Paste An Excel Range Into a New PowerPoint Presentation

    Dim ActFileName As Variant
    Dim ScaleFactor As Single

    On Error GoTo ErrorHandling

    Let ActFileName = Application.GetOpenFilename("Microsoft PowerPoint-Files (*.pptx), *.ppt")
    Let ScaleFactor = Range("myScaleFactor").Value

    Application.Sheets(nSheet).Select

    Set PP = CreateObject("Powerpoint.Application")

    If ActFileName = False Then
        PP.Activate
        PP.Presentations.Add
        Set PP_File = PP.ActivePresentation
    Else
        PP.Activate
        Set PP_File = PP.Presentations.Open(ActFileName)
    End If

    Let PP.Visible = True

    CopyandPastetoPPT nRngName01, nTitle, ScaleFactor, ScaleFactor
    CopyandPastetoPPT nRngName02, nTitle, ScaleFactor, ScaleFactor

    Set PP_Slide = Nothing
    Set PP_File = Nothing
    Set PP = Nothing

    Application.Sheets(nSheet).Activate
Exit Sub

ErrorHandling:

Set PP_Slide = Nothing
Set PP_File = Nothing
Set PP = Nothing

MsgBox "Error No.: " & Err.Number & vbNewLine & vbNewLine & "Description: " & Err.Description, vbCritical, "Error"

End Sub

Sub CopyandPastetoPPT (myRangeName As String, _
                              myTitle As String, _
                              myScaleHeight As Single, _
                              myScaleWidth As Single)
    '      Author: André Luiz Bernardes - A&A - In Any Place - andreluizbernardes@gmail.com
    '        Date: 01/06/2016 - 10:32
    ' Application: Field Force Dashboard Analysis®
    '     Purpose: Copy/Paste.

    Dim NextShape As Integer

    Application.GoTo Reference:=myRangeName

    Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
    
    Range("A1").Select

    PP.ActivePresentation.Slides.Add PP.ActivePresentation.Slides.Count + 1, 11

    Set PP_Slide = PP_File.Slides(PP.ActivePresentation.Slides.Count)
    Let PP_Slide.Shapes.Title.TextFrame.TextRange.Text = myTitle
    Let NextShape = PP_Slide.Shapes.Count + 1

    PP_Slide.Shapes.PasteSpecial 2
    
    PP_Slide.Shapes(NextShape).ScaleHeight myScaleHeight, 1
    PP_Slide.Shapes(NextShape).ScaleWidth myScaleWidth, 1
    PP_Slide.Shapes(NextShape).Left = PP_File.PageSetup.SlideWidth \ 2 - PP_Slide.Shapes(NextShape).Width \ 2
    PP_Slide.Shapes(NextShape).Top = 90

End Sub


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

brazilsalesforceeffectiveness@gmail.com

VBA Excel Intermediário - Exportando um Range para o PowerPoint

VBA Excel Intermediário - Exportando um Range para o PowerPoint

Exportar um range específico do nosso Dashboard diretamente para o MS Powerpoint deixou de ser um grande segredo e tornou-se a funcionalidade mais usada entre aqueles que conhecem um pouco de VBA. Por isso disponibilizo mais uma versão dessa possibilidade:

Sub ExcelRangeToPowerPoint(nSheet As String, NewPPT As Boolean, nRng As String, nLeft As Integer, nTop As Integer)
    '      Author: André Luiz Bernardes - A&A - In Any Place - andreluizbernardes@gmail.com
    '        Date: 11/05/2016 - 12:25
    ' Application: Field Force Dashboard Analysis®
    '     Purpose: Copy/Paste An Excel Range Into a New PowerPoint Presentation

Dim rng As Range
Dim PowerPointApp As Object
Dim myPresentation As Object
Dim mySlide As Object
Dim myShape As Object

'Copy Range from Excel
  Set rng = Sheets(nSheet).Range(nRng) 'ThisWorkbook.ActiveSheet.Range(nRng)

'Create an Instance of PowerPoint
  On Error Resume Next
    
    'Is PowerPoint already opened?
      Set PowerPointApp = GetObject(class:="PowerPoint.Application")
    
    'Clear the error between errors
      Err.Clear

    'If PowerPoint is not already open then open PowerPoint
      If PowerPointApp Is Nothing Then Set PowerPointApp = CreateObject(class:="PowerPoint.Application")
    
    'Handle if the PowerPoint Application is not found
      If Err.Number = 429 Then
        MsgBox "PowerPoint não pôde ser aberto, abortando exportação."
        Exit Sub
      End If

  On Error GoTo 0

'Optimize Code
  Application.ScreenUpdating = False

'Create a New Presentation
  Set myPresentation = PowerPointApp.Presentations.Add

'Add a slide to the Presentation
  Set mySlide = myPresentation.Slides.Add(1, 11) '11 = ppLayoutTitleOnly

'Copy Excel Range
  rng.Copy

'Paste to PowerPoint and position
  mySlide.Shapes.PasteSpecial DataType:=2  '2 = ppPasteEnhancedMetafile
  Set myShape = mySlide.Shapes(mySlide.Shapes.Count)
  
    'Set position:
      myShape.Left = nLeft
      myShape.Top = nTop

'Make PowerPoint Visible and Active
  PowerPointApp.Visible = True
  PowerPointApp.Activate

'Clear The Clipboard
  Application.CutCopyMode = False

End Sub



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

brazilsalesforceeffectiveness@gmail.com

Dados ou Informações?

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

Você tem direito as informações da sua empresa

MIS - Usufruindo a excelência na análise das suas Informações

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

Acrônimos - Technology, Electronics and Games Acronyms

13 Dicas para se Falar em Público

Os 10 mandamentos do gerenciamento de projetos

KPI - Key Performance Indicator

Acesse: http://goo.gl/0v6AO   

2013 Iniciou - Sejamos pescadores desenvolvedores
Você tem direito as informações da sua empresa
MIS - Usufruindo a excelência na análise das suas Informações
Dados ou Informações?
Dashboards - 8 Importantes características desejáveis
Encerramento do ano Comercial de 2012

Empresas em todo o mundo estão permeadas de dados oriundos de diversas fontes distintas e apesar do fácil acesso a estes, têm dificuldades em obter as necessárias informações para tomar as suas mais relevantes decisões.

Não é menos verdade, nem tão pouco raro, o fato de que em muitas reuniões a maioria dos presentes estejam munidos de informações pouco relevantes. Têm acesso aos seus próprios dados de A a Z, mas estes encontram-se completamente desprovidos de conteúdo, pois não contém nem a abrangência necessária e tão pouco a diversificação apropriada, que lhes propiciem dinamicidade na análise.

Em alguns casos as corporações têm acesso a um grande amontoado de dados distribuidos nos seus servidores. Geralmente estão reunidos os acrônimos BI, Datawarehouse e cubos OLAP. Mas quem está medindo a sua utilização e eficácia. Como uma ferramenta pode ser útil e melhorada se não estiver constantemente sob avaliação pelos usuários?

A informação, algo que realmente agregue, aponte, antecipe, ou mesmo complemente, é muito preciosa e deve ser obtida de forma rápida e exata.

Quando a questão é reunir informações de diferentes países, traduzindo-as nas estratégias e targets das suas respectivas companhias, tem sido um desafio para a grande maioria dos executivos em todo o mundo reunir uma visão clara e compartilhada. Não raro encontramos KPIs (Indicadores de Performance) totalmente desalinhados com as respectivas estratégias da empresa.

A diversidade das bases de dados nas quais as informações encontram-se são muito variáveis.

O verdadeiro desafio ocorre no momento de consolidá-las em Dashboards e Scorecards por exemplo, estas precisam ser reunidas de modo coerente e sucinto. 

No caso dos Balanced Scorecards (BSCs), estes oferecem aos executivos as ferramentas para atingirem o sucesso na obtenção de suas informações. Esta importante ferramenta traduz a missão e a estratégia da sua empresa num conjunto abrangente de medidas de desempenho que servem como base para o sistema de medição e gestão estratégica, perseguindo os objetivos financeiros, incluindo os vetores de desempenho desses objetivos.

O grande dilema é: Mesmo cercado por dados de todas as origens, como posso obter informações relevantes para tomar minhas decisões?

Tags: Informação, dados, Análise, gerencial, executiva, financeira, balanço, faturamento, CRM, SCM, KPI, BSC, MIS, BI, Scorecard, relatório, gráfico, reports, charts, Dashboard

MIS - Usufruindo a excelência na análise das suas Informações

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

Você tem direito as informações da sua empresa

MIS - Usufruindo a excelência na análise das suas Informações

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

Acrônimos - Technology, Electronics and Games Acronyms

13 Dicas para se Falar em Público

Os 10 mandamentos do gerenciamento de projetos

KPI - Key Performance Indicator

Acesse: http://goo.gl/0v6AO   

O grande dilema é: MESMO ESTANDO CERCADO POR DADOS DE TODAS AS ORIGENS, COMO POSSO ANALISAR INFORMAÇÕES USUFRUINDO A EXCELÊNCIA NA PREPARAÇÃO DESTES, DEIXANDO-ME CONFORTÁVEL PARA TOMAR AS MINHAS DECISÕES?


Os conceitos e as regras de negócio precisam ser aplicados aos dados de modo a atender a empresa como um TODO e não apenas a alguns departamentos e países.

Os resultados mais comuns são INFORMAÇÕES IMPRECISAS, números que não coincidem durante as reuniões, findando pelo adiamento de decisões altamente relevantes.

Para que a Direção da empresa possa tomar decisões abalizadas, torna-se imprescindível que o conteúdo seja coeso, sintético e direcionado para atender o foco das reuniões.

O Management Information System é um Sistema de Informação Gerencial, utilizado por toda a organização, sua rede é composta por de canais de comunicação da organização que permeiam todas as estruturas executivas. É composto por todos os componentes que recolhem, manipulam e disseminam as informações. Nele estão inclusos hardware, software, pessoas, sistemas de telecomunicação, e os dados propriamente ditos.

Não é menos verdade que em muitas reuniões todos estejam munidos de INFORMAÇÕES totalmente irrelevantes. Mesmo tendo acesso aos dados de A a Z, continuam sem absorver a essência das suas necessidades. As decisões precisam ser tomadas com base em informações e não num amontoado de dados irrelevantes em relatórios estáticos que não contém abrangência nem diversificação, e não lhes propiciem dinamicidade na análise.

Utilize o que há de melhor em ferramentas de análise!

:: Consulte seus dados concentrados em Scorecards.
:: Utilize layouts funcionais que destaquem as informações mais relevantes.
:: Envie ou arraste tabelas e gráficos para suas apresentações eletrônicas.
:: Compartilhe as informações através de Dashboards funcionais.
Cause um impacto positivo em todos os níveis executivos de gestão.

Entre em contato, presto consultoria pontual.

:: Avalie os diferentes cenários
:: Reúna as informações mais importante para sua análise.
:: Efetue simulações com dados reais em múltiplos cenários.
:: Compare suas informações com os dados do seu Marketshare.
:: Tenha relatórios atualizados com informações oriundas da Internet.

Não é necessário a aquisição de nenhum produto!

Implemente soluções com os produtos já disponíveis na sua Empresa ou Departamento.

Personalize as suas soluções com relatórios e informações exatas.

Possivelmente tenha o seu sistema implementado e funcional, mas não consegue extrair dele todas as informações que precisa sob um padrão simples e coeso.

Contate-me e reformule os seus relatórios Gerenciais, Financeiros e de Produção. Soluções e ferramentas simples que retirarão as INFORMAÇÕES do seu sistema, seja um BI, Datawarehouse, Client/Server, ERP ou Sistema Legado. 

Tags: Informação, dados, Análise, gerencial, executiva, financeira, balanço, faturamento, CRM, SCM, KPI, BSC, MIS, BI, Scorecard, relatório, gráfico, reports, charts, Dashboard

Você tem direito as informações da sua empresa

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

Você tem direito as informações da sua empresa

MIS - Usufruindo a excelência na análise das suas Informações

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Key Performance Indicators - 7 Características desejáveis

Tópicos relacionados:

Business English - Termos em inglês do mundo dos negócios - Speaking the lingo

Acrônimos - Technology, Electronics and Games Acronyms

13 Dicas para se Falar em Público

Os 10 mandamentos do gerenciamento de projetos

KPI - Key Performance Indicator

Acesse: http://goo.gl/0v6AO   

A verdade é uma só: Nas maioria das corporações os executivos e gestores acabam tendo acesso somente a dados distribuídos em relatórios e planilhas cheias de filtros permeadas por toda a corporação.

A informação com apontamentos, definições, filtrada pela estratégia e pelos objetivos da companhia, aquela que deveria ser o resultado de esforços estênuos não chega às mãos para ser um driver decisório.

Apesar de todos sabermos, precisamos massificar a ideia geral de que a informação é de fato, muito mais preciosa do que os dados. A informação precisa ser obtida de forma rápida e exata.

Não existe grandes méritos em reunir as informações de diferentes fontes. Mas traduzí-los nas estratégias e targets pré-estabelecidos tem sido um desafio para a maioria dos executivos em todo o mundo.

Mesmo tendo acesso a dezenas de bases de dados não conseguem obter informações claras e sucintas em Dashboards e Scorecards que sejam focados e atualizáveis dinamicamente.

Não têm acesso aos mesmos aos KPIs pré-definidos e cobrados pelos executivos doBorder.

Entre em contato, presto consultoria pontual.

Executivos em todo o mundo admitem existir uma forte demanda por informações com conteúdo sintético e direcionado para atender o foco das suas reuniões e apresentações.

Diretores executivos e seus subordinados hierárquicos, mesmo em outros países, poucas vezes têm em mãos relatórios focados na análise.

Meu trabalho é voltado para atender empresas e departamentos que necessitem de Ferramentas de Análise realmente produtivas quanto a performance.

Propicie que as informações nos seus relatórios estejam compreensíveis. 

Componha as suas planilhas com informações e não apenas funcionalidades.

Torne a apresentação das suas 

Torne a apresentação das suas informações relevante. 

Aplique layouts modernos: Infocharts, Dashboards e Scorecards.

Não perca tempo, envie as informações diretamente para as apresentações.

Divulgue suas análises consolidadas diretamente nos seus relatórios.

Consolide as informações do seu mercado.

Implemento soluções com os produtos já instalados da sua Empresa e Departamento.

Organizo os dados disponíveis, deixando seus novos relatórios com layouts funcionais.

A diversidade das bases de dados nas quais as informações que deseja podem estar, são muito variáveis. Mesmo que precise consolidar tais informações em Dashboards e Scorecards, será necessário reuní-los de modo coerente e sucinto.

Personalize as suas soluções com relatórios e informações exatas: Possivelmente já tenha acesso a um sistema de BI ou Data Warehouse, mas ainda não consegue obter as informações realmente relevantes que gostaria, num formato simples e coeso. 

Neste cenário há a necessidade de desenvolver aplicações usando todos os dados disponíveis.

Contate-me e reformule os seus relatórios gerenciais, financeiros e de produção.

Desenvolvo soluções e ferramentas simples que retirarão as INFORMAÇÕES do seu sistema seja ele: BI, Datawarehouse, Client/Server, ERP ou um Sistema Legado. 

Não é necessário a aquisição de nenhum produto!

Entre em contato

Por vezes as informações às quais deseja ter acesso através de pesquisa em sites ou bancos de dados da sua empresa não estão no formato que gostaria, automatize a análise destes dados. Obtenha conexões instantâneas, mesmo quando estas estiverem em diferentes ambientes.

Ofereço-lhe esta consultoria acompanhada de soluções, desenvolvidas de modo personalizado, utilizando as ferramentas existentes no seu ambiente de trabalho, ferramentas estas, muitas vezes utilizadas minimamente.

Contate-me.

Tags: Informação, dados, Análise, gerencial, executiva, financeira, balanço, faturamento, CRM, SCM, KPI, BSC, MIS, BI, Scorecard, relatório, gráfico, reports, charts, Dashboard