Validação de Dados

[pedrobb]

Em uma seleção de células (B5:P5) uso a validação de dados para Não Permitir valores Repetidos: =NÃO(CONT.SE($B5:$P5;B5)>1)
Funciona muito Bem.

Agora preciso que o Intervalo aceite somente Valores de 01 a 99.

Pode ser por VBA ou Excel. Alguém pode ajudar?

Grato,
Pedro

[Neri]

Bom dia Pedro
Usando a validação de Dados, em Permitir - Dados de Minimo até Máximo, não funciona?
Att.

[joseA]

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False

If Not Intersect(Target, Range("B5:P5")) Is Nothing Then
    If Target.Value < 1 Then 'de 01 a 99.
        MsgBox "Somente Valores de 01 a 99"
 
    End If
    If Target.Value > 99 Then
        MsgBox "Somente Valores de 01 a 99"
    End If
End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

[pedrobb]

JoseA,
Obrigado pela ajuda.

Tá dando conflito, pois já tenho a Worksheet_Change abaixo:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Range("A15") Is Nothing Then
If Range("a15") = "PARABÉNS!" Then
Alarme1
End If
If Range("a15") = "" Then
Sheets("Dados").Label2.Visible = False
End If

End If
End Sub

Dá prá juntar?
Outra coisa, gostaria que o foco voltasse para a célula com valor indevido.
Grato,
Pedro

[joseA]

Tente:

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False

If Not Intersect(Target, Range("B5:P5")) Is Nothing Then
    If Target.Value < 1 Then 'de 01 a 99.
        MsgBox "Somente Valores de 01 a 99"
        Target.Offset(0, 0).Select
        Target = ""
 
    End If
    If Target.Value > 99 Then
        MsgBox "Somente Valores de 01 a 99"
        Target.Offset(0, 0).Select
        Target = ""
    End If
End If


If Not Range("A15") Is Nothing Then
If Range("a15") = "PARABÉNS!" Then
'Alarme1
End If
If Range("a15") = "" Then
Sheets("Dados").Label2.Visible = False
Else
Sheets("Dados").Label2.Visible = True
End If

End If
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

[pedrobb]

Very Good!
Isso mesmo que eu precisava.
Obrigado, amigo.
Pedro

[joseA]

Vlw

Anúncios