Excel Curitiba

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

Olá Como havia comentado estou postando um código simples com o preenchimento de uma pequena matriz. Isso serve para infinitas rotinas de trabalho em escritórios que manipulam muitas informações em excel ou mesmo em access. Vamos ao código: Sub Matriz() Dim dados(2, 5) As Variant ' declarando a matriz com 2 colunas e 5 linhas(ou 10 posições 2x5) Dim a, b As Integer 'declarando as variáveis para o for Dim valor As Variant  ' também pode ser string 'usando este método primeiro as linhas são percorridas 'ou seja na primeira coluna ele varre todas as linhas e 'depois da 5ª célula ele passa para a segunda coluna   For a = 1 To 2 'percorre as colunas    For b = 1 To 5 'percorre as linhas    valor = Cells(a, b).Value ' variável que armazena o resultado da célula      dados(a, b) = valor  ' preenchendo a matriz com o valor da célula    Next  Next End Sub e Pronto. As variáveis são apenas exemplos que...