macro en excel

[nohemibaac]

funcion para contar en excel

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

nesecito una funcion para excel que me cuente dentro de un rango, por ejemplo tengo una columna donde cargo las edades de las personas y quiero saber cuantos personas son mayores de 18 y menores que 40 o bien mayores de 50 y menores de 80. Gracias

Hola, pego tu mensaje por si alguien mas te puede dar otra solución.

espero haber captado tu idea, puse en un libro edades en el rango de C2 a C12, tu cambia el codigo segun necesites:

Código:

Dim fila As Integer
Dim may18 As Integer
Dim may50 As Integer
Dim na As Integer
Dim valor As Integer
Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 22/07/2006 por GSoft
'
    may18 = 0
    may50 = 0
    na = 0
    For fila = 2 To 12
        valor = Val(Range("C" & fila).Value)
        If valor > 18 And valor < 40 Then
            may18 = may18 + 1
        Else
                If valor > 50 And valor < 80 Then
                    may50 = may50 + 1
                Else
                    na = na + 1
                End If
           
        End If
        
    Next
    
    Range("E14").Select
    ActiveCell.FormulaR1C1 = Str(may18)
    Range("E15").Select
    ActiveCell.FormulaR1C1 = Str(may50)
    Range("E16").Select
    ActiveCell.FormulaR1C1 = Str(na)
'
End Sub

si quieres que te mande la hoja de excel, me dices.

Espero te sirva
bye