rodrigo.inf
Mensagens : 3 Data de inscrição : 15/03/2014
| Assunto: [Resolvido] Validação via VBA Sá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) | |
|
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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 | |
|
rodrigo.inf
Mensagens : 3 Data de inscrição : 15/03/2014
| Assunto: [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
| |
|
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: [Resolvido] Validação via VBA Ter Mar 18, 2014 4:40 pm | |
| Bom dia!!
Mas, seu problema foi resolvido?
Att | |
|
rodrigo.inf
Mensagens : 3 Data de inscrição : 15/03/2014
| Assunto: [RESOLVIDO] Qua Mar 19, 2014 7:10 pm | |
| Foi sim. Problema resolvido!
Obrigado! | |
|
Conteúdo patrocinado
| Assunto: Re: [Resolvido] Validação via VBA | |
| |
|