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

Question

Preciso de ajuda com o código VBA. Veja abaixo como é minha planilha, mas essencialmente funciona assim:

1. A planilha trata de inserir orçamentos e capturar os gastos

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

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

O problema que tenho é que se o usuário selecionar Bananas, não há orçamento necessário, então quero formular a Coluna B (a coluna Orçamento que é uma coluna ENTRADA) 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

Não creio que nenhum código VBA seja necessário para a coluna Orçamento, pois uma simples fórmula IF pode resolver o problema.

Você usa esta 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"))))

Observação: Ao selecionar Banana, a Fórmula colocará 0, e como a coluna Gastos possui outra Fórmula, cuidará do próximo passo.

Também,"Sem orçamento"aparecerá na coluna de entrada se nenhum dos nomes estiver na coluna A, você também pode substituí-lo por ESPAÇO EM BRANCO

Agora sobre a coluna Gastos(Coluna C). É necessária a fórmula escrita abaixo para calcular ainda 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ê.