Título del mensaje: CONTAR

¿Alguien podría ayudarme con esto?. Lo tengo montado con fórmulas pero me gustaría optimizarlo con gráfico....

Ejemplo:

Info en la la columna A (A1 es cabecera)

Me gustaría conocer cuantas celdas son igual a "peras"

Mi intento:

Código:

Sub Conteo() Dim PERAS As Long Dim UltimaFila As Long Dim lngColumna As Long, lngFila As Long lngColumna = 1 lngFila = 2 UltimaFila = Cells(65536, 1).End(xlUp).Row For n = lngFila To lngUltimaFila     If Cells(lngFila, 1) = "peras" Then     PERAS = PERAS + 1     End If   Next n End Sub

No consigo que funcione. ¿Sería muy complicado añadir la condición (info en columna B) de que la compute sólo en el caso de que figure "sana"?

Muchas gracias.

Título del mensaje: Re: CONTAR

Hola


no entiendo muy bien, es mas no se por q no te funciona el codigo q tenes, si pones el error q te sale nos podemos guiar mejor.

ay realize unos cambios no se si tienen algo q ver pero bueno, ojala funcione.

Código:

Sub Conteo() Dim PERAS As Long Dim UltimaFila As Long Dim lngColumna As Long, lngFila As Long PERAS =0 lngColumna = 1 lngFila = 2 UltimaFila = Cells(65536, 1).End(xlUp).Row For n = lngFila To lngUltimaFila     If Sheets("Hoja1").Cells(lngFila, 1) = "peras" Then     PERAS = PERAS + 1     End If   Next n End Sub

Título del mensaje: Re: CONTAR

Muchas gracias.

Por tu post he descubierto que tenía algún fallo.

No obstante no es capaz de encontrar la cadena "peras". Mejor dicho, la encuentra siempre.

En fin, sigo peleando.

Título del mensaje: Re: CONTAR

Hola,

No se si ya te diste cuant pero cuando comparas para saber si la celda es peras simpre preguntas por la ubicacion de la celda en lngFila que es 2, cambia este por n, de esta manera te compara cada fila, me imagino que en la fila 2 tenes peras y por eso siempre te encuentra peras.

Tambien podes omitir del ciclo lngFila y poner directamente 2

te muestro los cambios

Código:

Sub Conteo() Dim PERAS As Long Dim UltimaFila As Long Dim lngColumna As Long, lngFila As Long PERAS =0 lngColumna = 1 lngFila = 2 UltimaFila = Cells(65536, 1).End(xlUp).Row For n = 2 To lngUltimaFila     If Sheets("Hoja1").Cells(n, 1) = "peras" Then         PERAS = PERAS + 1     End If   Next n End Sub

Suerte

Título del mensaje: Re: CONTAR

Mil gracias.

Creía que estaba aumentando el valor de lngFila a cada paso por el bucle. Lo entendí mal.

Ahora va fenomenal.

Título del mensaje: Re: CONTAR

para estas cosas simples y estándar no hace falta realizar programas, ya que el excel tiene funciones para ello.

En este caso se tiene que utilizar la función
=contar.si(rango , "peras")

y debuelve el numero que hay.

Título del mensaje: Re: CONTAR

Excelente, muchas gracias , me funciono con ; entre el rango y las peras