✔ VBA Excel Specialist® - Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance. Contate-nos: brazilsalesforceeffectiveness@gmail.com | ESTE BLOG NÃO SE RESPONSABILIZA POR QUAISQUER DANOS PROVENIENTES DO USO DOS CÓDIGOS AQUI POSTADOS EM APLICAÇÕES PESSOAIS OU DE TERCEIROS.
Microsoft Office 15
Você tem direito as informações da sua empresa.
Ou neste formato?
Reunir e analisar as informações de diferentes regiões, e talvez de países, traduzindo-os nas estratégias pré-estabelecidas tem sido um desafio para a maioria dos executivos em todo o mundo.
Será que mesmo tendo acesso às dezenas bases de dados da sua empresa, mesmo assim não consegue obter informações claras e sucintas em Dashboards e Scorecards focados e atualizáveis dinamicamente?
Tem acesso aos mesmos KPIs pré-definidos, analisados e cobrados pelos executivos do Bord?
Diretores executivos e seus subordinados hierárquicos em outros países, poucas vezes têm em mãos relatórios focados em análise.
Meu trabalho é voltado para atender empresas e departamentos que necessitem de Ferramentas de Análise realmente produtivas quanto a performance.
- Torne mais clara e compreensíveis as informação dos seus relatórios.- Complemente suas planilhas com mais funcionalidades.- Melhore a apresentação das suas informações.- Aplique layouts modernos.- Envie dados diretamente para as suas apresentações do Powerpoint.- Envie análises consolidadas diretamente para os seus relatórios.- Recolha informações do seu marketshare, e outro dados diretamente da Web.
Implemento soluções com os produtos já instalados na sua Empresa e Departamento (Bancos SQL, DW, BI, Bases de Dados Access, etc...).
Organizo os dados disponíveis, deixando seus novos relatórios com layouts funcionais.
A diversidade de 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, precisará 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.
Soluções e ferramentas simples que retirarão as INFORMAÇÕES do seu sistema, seja um BI, Datawarehouse, Client/Server, ERP ou Sistema Legado.
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.
A&A® - Work smart, not hard.Skype: inanyplaceTwitter: @bernardess
VBA Excel - Limpando cabeçalhos sem uso no Excel
Desenvolvi esta solução a partir de várias soluções que poderão consultar depois.
Sub RemovePageHeaders()Application.ScreenUpdating = FalseDim objRange As RangeSet objRange = Cells.Find("HeaderText")While objRange <> ""objRange.Offset(1, 0).Rows(1).EntireRow.DeleteobjRange.Rows(1).EntireRow.DeleteSet objRange = Cells.Find("HeaderText")WendMsgBox ("Removido todos os cabeçalhos")End Sub
Tags: Excel, Delete, clean, remove, header, Linha, Plan, Planilhas, Row, rows, worksheet, lines, UDF
André Luiz Bernardes
A&A® - In Any Place.
VBA Excel - Deletando linhas com informações.
Sub Prepare()
Dim CR As LongDim LR As LongLet Application.ScreenUpdating = FalseLet Application.Calculation = xlCalculationManualLet LR = ActiveSheet.Range("B65536").End(xlUp).RowFor CR = LR To 3 Step -1
If ActiveSheet.Cells(CR, "A") = "" ThenLet ActiveSheet.Cells(CR - 1, "B") = Cells(CR - 1, "B") & " " & Cells(CR, "B")ActiveSheet.Cells(CR, "A").EntireRow.DeleteEnd If
Next CRLet Application.ScreenUpdating = TrueLet Application.Calculation = xlCalculationAutomaticApplication.Calculate
End Sub
Tags: Excel, delete, line, row
André Luiz Bernardes
VBA Excel - Deletando Linhas com a palavra passada como parâmetro
Sub DelRowWithWord()
Dim Col As VariantDim Word As StringLet Col = InputBox ("Qual é a coluna que contém a palavra que deseja identificar")If Len(Col) > 0 And Not Col Like "*[!0-9]*" Then Col = Val(Col)
Let Word = InputBox ("Digite a palavra que identificará as linhas que deseja deletar:")With Columns(Col).Replace Word, "#N/A", xlWhole.SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.DeleteEnd With
End Sub
Tags: Excel, text, delete, exclui, palavra, word, row, line