16 de julio de 2011

VisualBasic: Pegar formula en una celda


Private Sub CommandButton1_Click()

'1)--Este NO funciona--------------'
Hoja1.Cells(5, 3) = "=SUMA(C1:C4)"

'2)--Este NO funciona--------------'
Worksheets("Hoja1").Range("C6").Formula = "=SUMA(C1:C4)"

'3)--Este SI funciona--------------'
Worksheets("Hoja1").Range("C6").Formula = "=SUM(C1:C4)"

'4)--Este SI funciona--------------'
Worksheets("Hoja1").Range("C7").FormulaLocal = "=SUMA(C1:C4)"

'--Detector de formulas----------'
If Cells(5, 3).HasFormula Then
MsgBox "Si tiene Fórmula"
Else
MsgBox "No tiene Fórmula"
End If

End Sub


En 1) Excel me da error: "#¿NOMBRE?"
En 2) Creo que no detecta la fn "SUMA" y si "SUM" con .Formula
La de eleccion sería la 4).

No hay comentarios:

Publicar un comentario