ola!
gostaria de uma ajuda com meu código. ele funciona como eu quero mas a célula no qual ele esta alocado fica com o nome "#nome?" por nao entender a função soma.
segue dados abaixo:
Sub variable_row()
'
' Variable ROW: Adiciona uma nova linha de controle ao modulo de gastos variaveis.
'
Dim celula As String
Dim resumo As String
Dim plan1 As String
Dim ini1 As String
Dim fim1 As String
Application.ScreenUpdating = False
'
'inserção de nova coluna na aba detalhe e coleta das posiçoes variaveis
Sheets("1").Select
plan1 = ActiveSheet.Name
Cells.Find(What:="trigger", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Select
Selection.EntireColumn.Insert
ActiveCell.Offset(1, 0).Select
ini1 = ActiveCell.Address(0, 0)
ActiveCell.Offset(30, 0).Select
fim1 = ActiveCell.Address(0, 0)
'inserção de nova linha na aba resumo e criação da formula soma
Sheets("RESUMO").Select
plan = ActiveSheet.Name
Cells.Find(What:="GASTOS VARIAVEIS", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert
ActiveCell.FormulaR1C1 = "New"
celula = ActiveCell.Address
ActiveCell.Offset(0, 1).Select
'inicio problema de formula ilegivel
ActiveCell.FormulaR1C1 = "=soma(" & plan1 & "!" & ini1 & ":" & fim1 & ")"
ActiveCell.Replace What:="'", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.Find(What:="'", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
'cofigo segue ok apartir daqui
Sheets("1").Select
Cells.Find(What:="trigger", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = "=" & plan & "!" & celula
Sheets("resumo").Select
'
Application.ScreenUpdating = False
End Sub
ressalto que se eu clicar na célula problemática, clicar na barra de formulas e pressionar Enter ela funciona como deveria. todavia eu não gostaria de realizar essa etapa para cada nova linha criada.
desde ja agradeço a ajuda,
Sales S junior
Postado : 18/12/2016 12:19 am