✔ 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.
Views
...
Important:
E-mails
eBook Promo
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