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