If Then no VB do Excel

[L. Henrique 179]

// Não sei se estou comentando no lugar certo, então caso não esteja, favor me avisar e mover se necessário. Obrigado.

 

Galera,

Pra falar a verdade, nunca gostei muito de excel, VB e etc, mas esses dias resolvi dar uma chance e me aventurar, porém fiquei com um problema.

No excel eu tenho 3 células e elas são: A1, B1 e C1.
• A Célula A1 fica vazia por enquanto.

• A Célula B1 recebe um valor numérico, ex: 250.

• A Célula C1 recebe outro valor numérico, ex: 786.

O que eu estava tentando fazer é o seguinte: Quando eu digitar a palavra "OK" na célula A1, as células B1;C1 seriam somadas e o resultado da soma apareceria na célula D1.

O que eu tentei foi:

Sub Teste()
   If (Range("A1") = "OK") Then
      Range("B1:D1").Select
      Range("D1").Activate
      ActivateCell.FormulaR1C1 = "=SUM(RC[-2]:RC[-1])"
      Range("B1:D1").Select
   End If
End Sub

Bom, pode me xingar nas respostas Eu estou realmente meio perdido nessa questão, acho que o santo não bate quando o caso é VB. Agradeço a ajuda e se tiverem sugestões melhores de como isso pode ser feito, estarei totalmente aberto.

Obrigado.

 

[KhaosDoctor 242]

E qual é o problema que acontece?