CONTAR.SI

[CG]

Excel 2007

Hola a todos

En una planilla tengo una columna donde almaceno asteriscos y guiones.
Necesito contar cuántos asteriscos se hallan en dicha columna. Para ello
utilizo la siguiente función: CONTAR.SI(A1:A100,"*"); pero me muestra el
total de celdas, es decir, 100. Supongo que toma el asterisco como caracter
comodín, verificando en realidad si las celdas tienen algún contenido.

¿Cómo hacer para contar las celdas con asteriscos?

Desde ya Muchísimas Gracias

--
Carlos García

[H�ctor Miguel]

hola, !

> En una planilla tengo una columna donde almaceno asteriscos y guiones.

> Necesito contar cuantos asteriscos se hallan en dicha columna.
> Para ello utilizo la... funcion: CONTAR.SI(A1:A100,"*"); pero me muestra el total de celdas, es decir, 100.
> Supongo que toma el asterisco como caracter comodin, verificando en realidad si las celdas tienen algun contenido.
> Como hacer para contar las celdas con asteriscos?

anteponiendo a los caracteres comodin una tilde (p.e.) =contar.si(rango,"~*")
lo puedes comprobar en la ayuda en linea {F1} al preguntar por buscar y reemplazar (comodines)

saludos,
hector.

[Xavier Budet Graco]

Hola "CG", en realidad debería contar todas las celdas con contenido NO numérico. Yo he comprobado que es lo que me ocurre a mi.

Leyendo la ayuda de Excel:
>>>>>>>>>>>>>>>>>>
=CONTAR.SI(A2:A7;"*") Número de celdas que contienen cualquier texto en las celdas A2 a A7

>>>>>>>>>>>>>>>>>>

O sea que el asterísco lo utiliza como comodín... No sé como utilizarlo en su mismo sentido y si esto es posible.

--
Saludos,

Xavier
j.b...@MACcgac.es
Quitar MAC para contestar. Gracias.

"CG" <C...@discussions.microsoft.com> escribió en el mensaje news:0DFB1AD6-49A8-419C...@microsoft.com...

[jason.valverde]

Hola CG, Puedes utilizar este código de VBA, pruébalo. Está basado en una
referencia relativa si tienes una columna fija con los * sería que agregues
un línea de Range para que siempre se vaya a la primera posición e inicie el
conteo.

-----------------------------------------------------------------------------
Sub contar_asteriscos()

Dim contador As Integer

contador = 0

Do Until ActiveCell = ""

If ActiveCell.Value = "*" Then

contador = contador + 1

ActiveCell.Offset(1, 0).Activate

Else

ActiveCell.Offset(1, 0).Activate

End If

Loop

ActiveCell.Value = contador

End Sub

-------------------------------------------------------------------------------

"CG" escribió:

[Jason Valverde]

Sub contar_asteriscos()

Dim contador As Integer

contador = 0

Do Until ActiveCell = ""

If ActiveCell.Value = "*" Then

contador = contador + 1

ActiveCell.Offset(1, 0).Activate

Else

ActiveCell.Offset(1, 0).Activate

End If

Loop

ActiveCell.Value = contador

End Sub

"CG" <C...@discussions.microsoft.com> escribió en el mensaje de
noticias:0DFB1AD6-49A8-419C...@microsoft.com...