Excel VBA transferir valor de uma celula para outra planilha

[akira_wiraa]

Pessoal, preciso de ajuda com o problema do VBA no excel, estou fazendo um cadastro simples (ainda estou aprendendo), tenho duas planilhas uma pra cadastro de material, e outro de formulario com o que foi cadastrado na outra planilha "CADASTRO", estou conseguindo transferir as informações das celulas da planilha "CADASTRO" para a planilha "FORMULARIO", só que existe uma célula que tem uma fórmula de multiplacação fixa no VBA, ela é a unica que não está transferindo o valor para a planilha "FORMULARIO", aparece 3 situação, a celula de transferencia lá na planilha "FORMULARIO" fica como:VERDADEIRA, FALSA ou VAZIA.

 

Como posso fazer pra resolver esse problema?

Segue fórmula.

 

 

Sub CADASTRAR()
    Dim produtos As ListObject
    Dim novoProduto As ListRow
    Set ws = ActiveSheet
    
    Set produtos = Sheets("FORMULARIO").ListObjects("tbFORMULARIO")
    Set novoProduto = produtos.ListRows.Add
    novoProduto.Range(1, 1) = Sheets("CADASTRO").Range("B4")
    novoProduto.Range(1, 2) = Sheets("CADASTRO").Range("B6")
    novoProduto.Range(1, 3) = Sheets("CADASTRO").Range("B8")
    novoProduto.Range(1, 4) = Sheets("CADASTRO").Range("B12")
    
    ws.Range("B12").Formula = "=B8*B10"
    
    MsgBox "Cadastrado com sucesso"
    Range("B4").ClearContents
    Range("B6").ClearContents
    Range("B8").ClearContents
    Range("B10").ClearContents
    Range("B12").ClearContents
   
End Sub

 

A ideia é transferir o valor da celula B12 para a coluna 4 

 

COLUNA 4 PLANILHA FÓRMULARIO

Célula B12, PLANILHA CADASTRO

[OreiaG]

Anexe o arquivo Excel (imagens não servem). Coloque dados na planilha de origem e dados obtidos ao executar o código na planilha destino. Informe qual o resultado desejado na célula B12.

Lembrando que arquivos com macros precisam ser compactados antes de anexar.

[akira_wiraa]

Itens_baú_motocicletas.xlsx

Boa noite, eu quero transferir o valor da célula B12 da planilha CADASTRO, para a coluna 4 na planilha FORMULARIO

[OreiaG]

1. em CADASTRO!B12 coloque manualmente a fórmula >>> =B8*B10

 

2. exclua as três linhas abaixo do seu código:

    Set ws = ActiveSheet

   ws.Range("B12").Formula = "=B8*B10"

   Range("B12").ClearContents