Este fórum está sendo desativado

[Suenne]

Bom dia,

criei 3 macros com fórmulas para preencher determinadas células, porém ela só funciona a primeira vez, depois ao preencher o formulário e mandar a salvar ela não cola as fórmulas.

São os seguintes códigos:

Código: Selecionar todos

Sub Seq_pavimento()
'
' Seq_pavimento Macro
'

'
    ActiveCell.FormulaR1C1 = "=VLOOKUP([PAVIMENTO],Tabela5[#All],2,FALSE)"
    Range("B12").Select
End Sub

Código: Selecionar todos

Sub Subetapa()
'
' Subetapa Macro
'

'
    ActiveCell.FormulaR1C1 = _
        "=VLOOKUP([DESCRIÇÃO SUBETAPA],Tabela6[[#All],[Descrição]:[Código_descrição]],2,FALSE)"
    Range("F12").Select
End Sub

Código: Selecionar todos

Sub Concatenar()
'
' Concatenar Macro
'

'
    ActiveCell.FormulaR1C1 = _
        "=CONCATENATE([@[CÓD_SUBETAPA]],"" - "",[@[DESCRIÇÃO SUBETAPA]])"
    Range("G12").Select
End Sub

[gfranco]

As duas SUBS descritas acima estão escritas dentro do userform.
Recorte-as e cole-as num módulo.

[gfranco]

Ou insira dois botões no userform e coloque-as dentro dos botões no evento click

[Suenne]

Então Gfranco, eu não consegui identificar onde estou errando.

Porque meu objetivo é que quando clicar no comando adicionar ele faça essas ações também.

[gfranco]

Então coloque esses códigos dentro da execução da rotina que já está no botão e não como uma sub separada.