Usuário com melhor resposta
COMO CONTAR REGISTROS?

Pergunta
-
Encontrei neste forum um contador de Registro que não funcionou mto bem. alguém pode me passar um "bisú" de algum contador de reg.
segue o contador que eu estou usando.
Sub contar_Registro()
Dim NumeroRegistro As Integer
Dim i As Integer
For i = 1 To 65536 > NúmeroMáximodeLinhas
If Worksheets("Plan1").Cells(i, 1).Value > 0 Then
numeroRegistros = numeroRegistros + 1
End If
Next iMsgBox "Número de Registros:" & numeroRegistros, vbOKOnly, "Número de Registros em: " & Now()
End Sub
ele apresenta o dia a data menos a quantidade de registros, eu loquei este código dentro da Plan1, fiz correto?
Obrigado galera
Respostas
-
Galera!!
Encontrei um comando ilário mto bom para contar registros, só tem um pequeno problema...
Private Sub UserForm_Initialize()
Label10 = Application.WorksheetFunction.Count(Plan1.Columns(1))End Sub
...o único problema é que só mostra a quantidade quando fecho e em seguida abro a interface.
pq?
Valeu!!
Luiz
Todas as Respostas
-
Galera!!
Encontrei um comando ilário mto bom para contar registros, só tem um pequeno problema...
Private Sub UserForm_Initialize()
Label10 = Application.WorksheetFunction.Count(Plan1.Columns(1))End Sub
...o único problema é que só mostra a quantidade quando fecho e em seguida abro a interface.
pq?
Valeu!!
Luiz
-
-
-
-
Olá, gostaria de aproveitar este post, o qual julgo muito bom, para perguntar:
Como eu faria para os valores de uma coluna específica em um vetor, considerando que eu irei guardar o primeiro, e só irei guardar o segundo se este for diferente do anterior. Cs entenderam?
Eg.
Sponsor
------------
MO
MO
BO
FO
MO
BO
Acima podem ver que somente tres valores diferentes. Gostaria de guardá-los em um Array e orderná-los. É possível?
A próposito. Não conheço muita coisa de VB/VBA.
Grato.
-
-
Desculpem, realmente comi algumas letras.
O que eu preciso é, quebrar uma planilha em outras menores, tomando como base uma de suas coulunas. Por isso, queria ler uma dessas colunas, guardar os resultas em um Array, sem repetições. Para depois, não sei, talvez passar como parâmetro para uma funcão que vai criar novas planilhas quebradas, identicas a original, só dividas por area. Seria um fitro, só que quebrado em várias planilhas, quantas forem necessárias.
E agradeço muito o interesse em um esclarecimento.
-
estou com 1 problema, tenho um form com textbox onde digito algo e uma listbox que deve apresentar todos dados iguais ao digitado no textbox e que DPRONTO seja nulo.
Ex: colunaA "COD" colunaB "NOME" colunaC "PLACA" Coluna "C" DPRONTO
1 joão 44444 30-05-2008
2 joão 44444
3 joão 44444 31-05-2008
ao sair do textbox deve carregar o lisbox com os seguintes dados 44444 ou seja só deve aparecer um resultado
obrigado
-
Olá José...
Abra um post novo ao invés de usar um post antigo..
Não entendi direito...Quantos textbox você tem??.Você quer adicionar o que foi digitado no text em sua list??
Porque seu list tem 4 colunas, você precisaria de três text(já que a última é nula) para passar cada um para sua respectiva coluna do list..
Até..
-
-