Função SE (IF) VBA.

Pessoal mais uma vez peço uma ajuda..

meu problema é o seguinte ..

tenho dados em uma celula exemplo (A1) e quero comparar com outra celula (A2)

Se celula A1 for igual a A2 Enviar dados da celula A3.

.Body = Range("A3")
.if Range("A1") = Range("A2")
.send

como que eu consigo fazer isso?? no meu exemplo nao esta dando certo.

Boa noite!!

Tente assim..

Código:

Sub teste()
    If Range("a1").Value = Range("a1").Value Then
      Range("a3").Value = [a2]
    Else
    Exit Sub
    End If
End Sub

Att...

estou tentando fazer uma tela de longin fiz o que segue

Private Sub CommandButton1_Click()
If Uuario = "nomedousuario" And Senha = "senhadousuario" Then
MsgBox "Bem Vindo nomedousuario", vbInformation, "Tela de Entrada"
Unload Login
Sheets("Plan1").Activate
End If

If Usuario = "nomedousuario2" And Senha = "senhadousuario2" Then
MsgBox "Bem Vinda nomedousuario2", vbInformation, "Tela de Entrada"
Unload Login
Sheets("RESUMO").Activate
End If

If Usuario <> "nomedousuario" And Senha <> "senhadousuario" Or Usuario <> "nomedousuario2" And Senha <> "senhadousuario2" Then
MsgBox "Senha ou Usuário Incorreto,Procure o Administrador do Sistema", vbCritical, "Erro"
Usuario.Text = ""
Senha.Text = ""
End If

End Sub


a questão é a seguinte mesmo entrando com usuário e senha correta, a mensagem de erro ainda aparece depois da tela de boa vindas.
alguém sabe com posso resolver isso?

Boa noite!!!

Tem que ter cuidado com a digitação.


A 1º linha

Citação :

If Uuario = "nomedousuario" And Senha = "senhadousuario" Then

Substitua por

Citação :

If Usuario = "nomedousuario" And Senha = "senhadousuario" Then

Caso não resolva retorne ao fórum!

digitei da forma correta, mas a mensagem continua aparecendo após o longin.

Boa noite!!

Mande sua planilha. poste em site gratuito e mande o link para o fórum!!

pessoal, poderiam me ajudar com a funçao SE no VBA, preciso passar para o VBA a seguinte formula do EXcel:

=SE(A1="desconto";B1;C1)


e replicar para todas as linhas da planilha.

=SE(A2="desconto";B2;C2)... =SE(A3="desconto";B3;C3)... e assim por diante creio que tenha que usar o LOOP ou algo assim.


agradeço antecipadamente.

Boa tarde!!

Considerando que os dados comecem em D2.

Código:

Sub Favor_Abrir_Seu_Prorpio_Topico()
    Dim lr As Long
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    Application.ScreenUpdating = 0
   
    Range("D2").Formula = "=IF(A2=""desconto"",B2,C2)"
    Range("D2").AutoFill Destination:=Range("D2:D" & lr)
   
    Application.ScreenUpdating = 1
End Sub

Att