Macro formula para toda una columna

13/02/2013 - 20:07 por davo | Informe spam
¡ Hola que tal !

Aqui consultando de nuevo!, les comento:

Tengo una columna (B) que solo acepta hasta 11 digitos (12345678901) de esos digitos se le da un valor en especial a cada uno para poder multiplicar es decir:

Valor en especial 5 4 3 2 7 6 5 4 3 2
Valor en celda 1 2 3 4 5 6 7 8 9 0 1 (el ultimo numero no se toca)

Los valores de celda se multiplican por el numero especial que esta en su posicion y despues se sumaria el resultado de estos, es decir quedaria: (5*1)+(4*2)+(3*3)+(2*4)+(7*5)+(6*6)+(5*7)+(4*8)+(3*9)+(2*0) y que el resultado me lo refleje en la siguiente columna (C).

Lo que relice fue una formla pero fue de arrastrar hasta las ultimas celdas de la misma columna, lamentablemente me salio un recuadro donde dice que los "recursos son insuficientes", por lo que me veo con la necesidad de hacer una macro, pero que esta macro se realice cada vez que se ingresa digitos en la columna B.

No se programar y si alguien me pueda ayudar se lo agradeceria

Saludos
 

Leer las respuestas

#1 dave
16/02/2013 - 21:18 | Informe spam
davo escribió el 13/02/2013 20:07 :
¡ Hola que tal !

Aqui consultando de nuevo!, les comento:

Tengo una columna (B) que solo acepta hasta 11 digitos (12345678901) de esos
digitos se le da un valor en especial a cada uno para poder multiplicar es
decir:

Valor en especial 5 4 3 2 7 6 5 4 3 2
Valor en celda 1 2 3 4 5 6 7 8 9 0 1 (el ultimo numero no se toca)

Los valores de celda se multiplican por el numero especial que esta en su
posicion y despues se sumaria el resultado de estos, es decir quedaria:
(5*1)+(4*2)+(3*3)+(2*4)+(7*5)+(6*6)+(5*7)+(4*8)+(3*9)+(2*0) y que el resultado
me lo refleje en la siguiente columna (C).

Lo que relice fue una formla pero fue de arrastrar hasta las ultimas celdas de
la misma columna, lamentablemente me salio un recuadro donde dice que los
"recursos son insuficientes", por lo que me veo con la necesidad de
hacer una macro, pero que esta macro se realice cada vez que se ingresa digitos
en la columna B.

No se programar y si alguien me pueda ayudar se lo agradeceria

Saludos


Con este procedimiento se ejecuta cuando hagas algún cambio en cualquier celda de la columna B de la hoja donde coloques el procedimiento.


Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
MsgBox "Se modifico columna B", vbOKOnly, "Prueba"

End Sub

Preguntas similares