Notifications
Clear all

RESTRINGIR ENTRADA DADOS QDO IGUAIS

4 Posts
1 Usuários
0 Reactions
686 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Olá pessoal preciso que quando o usuário fosse digitar a data de inicio da segunda tarefa de uma mesma equipe, e se a data fosse a mesma da da programação anterior, gostaria que restringi-se a entrada da data aparecendo uma mensagem "A EQUIPE JÁ ESTA ALOCADA PARA ESTA DATA."

EQUIPE / DURAÇÃO / DT INICIO / DT TERMINO
OE01 / 2 / 08-07-2014 / 10-07-2014
OE01 / 2 / /

silvajmp

 
Postado : 08/07/2014 7:24 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite!!

Eu não baixei seu anexo.

Tente algo assim..

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range, r As Range, msg As String, x As Range
    Set rng = Intersect(Columns(1), Target)
    If Not rng Is Nothing Then
        Application.EnableEvents = False
        For Each r In rng
            If Not IsEmpty(r.Value) Then
                If Application.CountIf(Columns(1), r.Value) > 1 Then
                    msg = msg & vbLf & r.Address(0, 0) & vbTab & r.Value
                    If x Is Nothing Then
                        r.Activate
                        Set x = r
                    Else
                        Set x = Union(x, r)
                    End If
                End If
            End If
        Next
        If Len(msg) Then
            MsgBox "A EQUIPE JÁ ESTA ALOCADA PARA ESTA DATA."
            x.ClearContents
            x.Select
        End If
        Set rng = Nothing
        Set x = Nothing
        Application.EnableEvents = True
    End If
End Sub
 
Postado : 08/07/2014 7:31 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa noite silva_jmp

Fiz o que vc pediu usando Validação de Dados.

Dê retorno.

[]s

 
Postado : 08/07/2014 7:38 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Alexandre obrigado por me atender, mas não deu certo, na verdade não houve ação nenhuma.
Patropi obrigado também por me atender, e quase isso, lembrando que temos que considerar algumas condições:

A validação não deve ser somente na referencia de data de inicio, ela deve estar amarrada com a equipe, a data de inicio e a data < do que a data de termino.
Explicação:

A / B / C / D
DESCRIÇÃO DO SERVIÇO / EQUIPE / DATA INICIO / DATA TERMINO
SERVIÇO 1 / OE01 / 10/07/2014 / 13/07/2014
SERVIÇO 2 / OE01 / 10/07/2014 / ----->

O objetivo da minha necessidade, e de restringir o usuário de planejar serviços diferentes com a mesma equipe na mesma data de inicio, isso é,
serviço 1 = dt inicio = 10/07/14 dt termino = 13/07/14
serviço 2 = dt inicio = 10/07/14 dt termino = 13/07/14, isto é, a dt inicio do serviço 2 é igual a dt inicio do serviço 1, sendo que e a mesma equipe.

Ou data de inicio dentro de um intervalo já planejado, isto é,
serviço 1 = dt inicio = 10/07/14 dt termino = 13/07/14
serviço 2 = dt inicio = 11/07/14 dt termino = 14/07/14, isto é, a dt inicio do serviço 2 esta dentro do intervalo de dt inicio e dt termino do serviço 1, sendo que e a mesma equipe.

Estes casos chamamos que a equipe esta super locada.

silvajmp

 
Postado : 11/07/2014 7:15 pm