Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 [Resolvido] Validação via VBA

Ir para baixo 
2 participantes
AutorMensagem
rodrigo.inf




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

[Resolvido] Validação via VBA Empty
MensagemAssunto: [Resolvido] Validação via VBA   [Resolvido] Validação via VBA EmptySáb 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)
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

[Resolvido] Validação via VBA Empty
MensagemAssunto: Re: [Resolvido] Validação via VBA   [Resolvido] Validação via VBA EmptyDom 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
Ir para o topo Ir para baixo
rodrigo.inf




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

[Resolvido] Validação via VBA Empty
MensagemAssunto: [RESOLVIDO]   [Resolvido] Validação via VBA EmptySeg 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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

[Resolvido] Validação via VBA Empty
MensagemAssunto: Re: [Resolvido] Validação via VBA   [Resolvido] Validação via VBA EmptyTer Mar 18, 2014 4:40 pm

Bom dia!!

Mas, seu problema foi resolvido?

Att
Ir para o topo Ir para baixo
rodrigo.inf




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

[Resolvido] Validação via VBA Empty
MensagemAssunto: [RESOLVIDO]   [Resolvido] Validação via VBA EmptyQua Mar 19, 2014 7:10 pm

Foi sim. Problema resolvido!

Obrigado!
Ir para o topo Ir para baixo
Conteúdo patrocinado





[Resolvido] Validação via VBA Empty
MensagemAssunto: Re: [Resolvido] Validação via VBA   [Resolvido] Validação via VBA Empty

Ir para o topo Ir para baixo
 
[Resolvido] Validação via VBA
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» resolvido macro excel: enviar email + planilha anexa + copiar a célula A1 e colar no assunto e corpo de e-mail, outlook resolvido
» Validação de Dados
» Lista de Validação de dados no formulário VBA
» Desbloquear Celula através de Validação
» Validação de cores

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: