Excel - Suma total de registros

   
Vista:

Suma total de registros

Publicado por B3T0 (1 intervención) el 19/11/2010 18:38:16
hola a todos, Tengo este código el cual me despliega en una etiqueta que tengo en mi User form los duplicados encontrados en mi rango "state"
Pero ahora necesito que me sume el total de registros encontrados se saben cuál es la función para eso, alguien me puede acomodar mi código, gracias.
-------------------------------------------------
Sub RemoveDuplicates1()
Dim AllCells As Range, Cell As Range
Dim NoDupli As New Collection
On Error Resume Next
For Each Cell In Range("State")
NoDupli.Add Cell.Value, CStr(Cell.Value)
Next Cell
On Error GoTo 0
For Each Item In NoDupli
UserForm1.ListBox1.AddItem Item
Next Item
UserForm1.Label1.Caption = _
"Archivos Unicos: " & NoDupli.Count
UserForm1.Show
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder