Falha na inserção de função

2024 - VBA & Macros

Post Recente por Fernando Fernandes 13 anos atrás

5 Posts

1 Usuários

0 Reactions

910 Visualizações

RSS

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Estou usando uma macro onde parte do código insere uma formula em uma determinada célula;
w = .Range("A65536").End(xlUp).Row + 1
Z = .Range("A65536").End(xlUp).Row + 5
.Cells(Z, 5).Value = "=SOMA" & "(E8" & ":E" & w & ")"
.Cells(Z, 6).Value = "=SOMA" & "(F8" & ":F" & w & ")"

insere com os dados que preciso ,neste caso =SOMA(E8:F18) ; O problema é que não entra como fórmula , fica aparecendo #NOME? ; ai se eu entrar na célula der um F2 e der enter ,ai vira formula e passa a exibir o resultado da soma.

Qual o problema e a solução?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 17/04/2012 5:25 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Bom dia!!

Claudinei, por favor nos ajude a te ajudar!!

Você tem tem várias guias, vários módulos e além disso, não está obedecendo a regra de postar o arquivo compactado!!!

Tente expor maior detalhes quando postar....

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 17/04/2012 5:34 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Bom dia!!

Exemplos avulsos para que você possa tentar adaptar.

Sub teste()


[G8].Formula = "=Sum(E8:F8)"



End Sub
Option Explicit

Sub sumRng()
    Dim rng    As Range
    Dim tot As Double
   
    With ActiveSheet
        Set rng = .Range(.Cells(1, 10), .Cells(.Rows.Count, 10).End(xlUp))
    End With
    tot = Application.WorksheetFunction.Sum(rng)
    MsgBox tot
End Sub
Dim Lr As Long
Lr = Cells(Rows.Count, "J").End(xlUp).Row + 1
Cells(Lr, "j").Formula = "=SUM(J1:J" & Lr - 1 & ")"

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 17/04/2012 5:40 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Claudinei,

Qdo utiliza :
.Cells(Z, 5).Value = "=SOMA" & "(E8" & ":E" & w & ")"
.Cells(Z, 6).Value = "=SOMA" & "(F8" & ":F" & w & ")"
está "dizendo" para linserir um determinado valor, no caso uma string (texto)

Para inserir uma formula em uma celula deve utiliza .Formula ou .FormulaLocal ou .formulaR1C1
sua linha de codigo deve ficar:
utilizando .FormulaLocal (uso da função na lingua em que esta o aplicativo)
Cells(z, 5).FormulaLocal = "=Soma(E8:E" & w & ")"
utilizando .Formula (uso da função em ingles)
.Cells(z, 5).FormulaLocal = "=Sum(E8:E" & 9 & ")"

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 17/04/2012 5:52 am