Contador de Células preenchidas

Olá Pessoal

As vezes precisamos de um contador simples pra ver quantas células estão preenchidas em uma coluna.
Se a coluna não tiver nenhuma célula vazia no meio dos dados esse contador funcionará perfeitamente.

Vamos a ele:

Sub contador()

Dim a As Integer 'integer só vai até 32767

a = 1 ' atribuir 1 para a variável para que possa ser iniciado

  While Cells(1, a).Value <> "" ' esse código diz: enquando a célula x for diferente de vazia
   a = a + 1 ' soma mais um na varíável que armazena o número de linhas(células)
  Wend ' final da instrução while
   a = a - 1 ' pra descontar o primeiro valor acima

End Sub

Comentários

Postagens mais visitadas deste blog

Trocando pontos por barra - Datas

Olá.. Este post vem atender algumas pessoas que no seu dia a dia precisam utilizar algumas técnicas para trocar pontos por barras em campos de relatórios excel que são importados de sistemas como SAP, Oracle ou similares. Muitas vezes temos relatórios que tem mais de 100 mil registros e o campo vem assim "10.01.2011". Temos como fazer a famosa técnica do CTRL + L, localizando estes registros e substituindo por "/". Porém pode ser que por algum motivo ou outro não dê certo, então aqui vai uma alternativa. Vamos por partes: Para capturar o dia vamos usar uma função do excel que extrai os N caracteres da esquerda de uma célula. como os caracteres referentes ao dia, são os dois primeiros da esquerda, vamos ao exemplo: Para capturar o mês, temos duas alternativas. Como o mês fica no meio da sequência de caracteres não podemos nem usar a função esquerda nem usar a função direita de maneira isolada. Podemos então utilizar as duas funções da seguinte maneira: Na primeira op...

Limpar área de transferência

No desenvolvimento de macros que geralmente precisamos limpar a área de transferência para que não apareça uma chata mensagem de que "Você deseja manter os dados da área de transferência?", penei por um bom tempo para encontrar um código que não precisasse clicar em nenhum botão para seguir com a rotina. Então encontrei este pequeno fragmento que ajudou em muito. Vamos a ele: Application.CutCopyMode = False Basta inserí-lo no seu código que não aparecerá mais a inconveniente janela para ficar clicando.

Convertendo Juro Anual em Mensal e Diário

Olá Na faculdade, no trabalho, no dia a dia, quando vamos pagar contas, ou mesmo só para conhecimento é muito importante saber o que significa um juro quando o convertemos para um período diferente do que os vemos quando anunciado em uma promoção, empréstimo, financiamento ou mesmo em uma compra a prazo em uma loja qualquer. Vamos ver abaixo como fazer esta conversão no excel. Como podemos ver existe a taxa a ser convertida, que no caso é de 216% como taxa anual. Já no exemplo abaixo, existe a conversão para uma taxa diária. Usamos a mesma taxa anual e a convertemos para dia, usando 365 dias para 1 ano. Foi apenas aplicada uma fórmula padrão para conversão de juro composto, que é (((1+i)1/n)-1) para converter para um período menor (ano para mês ou dia) e (((1+i)n/1)-1) para converter para um período maior (dia ou mês para ano ou períodos maiores). Onde i é a taxa de juros, o n é o período.

Excel Curitiba

Pesquisar este blog