Use o aplicativo adequado para a sua tarefa

Este é um texto que vai gerar controvérsias e discussões, mas vamos lá.

Tenho visto muita gente desenvolvendo controle de estoque em Excel, desde instrutores independentes até grandes consultorias.
O que me espanta é o fato de utilizarem uma ferramenta inadequada para essa finalidade.
Se consideramos um negócio pequeno onde a quantidade de itens num estoque  é baixa, até funciona, mas vamos pensar num negócio médio, digamos que o estoque possua em torno de 5 mil itens.
5 mil itens = 5 mil linhas da planilha.
Vamos fazer algumas contas:
200 vendas por dia, 6.000 vendas no mês, 72 mil vendas no ano.
Se cada venda tiver em média, 5 itens, teremos: 1.000 linhas de vendas por dia, 30.000 linhas no mês, 216.000 linhas no ano.
Em 5 anos já estourou o limite de linhas no Excel.
Ok, muitos dirão, mas posso utilizar colunas e diminuir o número de linhas, ou ainda, criar novas planilhas dentro da mesma pasta para comportar a quantidade de informações.
Aí o argumento contra é muito mais simples: o desempenho do Excel é inversamente proporcional a quantidade de informações, ou seja, quando o controle de estoque é desenvolvido e colocado em produção, funciona muito bem pois tem poucas informações. Com o passar do tempo, o desempenho ficará cada vez mais comprometido em virtude da quantidade grande de informações.
Trabalho numa empresa onde planilhas com 400 ou 500 mil linhas são corriqueiras e manipulá-las em rede, é extremamente lento.

A solução?
Simples, utilize um banco de dados.
Não quer abrir mão do Excel? Ok, utilize-o como Front End.

O primeiro problema que você irá se deparar ao criar um controle de estoque, é a necessidade de torná-lo multiusuário, ou seja, várias pessoas manipulando as informações ao mesmo tempo.
O Excel tem recursos de compartilhamento, mas acredite, comparado ao controle de acessos de um banco de dados, é como comparar um Fusca com uma Ferrari. O Excel não foi desenvolvido para isso, o próprio nome já diz: "planilha" de cálculos.

Os controles que vi na internet, principalmente no YouTube, demonstram extrema habilidade em programação de quem os criou, não posso e não tiro o mérito deles, mas faço aqui um apelo: utilizem a ferramenta certa para a tarefa (controle de estoque): um banco de dados.
Se quiserem, utilizem o Excel como Front End e aí até sugiro uma dupla que na minha opinião, seria extremamente confiável: Excel + SQL Server Express (gratuito).

Estes são só alguns argumentos para desaconselhar a criação de controle de estoque em Excel, poderia ir muito além mas vou ficar por aqui.

Access - Passar critério para uma consulta via VBA

Isto é um quebra-galho mas funciona.
Cria-se uma variável global e uma função (que é o critério da consulta) recebe o valor.
Melhor visualizar o exemplo que fica mais fácil de entender.

;-)

O formato de arquivo XLSB do Excel

Os tradicionais arquivos com extensão XLSX do Excel 2007 e superiores, são arquivos compostos, ou seja, possuem vários XML dentro dele.
A forma mais fácil de visualizar isso, é abrindo um XLSX num compactador qualquer como o Winzip ou WinRar (veja abaixo um exemplo aberto com o WinRar).
Ao salvar o mesmo arquivo em formato XLSB ("B" de binário), os arquivos XML deixam de ser gravados e o resultado disso é um ganho substancial no tamanho final.
Na instituição onde trabalho atualmente, vejo muita gente utilizar o Excel como um repositório de dados, gerando arquivos imensos e ocupando muito espaço em rede.
Como esses arquivos não necessitam de recursos (macros por exemplo), ou seja, servem apenas para armazenar dados, a utilização do formato binário só traz vantagens: tamanho de arquivo menor e consequentemente, maior agilidade nas operações de abertura e salvamento.

;-)

Serviços Freelance

Procurando um profissional para um projeto rápido?
Ou procurando alguma forma de divulgar suas habilidades e assumir um trabalho temporário para ter uma renda extra?
Este site une esses dois tipos de perfis: http://www.freelance.com

;-)

VBA no Office 64 bits

Nunca tive a oportunidade de testar por não usar o Office 64 bits.
Segue o texto com o link para o site original, vou deixar aqui porque no site da Microsoft, os artigos costumam sumir....

https://msdn.microsoft.com/PT-BR/library/office/gg264421.aspx

Visão geral do Visual Basic for Applications de 64 bits

Office 2013 and later

O Microsoft Visual Basic for Applications (VBA) é a versão do Visual Basic fornecida com o Microsoft Office. O VBA do Microsoft Office 2010 inclui recursos de linguagem que permitem que o código do VBA funcione corretamente em ambientes de 32 bits e 64 bits.

Observação
Por padrão, o Office 2010 instala a versão de 32 bits. Você deve escolher explicitamente instalar a versão de 64 bits durante a instalação.

Erros

Observação
Você precisa modificar o código VBA somente se ele for executado na versão de 64 bits do Microsoft Office.

O problema com a execução do código herdado do VBA no Office de 64 bits ocorre porque a tentativa de carregar 64 bits em um tipo de dados de 32 bits trunca a quantidade de 64 bits. Isso pode resultar em saturações de memória, resultados inesperados no seu código e possíveis falhas no aplicativo.

Para resolver esse problema e ativar o código do VBA para que ele funcione corretamente em ambientes de 32 e 64 bits, foram adicionados vários recursos de linguagem ao VBA. A tabela na parte inferior deste documento resume os novos recursos de linguagem do VBA. Três adições importantes são o alias do tipo LongPtr, o tipo de dados LongLong e a palavra-chave PtrSafe.

• LongPtr - o VBA agora inclui um alias de tipo variável: LongPtr. O tipo de dados real que LongPtr resolve depende da versão do Office que está sendo executada no: o LongPtr resolve o Long em versões do Office de 32 bits e LongPtr resolve o LongLong na versão de 64 bits do Office. Use LongPtr para ponteiros e identificadores.
• LongLong – o tipo de dados LongLong é um inteiro de 64 bits com sinal disponível somente em versões de 64 bits do Office. Use LongLong para integrais de 64 bits. Funções de conversão devem ser usadas para atribuir o LongLong explicitamente (incluindo LongPtr em plataformas de 64 bits) para tipos de integral menores. As conversões implícitas de LongLong em integrais menores não é permitido.
• PtrSafe – a palavra-chave PtrSafe assegura que uma instrução Declare possa ser executada com segurança na versão de 64 bits do Office.

Todas as Instruções Declare agora devem incluir a palavra-chave PtrSafe para executar versões de 64 bits do Office. É importante esclarecer que a simples adição da palavra-chave PtrSafe a uma instrução Declare significa apenas que a instrução Declare é destinada explicitamente à versão de 64 bits, todos os tipos de dados dentro da declaração que precisam armazenar 64-bits (incluindo parâmetros e valores de retorno) ainda devem ser modificados para armazenar quantidades de 64 bits.

Observação
As instruções Declare com a palavra-chave PtrSafe é a sintaxe recomendada. As instruções Declare que incluem PtrSafe funcionam corretamente no ambiente de desenvolvimento do VBA7 em ambas as plataformas, de 32 e 64 bits. Para garantir a compatibilidade com versões anteriores no VBA7, use o construto a seguir:

VBA

#If Vba7 Then 
Declare PtrSafe Sub... 
#Else 
Declare Sub... 
#EndIf

Observe os seguintes exemplos de instrução Declare. Executar uma instrução Declare em versões doe 64 bits do Office resultará em um erro indicando que a instrução Declare não inclui o qualificador PtrSafe. O exemplo do VBA modificado contém um qualificador PtrSafe, mas observe que o valor retornado (um ponteiro para a janela ativa) retorna um tipo de dados Long. Na versão de 64 bits do Office, esse cenário está incorreto porque o ponteiro precisa ser de 64 bits. O qualificador PtrSafe informa ao compilador que a instrução Declare está direcionando a versão de 64 bits para que a instrução seja executada sem erro. Entretanto, como o valor retornado não foi atualizado para um tipo de dados de 64 bits, este será truncado, resultando em um valor retornado incorreto.

Exemplo de instrução Declare de VBA herdado não modificada:

VBA

Declare Function GetActiveWindow Lib "user32" () As Long

Exemplo de instrução Declare do VBA modificada para incluir o qualificador PtrSafe ainda usando o valor retornado de 32 bits:

VBA

Declare PtrSafe Function GetActiveWindow Lib "user32" () As Long

Relembrando: a instrução Declare deve ser modificada para incluir o qualificador PtrSafe e quaisquer variáveis dentro da instrução que precisem armazenar quantidades de 64 bits devem ser atualizadas para que as variáveis usem tipos de dados de 64 bits.

Exemplo d instrução Declaredo VBA modificada para incluir a palavra-chave PtrSafe e atualizada para usar o tipo de dado de 64 bits (LongPtr) adequado:

VBA

Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr

Em resumo, para que o código funcione em versões de 64 bits do Office, é necessário localizar e modificar todas as instruções Declare existentes para que elas usem o qualificador PtrSafe. Também é necessário localizar e modificar todos os tipos de dados dentro dessas instruções Declare que referenciam ponteiros e identificadores para que elas usem novos alias de tipo LongPtr compatíveis com a versão de 64 bits e tipos que precisam armazenar integrais de 64 bits com o novo tipo de dados LongLong. Além disso, é preciso atualizar todos os tipos definidos pelo usuário (UDTs) que contenham ponteiros ou identificadores e integrais de 64 bits para que eles usem tipos de dados de 64 bits e verifiquem todas as atribuições de variável corretas para evitar a ocorrência de erros de incompatibilidade de tipo.

Escrevendo o código que funciona no Office de 32 bits e de 64 bits

Para escrever um código que possa portar as versões de 32 e 64 bits do Office, você só precisa usar o novo alias de tipo LongPtr em vez de Long ou LongLong para todos os ponteiros e valores de identificador. O alias de tipo LongPtr resolverá o tipo de dados Long ou LongLong correto de acordo com a versão do Office que está sendo executada. Observe que, se você precisar de uma lógica diferente para a execução, por exemplo, para manipular valores de 64 bits em grandes projetos do Microsoft Excel, você pode usar a constante de compilação condicional Win64 conforme mostrado na seção a seguir.

Escrevendo o código que funciona no Microsoft Office 2010 (32-bit ou 64-bit) e versões anteriores do Office

Para escrever um código que funcione em versões novas e antigas do Office, você pode usar uma combinação das novas Constantes de Compilação condicional do VBA7 e Win64. A constante de compilação condicional do VBA7 é usada para determinar se o código está sendo executado na versão 7 do Editor do VB (versão do VBA fornecida com o Office 2010). A constante de compilação condicional do Win64 é usada para determinar que versão do Office (de 32 ou 64 bits) está sendo executada.

VBA

#if Vba7 then 
'  Code is running in the new VBA7 editor 
     #if Win64 then 
     '  Code is running in 64-bit version of Microsoft Office 
     #else 
     '  Code is running in 32-bit version of Microsoft Office 
     #end if 
#else 
' Code is running in VBA version 6 or earlier 
#end if 
 
#If Vba7 Then 
Declare PtrSafe Sub... 
#Else 
Declare Sub... 
#EndIf 

Resumo das atualizações de linguagem do VBA7

A tabela a seguir resume as novas adições de linguagem do VBA e fornece uma explicação sobre cada uma delas:

Nome	Tipo	Descrição
PtrSafe	Palavra-chave	Garante que a instrução Declare seja direcionada para sistemas de 64 bits. Necessário para versões de 64 bits.
LongPtr	Tipo de dados	Alias de tipo que mapeia o Long em sistemas de 32 bits, ou o LongLong em sistemas de 64 bits.
LongLong	Tipo de dados	Tipo de dados de 8 bytes que está disponível somente em sistemas de 64 bits. Tipo numérico. Números inteiros no intervalo de -9.223.372.036.854.775.808 a 9.223.372.036.854.775.807. O LongLong é um tipo declarado válido somente em plataformas de 64 bits. Além disso, o LongLong não pode ser convertido implicitamente em um tipo menor (por exemplo, não é possível atribuir um tipo de dados LongLong a um do tipo Long.). Isso é feito para evitar que haja truncamento de ponteiro inadvertidamente. Coerções explícitas são permitidas, portanto, no exemplo acima, é possível aplicar um CLng a um LongLong e atribuir o resultado a um Long. (Válido somente em plataformas de 64 bits.)
^	Caractere de declaração de tipo LongLong	Declara um valor literal explicitamente como um LongLong. Necessário para declarar um literal de LongLong maior que o valor de Long máximo (do contrário, ele será convertido implicitamente em double).
CLngPtr	função de conversão de tipo	Converte uma expressão simples em um LongPtr.
CLngLng	função de conversão de tipo	Converte uma expressão simples em um tipo de dados LongLong. (Válido somente em plataformas de 64 bits.)
vbLongLong	constante VarType	constante VarType
DefLngPtr	instrução DefType	Define o tipo de dados padrão para uma gama de variáveis como LongPtr.
DefLngLng	instrução DefType	Define o tipo de dados padrão para uma gama de variáveis como LongLong.

Excel VBA - Consolidar planilhas

O código abaixo é uma simplificação de um outro escrito pelo meu amigo Edson Luiz Branco, mais ou menos no ano 2000, não lembro exatamente o ano.
Na ocasião, eu precisava copiar e colar os dados de aproximadamente 200 planilhas para uma única e este código me salvou da árdua tarefa manual.

;-)

Sub ConsolidaNovo()

    Dim i               As Integer
    Dim NomeArquivo     As String
    Dim Origem          As Workbook
    Dim Caminho         As String
    
    Caminho = InputBox("Informe o caminho da pasta que contém as planilhas" & vbCrLf & "Exemplo: C:\Pastas\")
    If Caminho = "" Then Exit Sub
    
    If Right(Caminho, 1) <> "\" Then Caminho = Caminho & "\"
    
    NomeArquivo = Dir(Caminho)
    
    i = ActiveWorkbook.Sheets.Count

    Application.ScreenUpdating = False
    Do Until NomeArquivo = ""
        
        Set Origem = Workbooks.Open(Filename:=Caminho & NomeArquivo)
        
        Origem.ActiveSheet.Copy After:=Workbooks("Consolidar.xls").Sheets(i)

        Origem.Close SaveChanges:=False
        
        ActiveSheet.Name = NomeArquivo
        i = i + 1

        NomeArquivo = Dir
        Application.ScreenUpdating = True

    Loop

    Set Origem = Nothing
    
    Sheets(1).Select

End Sub

Transferir as regras do Outlook para outro computador

Criar regras dá trabalho mas o resultado é sempre ganho de produtividade.
Imagine o trabalho de ter de criar várias regras novamente quando se muda de computador.
Para evitar isso, o próprio Outlook tem o assistente para exportação e importação de regras.
Na versão 2010 siga estes passos:
Clique em Regras
Gerenciar Regras e Alertas
Opções
Logo você visualizará os botões de exportação e importação.

;-)

Post It

Mais uma dica simples e muito útil que acaba caindo no esquecimento: as notas autoadesivas.
Clique no menu Todos os programas > Acessórios > Notas adesivas.
O legal é que, ao desligar o computador, elas não se perdem, ou seja, quando o computador for ligado novamente, elas estarão lá novamente.

;-)

Dica do calendário do Windows 7

Um recurso tão simples que a maioria das pessoas nem sabe que existe.
Ao abrir o calendário do Windows (um clique no relógio que está no canto direito da barra de tarefas), clique uma vez sobre o mês conforme indicado nas figuras abaixo.
Depois clique no ano.
A navegação para períodos muito longos, principalmente em anos, fica muito fácil.
Esta dica sem imagens ficaria muito abstrata.

;-)

Excel e HTML

No momento não vejo utilidade para esta descoberta que aconteceu por acaso, mas acredito que em algum momento, será muito bom conhecer este comportamento do Excel:
Se você digitar o código HTML abaixo e colar numa célula do Excel, somente o texto será exibido.
É como se o Excel interpretasse o código HTML.

;-)

Problemas com conexão via ADO com SQL Server

Um caso curioso que vou deixar registrado aqui, talvez ajude alguém que passe pela mesma situação.
Outro dia, num dos computadores da empresa onde trabalho, um banco de dados Access 2013 que acessa um servidor SQL Server 2008 somente para obter dados de uma View simplesmente começou a exibir linhas duplicadas, por exemplo, se a consulta tivesse 10 registros, era exibido 1 registro repetido 10 vezes.
Depois de muitas tentativas de solucionar o problema, inclusive reparando a instalação do Office 2013 e sem obter sucesso, troquei o provider na string de conexão e .... funcionou!

De: Provider=SQLOleDB
Para: Provider=SQLNCLI

O interessante é que o problema ocorreu em apenas um dos computadores, os outros 3 continuam funcionando com o provider anterior.

;-)

Etapas rápidas no Outlook

Olá amigos!

Para quem utiliza o Outlook no dia a dia como ferramenta de produtividade, segue uma dica muito legal: as etapas rápidas.

Na guia Página Inicial, clique em Criar no grupo Etapas Rápidas e veja as opções disponíveis.

Utilizo muito para mover e-mails para pastas específicas no arquivo *.pst, evitando assim sobrecarregar minha cota no servidor Exchange.

O ganho em agilidade é muito grande e diminui muito a possibilidade de se mover um e-mail para uma pasta errada.

Como sempre, as imagens falam mais do que as palavras, então seguem os prints das telas.

:-)

Site muito bom sobre o Excel

http://guiadoexcel.com.br/

;-)

Alterando o acesso do help do Office para offline.

Este é um detalhe que dá a entender que a Microsoft não quer que você altere e sempre direcione o help para o site deles.
O problema é que nem sempre estamos online e nestas situações o help demora para responder e avisar que não foi possível efetuar a conexão com a internet.
Eu prefiro sempre ter o help offline, mais rápido e prático.
Na figura abaixo onde você pode mudar para offline.

;-)

Recuperando itens apagados no Outlook 2010

É comum apagarmos algum e-mail por engano.
Nas versões 2010 e posteriores, o Outlook permite que se recupere esses itens mesmo que tenham sido apagados da caixa "Excluídos".
Na imagem abaixo, mostro o comando para recuperar.
Detalhe importante é que somente os itens mais recentes (geralmente um ou dois dias) podem ser recuperados.
Não é muita coisa, mas muitas vezes, evita maiores dores de cabeça.

;-)

Cuidado com SELECT TOP n no Access

O Access tem algumas características estranhas e uma delas me chamou a atenção:
Se o SELECT TOP n registros apresentar valores duplicados, todos serão exibidos no resultado, o que em algumas situações pode resultar em problemas no banco de dados.
Nas figuras abaixo, exemplifico o caso.
Interessante que, a mesma instrução no SQL Server 2008 R2 (e acredito que em qualquer versão do SQL Server), retorna apenas 1 registro, como era de se esperar.
Na sequencia, parte do help do Access 2007 comentando esse tipo de situação.

;-)

Retorna um determinado número de registros que se encontrem na parte superior ou na parte inferior de um intervalo especificado pela cláusula ORDER BY. Suponha que você queira os nomes dos primeiros 25 estudantes da turma de 1994:

SELECT TOP 25
FirstName, LastName
FROM Students
WHERE GraduationYear = 2003
ORDER BY GradePointAverage DESC;

Se você não incluir a cláusula ORDER BY, a consulta retornará um conjunto arbitrário de 25 registros da tabela Students que satisfaça a cláusula WHERE.

O predicado TOP não opta por valores iguais.

No exemplo anterior, se as médias de pontuação de grau 25 e 26 forem as mesmas, a consulta retornará 26 registros.

Criar um banco de dados pelo VBA

As vezes é necessário criar um banco de dados durante a execução de um programa.
Apliquei esta solução quando enviava o mesmo banco de dados para clientes diferentes, porém cada um com tabelas específicas.
Não esquecer de marcar a referência no VBA conforme a figura mais abaixo.

;-)


Private Sub CriarBancoDeDados()
 
    Dim objCatalog As ADOX.Catalog
 
    Set objCatalog = New ADOX.Catalog
 
    objCatalog.Create "provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Teste.accdb"

    Set objCatalog = Nothing
 
End Sub

Utiizando funções do Excel em outros aplicativos Office

Um recurso que facilita muito a vida de quem programa em VBA no Microsoft Office é a possibilidade de utilizar recursos de um aplicativo em outro.

Exemplificando, utilizar as funções do Excel no Word através do VBA, veja nas figuras mais abaixo.

Não esquecer de marcar a referência do Excel na versão do Office instalado.

;-)

Conexão ADO em banco de dados Access 2010 com senha

Outro dia precisei fazer uma conexão via ADO num banco de dados criado no Access 2010 com senha.
Utilizei a string de conexão abaixo, mas que sempre informava "Formato de banco de dados desconhecido":

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Banco de Dados1.accdb;Jet OLEDB:Database Password="MinhaSenha"

Em pesquisa na internet, descobri que o problema é na forma como a senha é criptografada no banco de dados, bastando portanto, apenas alterar para o formato antigo, vide imagem.

;-)

Listar tabelas do Access via VBA

Marca a referência:
Microsoft ADO Ext.  2.8 for DDL and Security


Option Compare Database
Option Explicit

Private Sub ListarTabelas()

    Dim cnn As New ADODB.Connection

    Dim catalogo As New ADOX.Catalog
    Dim tabela As New ADOX.Table

    Set cnn = New ADODB.Connection
    cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\northiwnd.mdb"
 
    Set catalogo.ActiveConnection = cnn
 
    For Each tabela In catalogo.Tables
        Debug.Print tbl.Name
    Next


End Sub