Macro

[jorge1980]

Hola!..Necesito hacer un macro que sume valores almacenados en una columna y que por cada suma igual a 40 contabilice, es decir, si la suma de las primeras celdas es igual a 40 el valor colocado en una celda x es igual a 1, si la suma es igual a 80 el valor colocado dicha celda x es igual a 2 y asi sucesivamente.

Me entienden?... De no ser asi, haganmelo saber por favor.

Gracias!

[judoka]

¿ y es necesario que lo hagas con una macro?
te podria servir una columna adjunta con el acumulado y dependiendo de ese valor acumulado poner el valor correspondiente

[jorge1980]

Hola Judoka!...pero como lo haria?...Puedes orientarme, nose mucho de excel.
Lo que quiero es esto:

A B
15
15
10 1
10
10
10
10 2
25
10
5 3

Me entiendes?...Aunque pienso que no fui muy claro en el primer post porque lo hacia acumulativo.

Gracias por todo!

[judoka]

revisa este ejemplo

http://alvarezbello.iespana.es/excel/suma_acumulada.xls

[jorge1980]

Hola nuevamente!....jejejej. Lo que observe en el ejemplo del link que me recomendastes no es lo que busco amigo(a).

Te explico a continuacion tomando como ejemplo la hoja mostrada en el link recomendado.
Suponte que quiero sumar todos los valores mostrados en la columna B y por cada suma que sea igual o mayor a 40 en una celda C, justamente donde el valor sea igual o mayor a 40 se inicialice el contador.

For Example:

Suma: if (B2+B3)>=40 then Valor cera colocado en la celda C3 donde Valor sera contador=1
Suma: if (B4+B5)>=40 then Valor cera colocado en la celda C3 donde Valor sera contador=2 y asi sucesivamente.....you understand now?

thank very much!

[JavierB]

Hola jorge1980

He teclado algunas líneas de código, a ver si te sirven:

Código:

Sub Sumar()
    contador = 0
    total = 0
    Range("A1").Select ' empezar en celda A1
    ' recorrer las celdas hasta encontrar una vacía
    Do While ActiveCell <> Empty
        total = total + ActiveCell ' sumar el valor de la celda
        ' si la suma es igual o mayor a 40...
        If total >= 40 Then
            contador = contador + 1 ' incrementar contador
            ActiveCell.Offset(0, 1).Select ' desplazr a la derecha
            ActiveCell = contador ' escribir contador en la celda
            ActiveCell.Offset(0, -1).Select ' volver a la izquierda
            total = 0 ' inizializar variable total
        End If
        ActiveCell.Offset(1, 0).Select ' siguiente fila
    Loop
End Sub

Saludos,

[jorge1980]

Gracias pana!!!!!!....No sabes cuanto te lo agradezco, pero puedes decirme donde aprendistes a crear macros..puedes recomendarme algunos llink de tutoriales.

Saludos, Jorge