Bom dia!!
Olá seja bem vindo, Alexandro!!!

Por favor Leia os links abaixo, obrigado!!!....Anexe seu arquivo modelo, COMPACTADO!!!

Nossas Regras
viewtopic.php?f=7&t=203

Marcar Tópico como Resolvido e Agradecimento
viewtopic.php?f=7&t=3784
Lembre se de usar nossa base de dados (Pesquisa) e a Biblioteca

Como Anexar Aquivos Compactados
viewtopic.php?f=7&t=3841

Abrir Novo Tópico
viewtopic.php?f=7&t=5317
Att

Pessoal, segue planilha anexada.

Eu preciso que ao inserir um valor na célula C6 (BOI QTD>) o mesmo seja multiplicado por 2 na célula G6 (DIANTEIRO). Até aí tudo bem, porém, se nenhum valor for inserido na célula C eu possa inserir um valor manualmente na célula G6. Não posso usar fórmula na célula G6 devido a essa entrada de valor manualmente, sendo assim, é possível criar esse critério no VBA?

Grato desde já,

Alexandro.

Experimente:
Copie o codigo abaixo e cole na folha de codigo da pLan2
(ALt=F11 para abrir o editor VB) selecione Plan2(Plan2) com dois clicks e cole o codigo

Private Sub Worksheet_Change(ByVal Target As Range)
'By Reinaldo
Target.Select
Application.ScreenUpdating = False
If Not Intersect(Target, Range("C6:C20")) Is Nothing Then
Cells(Target.Row, "G") = Target.Value * 2
End If
Application.ScreenUpdating = True
End Sub

Reinaldo,

Obrigado pela ajuda. Funcionou perfeitamente. Tentei mudar o seu código para que que a células I e K ficassem com o mesmo critério, mas não consegui. Alterei a linha: Cells(Target.Row, "G";"I";"K") = Target.Value * 2 Porém deu erro.

Abraço.

Consegui. Copiei a linha e mudei a coluna. Valeu!!!

Boa noite!!

Lembre se de marcar sua postagem como resolvida!!

Att