Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Função SE (IF) VBA.

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
AzonBR



Mensagens : 8
Data de inscrição : 20/10/2011

MensagemAssunto: Função SE (IF) VBA.   Qui Out 27, 2011 2:02 am

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.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Função SE (IF) VBA.   Qui Out 27, 2011 2:51 am

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...
Voltar ao Topo Ir em baixo
Ver perfil do usuário
deusueri



Mensagens : 2
Data de inscrição : 25/01/2012

MensagemAssunto: LONGIN   Qui Jan 26, 2012 12:13 am

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?
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Função SE (IF) VBA.   Qui Jan 26, 2012 1:10 am

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!

bom
Voltar ao Topo Ir em baixo
Ver perfil do usuário
deusueri



Mensagens : 2
Data de inscrição : 25/01/2012

MensagemAssunto: Não resolveu   Qui Jan 26, 2012 3:02 pm

digitei da forma correta, mas a mensagem continua aparecendo após o longin.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Função SE (IF) VBA.   Sex Jan 27, 2012 2:13 am

Boa noite!!

Mande sua planilha. poste em site gratuito e mande o link para o fórum!!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
jeversong2014



Mensagens : 13
Data de inscrição : 29/04/2014
Idade : 24

MensagemAssunto: Re: Função SE (IF) VBA.   Ter Abr 29, 2014 5:26 pm

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.


Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Função SE (IF) VBA.   Ter Abr 29, 2014 7:21 pm

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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Função SE (IF) VBA.   Hoje à(s) 10:13 pm

Voltar ao Topo Ir em baixo
 
Função SE (IF) VBA.
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Expressões matemáticas, funções e operadores
» [Resolvido]como usar a função jump to start por codigo?
» [RESOLVIDO]2 funções utilizando a mesma tecla???
» [Vídeo-Aula]Aula 4.1 - Usando funções básicas do draw
» Background - Funções e Variáveis

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: