Foros del Web

Foros del Web (http://www.forosdelweb.com/)

- Ofimática (http://www.forosdelweb.com/f90/)

- - Macro (http://www.forosdelweb.com/f90/macro-474571/)

jorge1980

20/03/2007 12:19

Macro

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

20/03/2007 12:58

Re: Macro

¿ 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

20/03/2007 13:31

Re: Macro

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

20/03/2007 14:50

Re: Macro

revisa este ejemplo

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

jorge1980

21/03/2007 11:05

Re: Macro

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

22/03/2007 03:28

Re: Macro

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, :adios:

jorge1980

23/03/2007 11:44

Re: Macro

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

Saludos, Jorge

La zona horaria es GMT -6. Ahora son las 00:50.