Insertar Formula en Celda por VB
Publicado por speak121 (2 intervenciones) el 01/10/2006 23:42:52
Hola,
Estoy intentando asignar como valor de un rango de celdas una formula, pero al ejecutar el código en la celda de la hoja de excel se muestra ###### en vez del valor. Si clickeo en la celda me muestra la formula bien introducida, pero no la ejecuta a menos que yo le dé celda por celda al Ok de la barra de introducción de función.
El código que estoy utilizando es el siguiente:
Dim CurCell As Object 'Curcell será la celda activa
i = 1 ' variable para contador
casilla = 10 ' fila desde donde se comienza a aplicar la funcion
Dim Letra(1 To 9) As String ' Son las futuras columnas de la tabla donde se aplica
Letra(1) = "A"
Letra(2) = "B"
Letra(3) = "C"
Letra(4) = "D"
Letra(5) = "E"
Letra(6) = "F"
Letra(7) = "G"
Letra(8) = "H"
Letra(9) = "I"
For Each CurCell In Range(Letra(9) & "10:" & Letra(9) & FilaFinal)
CurCell.Formula = "=SUMA(B" & casilla & ":H" & casilla & ")"
casilla = casilla + 1
Next
Espero haberme explicado lo más claro posible, muchas gracias!!
Estoy intentando asignar como valor de un rango de celdas una formula, pero al ejecutar el código en la celda de la hoja de excel se muestra ###### en vez del valor. Si clickeo en la celda me muestra la formula bien introducida, pero no la ejecuta a menos que yo le dé celda por celda al Ok de la barra de introducción de función.
El código que estoy utilizando es el siguiente:
Dim CurCell As Object 'Curcell será la celda activa
i = 1 ' variable para contador
casilla = 10 ' fila desde donde se comienza a aplicar la funcion
Dim Letra(1 To 9) As String ' Son las futuras columnas de la tabla donde se aplica
Letra(1) = "A"
Letra(2) = "B"
Letra(3) = "C"
Letra(4) = "D"
Letra(5) = "E"
Letra(6) = "F"
Letra(7) = "G"
Letra(8) = "H"
Letra(9) = "I"
For Each CurCell In Range(Letra(9) & "10:" & Letra(9) & FilaFinal)
CurCell.Formula = "=SUMA(B" & casilla & ":H" & casilla & ")"
casilla = casilla + 1
Next
Espero haberme explicado lo más claro posible, muchas gracias!!
Valora esta pregunta


0