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!!