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 | 
 

 [Resolvido] Validação via VBA

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
rodrigo.inf



Mensagens : 3
Data de inscrição : 15/03/2014

MensagemAssunto: [Resolvido] Validação via VBA   Sab Mar 15, 2014 4:38 pm

Olá, estou com uma dúvida simples, mas não estou conseguindo fazer.

Tenho uma planilha no Excel e eu gostaria de fazer um código em vba que verifica se o usuário digita algo na coluna I e dependendo dos valores em outras duas planilhas ele mostre uma caixa de erro (msgbox).

Ex.:

Se (I5 <>"") E ((J5 = "Pendente") OU (K5 = "Não definido")) Então

MsgBox ""

....

Porém não estou conseguindo colocar a referencia dessas células no vba, indicando que ele deve checar de I5 até I9000 todos os dados que forem digitados manualmente.

Tentei usar Range...tentei fazer um loop (for)...mas não consigo..alguém saberia como fazer isso?


Última edição por rodrigo.inf em Qua Mar 19, 2014 7:13 pm, editado 1 vez(es)
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: [Resolvido] Validação via VBA   Dom Mar 16, 2014 12:52 am

Boa noite!!

Eu não sei se eu entendi, masa tente

Inserr dentro do Módulo de planilha dentro do Editor VB.
Código:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("I5:K5")) Is Nothing Then
 If Target.Cells.Value <> "" Then
  If Target.Cells.Value = "Pendente" Or Target.Cells.Value = "Não definido" Then
    MsgBox "Escreva sua mensagem aqui"
    End If
 Else
    Exit Sub
 End If
 End If
 End Sub

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
rodrigo.inf



Mensagens : 3
Data de inscrição : 15/03/2014

MensagemAssunto: [RESOLVIDO]   Seg Mar 17, 2014 9:06 pm

Alexandre, perfeito! Era isso que eu estava precisando. Só não precisei usar o IF com o Not. Fiz algumas modificações e ficou +- assim:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 Then
ThisRow = Target.Row
If Target.Value <> "" Then
If Range("K" & ThisRow) = "Pendente" Then
MsgBox "mensagem 1"
Target.Value = ""
End If
If Range("H" & ThisRow) = "Nao definido" Then
MsgBox "Mensagem 2"
Target.Value = ""
End If
End If
End If
End Sub
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: [Resolvido] Validação via VBA   Ter Mar 18, 2014 4:40 pm

Bom dia!!

Mas, seu problema foi resolvido?

Att
Voltar ao Topo Ir em baixo
Ver perfil do usuário
rodrigo.inf



Mensagens : 3
Data de inscrição : 15/03/2014

MensagemAssunto: [RESOLVIDO]   Qua Mar 19, 2014 7:10 pm

Foi sim. Problema resolvido!

Obrigado!
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: [Resolvido] Validação via VBA   Hoje à(s) 8:22 pm

Voltar ao Topo Ir em baixo
 
[Resolvido] Validação via VBA
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [RESOLVIDO] Dinâmica de água
» [Resolvido]Problema com terreno acidentado
» [Resolvido] Como saber qual objeto esta mais perto?
» [Resolvido] Criptografar Imagem
» [Resolvido] Como configuro o meu para aparecer as categorias em vez dos topicos?

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: