Código VBA para formular uma célula de entrada se o valor selecionado de uma lista de Validação de Dados atender a uma condição

Question

Eu preciso de ajuda com o código VBA. Veja abaixo como é a minha planilha, mas basicamente funciona assim:

1. A planilha é toda sobre como inserir orçamentos e captar os gastos

2. A coluna A é uma lista de validação de dados, que é a lista de itens para os quais tenho orçamentos. Neste exemplo, minha lista inclui maçãs, laranjas, pêras e bananas

3. Para cada item selecionado, o usuário insere seu orçamento alocado na Coluna B (Orçamento) e as colunas Gastos / Remanescentes são formuladas. Então, a coluna B é uma coluna de ENTRADA

O problema que tenho é se o usuário seleciona Bananas, não há orçamento necessário, por isso, quero formular a Coluna B (a coluna Orçamento, que é uma coluna ENTRY) para ler automaticamente $ 0,00. Isso indicaria ao usuário que não há orçamento necessário.

Qualquer ajuda seria apreciada

Fruit    Budget     Spend   Remaining
APPLES   $100.00    $-       $100.00 
ORANGES  $150.00    $-       $150.00 
PEARS    $200.00    $-       $200.00 
BANANAS         $-       $-   

    

Answer 1

Eu não acho que qualquer código VBA seja necessário para a coluna Orçamento, já que uma fórmula IF simples pode resolver o problema.

Você usa essa fórmula para a coluna de orçamento.

=IF(A2="Apple",100,IF(A2="Orange",150,IF(A2="Banana",0,IF(A2="Pear",120,"No Budget"))))

NB: Quando você seleciona Banana, Formula colocará 0 e, como a coluna de gastos tem outra fórmula, vai cuidar do próximo passo.

Além disso, "Sem Orçamento" aparecerá na Coluna de Entrada se nenhum dos nomes estiver na coluna A, você pode substituí-lo por BLANK SPACE também

Agora sobre a coluna Spend (Coluna C). Ele precisa da fórmula abaixo para calcular mais com base no nome da fruta na coluna A e no valor do orçamento na coluna B.

=IF(AND(A2="Apple",B2>0),B2+100,IF(AND(A2="Orange",B2>0),B2+150,IF(AND(A2="Pear",B2>0),B247+120,"No Budget")))

Espero que isso ajude você.