VBA - Como encontrar a última linha preenchida nuna coluna?

Esta é mais uma daquelas que tem mil e uma maneiras de fazer, vou mostrar apenas uma delas.
Quem programa em VBA, principalmente nos casos de inserção de dados, sempre precisa saber onde está o último dado da coluna para gravar o novo valor na célula logo abaixo.
Como descobrir qual é a última célula preenchida de uma coluna?
Veja a função abaixo:

Function ultima_linha()
Dim linha As Long
linha = 2
Do While linha <> 0
linha = linha + 1
Loop
ultima_linha = linha
MsgBox ultima_linha
End Function

"Trocando em miúdos"...
Enquanto o tamanho do texto da célula for maior que zero (o que significa que a célula está preenchida com algum valor), incremente 1 no contador (que se chama "linha") e execute o comparativo na próxima linha.
Como inicia em 2, no momento em que o tamanho do texto da célula for igual a zero, o procedimento é encerrado e a linha em branco é a que o contador indicar.

:-)

Comparando planilhas

É comum comparar planilhas cujos cabeçalhos de linha ou coluna são iguais, mas os dados referem-se a períodos diferentes.

Uma forma rápida de se fazer isso, é abrir as duas planilhas e usar CTRL + TAB se estiverem em pastas diferentes ou CTRL + PgDown/Up se estiverem na mesma pasta.

Para facilitar ainda mais, o Excel oferece o recurso de comparar lado a lado no menu "Janela".

A opção "rolagem sincronizada" torna a tarefa ainda mais fácil e rápida.

Por onde já passei e trabalhei...

Números ordinais - cultura inútil ou não???

Estava pensando, quando chegasse à publicação da 200ª dica, como escrever ou ler "200ª"?
Segue abaixo:

1º = primeiro
2º = segundo
3º = terceiro
4º = quarto
5º = quinto
6º = sexto
7º = sétimo
8º = oitavo
9º = nono
10º = décimo
20º = vigésimo
30º = trigésimo
40º = quadragésimo
50º = qüinquagésimo
60º = sexagésimo
70º = septuagésimo
80º = octogésimo
90º = nonagésimo
100º = centésimo
200º = ducentésimo
300º = trecentésimo
400º = quadringentésimo
500º = qüingentésimo
600º = seiscentésimo ou sexcentésimo
700º = septingentésimo
800º = octingentésimo
900º = nongentésimo ou noningentésimo
1000º = milésimo

de 2000 em diante, lê-se o dois milésimo ou o segundo milésimo e assim por diante.

Assim, seu eu estiver vivo ainda na 3367ª dica, poderei dizer tranquilamente:

"Terceiro milésimo, trecentésima sexagésima sétima dica!"...

Inútil?
Que tal criar uma função para retornar o ordianal a partir do cardinal?
Mais inútil ainda?
Alguma utilidade deve ter!

;-)

Soma rápida

Não sei já se postei esta dica, mas se não... ai vai:

Para obter rapidamente a soma de um intervalo, basta selecioná-lo e conferir o valor na barra de status.

Outras opções estão disponíveis, clique com o botão direito sobre mesma barra de status para conferir o que está disponível.

O bom é que, mesmo aplicando o Auto Filtro, os valores são calculados somente sobre os dados que estão visíveis.

;-)

Definindo o caminho (VB/VBA)

Para evitar a alteração do caminho de um arquivo dentro de um código toda vez que o aplicativo muda de pasta, basta usar um recurso muito útil do VB ou do VBA: o Path.
No Excel: ThisWorkbook.Path
No Access: CurrentProject.Path
No Word: ThisDocument.Path
No VB6: App.Path

Assim, pode-se mudar o aplicativo de pasta sem ter de alterar o código em função dessa mudança.

;-)

Copiar rapidamente planilhas dentro da mesma pasta

Antes de mais nada, vamos esclarecer uma coisa: uma PASTA contém várias PLANILHAS. A maioria das pessoas utiliza o termo PLANILHA para se referenciar à uma PASTA. Isto era verdadeiro na época das primeiras planilhas que trabalhavam uma planilha por arquivo. Como atualmente todos os programas já manipulam tranqüilamente várias planilhas no mesmo arquivo, é bom ter o conceito bem fixado na mente para não fazer confusão na hora de trabalhar.Bem, vamos então à dica.

Para copiar uma planilha dentro da mesma pasta, o procedimento usual é clicar com o botão direito em cima da planilha, selecionar "Mover ou Copiar", selecionar o local onde ela vai ficar, marcar a opção "Criar uma cópia" e depois clicar em OK.

A operação é simples quando se precisa copiar uma ou duas planilhas, mas à medida em que a quantidade de planilhas vai aumentando, a demora e o aumento dos cliques no mouse aumentam proprocionalmente.

Aí é que entra a tecla CTRL (Control) para facilitar a vida do usuário.

Basta mantê-la pressionada enquanto se arrasta a planilha de lugar como se fosse movê-la e uma cópia será criada. Depois é só renomear. Muito útil quando se controla coisas do tipo "uma planilha para cada dia do mês" ou "uma planilha para cada mês do ano".

Volto a repetir, quanto mais agilidade o usuário tiver em operações simples, mais tempo ele terá para focar a análise dos dados, o que na minha opinião é muito mais importante.

;-)

Cursos multimídia de Excel

Para quem gosta de aprender em casa, com tranquilidade e nas horas vagas, algumas sugestões:

http://www.totaltraining.com/prod/microsoft/excel2007_ess.asp

http://movielibrary.lynda.com/html/modListing.asp?pid=144

http://www.001shop.com.br/lojas/editoraneo.com.br/produtos.asp?produto=69&categoria=10&inf=10&a1=Office&a2=%3A%2E+Office+2000

http://www.anasoft.com.br/product_info.php?cPath=25&products_id=44

Os dois primeiros em inglês e os dois seguintes em português, todos boas opções para o Excel e também para outros aplicativos.

;-)

Senha do VBA no Excel

Apesar de duvidar da dica postada outro dia no site da ForumAccess, me dei ao trabalho de baixar e instalar o Open Office (http://www.openoffice.org) para conferir:
O OpenOffice abre as planilhas do Excel e mostra todo o código como comentário, independente dele estar protegido por senha ou não.
Façam o teste e confiram também!
;-)

Editor de texto versátil para programação

Indicação de um amigo e que está sendo útil na programação.O Notepad++ tem muitas facilidades para quem programa, pois geralmente o editor de código não é lá grande coisa em termos de recursos.

Sinto muita falta de zoom no editor de código do VB6 e VBA por exemplo. Numeração de linha então, é algo muito útil que já deveria ter aparecido desde a primeira versão.

O legal deste editor é que basta mudar a linguagem (SQL, VB, HTML, etc) que ele muda as cores das palavras-chave, facilitando a visualização e entendimento.

Para ter uma idéia de como funciona, só usando mesmo. Basta baixá-lo em http://notepad-plus.sourceforge.net/br/site.htm.

O melhor de tudo: é FREE!

Excel 97 Developer's Kit'

Eu nunca tinha visto este livro, mas a partir de uma dúvida de um colega que surgiu no grupo de discussões do ForumAccess, resolvi pesquisar na internet.
Pelo conteúdo, nota-se que não é coisa para principiantes nem para intermediários.
É assunto para experts mesmo.
O livro trata entre outras coisas, da criação de XLL que seriam as DLL's do Windows escritas em C ou C++ para o Excel.
Não vi para as versões posteriores, mas acredito que esse tipo de desenvolvimento já esteja integrada com o Visual Studio.
É um assunto muito específico, desenvolvimento profissional mesmo, visto que as DLL ou XLL têm uma segurança muito maior do que os suplementos (XLA) no que se refere à proteção do código.

;-)

Uma imagem para matar saudades...

O que existe em "Colar Especial"

Muitas vezes eu vejo nos grupos de discussão, colegas perguntando como converter colunas em linhas e vice-versa, como copiar comentários, etc.
Nas opções "Colar Especial" tem muitos recursos interessantes e que passam despercebidos.
Por exemplo, no grupo "Operação" podemos fazer as 4 operações básicas diretamente na célula de destino a partir de um número copiado de outra célula.
Vejam outro exemplo ao lado: eu quero copiar a região A1:A8 (notem que a célula A3 está em branco) e colar na região B1:B8 onde já existe a palavra "Branco" na célula B3. Seleciona-se o "Colar Especial > Ignorar em branco".
O resultado está aí ao lado na coluna B.
É o que eu sempre digo: raros são os usuários que usam 50% dos recursos que o Office oferece. Para a grande maioria, o Word 6 é suficiente para escrever suas cartas e o Excel 5 sobra para fazer as planilhas básicas.
Longe de querer ser irônico, apenas constato que foco principal do pacote Office que é "Produtividade" acaba se perdendo em meio à tantas opções oferecidas.

Ainda sobre nome de células

Pode parecer óbvio demais, mas sempre é bom lembrar que não é possível dar um nome que seja uma referência à uma célula.
Por exemplo, não se pode nomear uma célula como IV4 pois no Excel existe essa célula (é a 4ª linha da última coluna à direita).
Cuidado maior deve ser tomado com o Excel 2007, pois como a última coluna à direita passa a ser XFD corremos o risco de atribuir um nome do tipo DIA10 ou ANO2007 e os mesmos não serem aceitos.
Basta apenas um pouco de atenção para não perder tempo procurando no help o porquê do "erro".

;-)

Criando nome de células automaticamente

Esta dica eu peguei num livro do John Walkenbach, mas achei muito interessante e vou repassar aqui.

Imagine que na imagem ao lado, você precise nomear as células B1 a B12 com os respectivos nomes dos meses. O mês por extenso já está na coluna A nas linhas correspondentes.

Basta selecionar a região toda, clicar em "Criar a partir da seleção" na faixa de opções e depois selecionar "Criar nomes com base em valores na: > coluna esquerda".

A utilidade dos nomes em células já citei em vários posts anteriores, facilita sobremaneira a criação e controle sobre as referências nas fórmulas.

;-)

Separar nome e sobrenome

Usar fórmulas no Excel é algo muito pessoal, cada um inventa uma combinação e sempre chega-se ao resultado satisfatório.

Imaginemos o meu nome PAULO KAZUMITI na célula A1 e que eu precise colocar o sobrenome numa célula separada (tudo bem, Kazumiti é meu segundo nome, mas vamos usar como exemplo...rsrs).
Primeiro passo: substituir o espaço existente entre os dois nomes por um delimitador que o Excel reconhece na importação de dados, como por exemplo, vírgula, ponto-e-vírgula ou outros.

=SUBSTITUIR(A1;" ";",").
Segundo passo: copiar e colar > especial > valores na mesma célula ou em outra célula.
Finalmente, em outra célula clicar no menu Dados > Texto para colunas e aí é só seguir o passo a passo de importação de texto.
Muito simples e obviamente deve haver outras maneiras de ser fazer isso.
Ah, antes que alguém pergunte qual a utilidade disto, é comum em mala direta utilizar o sobrenome na frente do nome.

;-)

Mais um programa para conferir arquivos baixados

Dia desses estava à procura do MS Visual Basic Express para baixar e depois de achá-lo, vi que tinha um código para conferir a integridade do arquivo.

O site da Microsoft não dá maiores detalhes, mas o Google sempre ajuda e assim cheguei ao HashCalc que calcula o CRC e também o MD5 citado num post anterior.

Seguem os links:
Para o MS VB Express: http://msdn.microsoft.com/vstudio/express/support/install/
Para o HashCalc: http://www.slavasoft.com/hashcalc/index.htm

;-)

Como copiar as configurações de página

O meio mais fácil de copiar todas as configurações de página de uma planilha para outra:

- Abra a planilha "origem";
- Mantenha a tecla CTRL pressionada e selecione a planilha "destino"
- Com as duas planilhas selecionadas, clique no menu Arquivo > Configurar página e OK.
Pronto.
Para desagrupar as planilhas, clique com o botão direito em uma delas e selecione a opção correspondente.

;-)

Surpresas nos aplicativos - os famosos "Easter Eggs"

Quem se lembra do simulador de vôo no Excel 97 e seu belíssimo colorido?
Ou o pinball no Word?
O Excel 2000 tinha uma corrida de carros muito interessante...
Para quem quiser "matar" a curiosidade, segue um link com as instruções para conseguir acessar os "ovos de Páscoa" dos aplicativos, não só da Microsoft, mas da maioria dos aplicativos das grandes empresas.
Milhares de easter eggs para se divertir.

http://www.eeggs.com/tree/154.html

Aproveitando melhor a tela do Office 2007

O que antes se chamava "Menu", agora se chama "Guias".
O que era barra de comandos, agora chama-se "Faixa de opções".
Independente da nomenclatura, a nova Faixa de Opções, ficou um pouco mais larga que a antiga barra de comandos e quem trabalha numa resolução de 800 x 600 vai sentir que a área do documento diminuiu um pouco.
Uma dica é dar um duplo clique nas guias (antigo menu) que a faixa de opções some. Duplo clique de novo e ela volta a aparecer.
Trabalhando no Excel em 1024 x 768, temos um acréscimo de 6 linhas na tela.
Para quem gosta de trabalhar com teclas de atalho como eu, esse recurso é uma "mão na roda", pois a área visível do documento aumenta consideravelmente e na minha opinião, facilita o trabalho.