Notifications
Clear all

Controle de férias

4 Posts
2 Usuários
0 Reactions
892 Visualizações
(@mitriakos)
Posts: 0
New Member
Topic starter
 

Boa tarde amigos.

Estou precisando de uma planilha onde eu entre com as datas de inicio e fim das ferias de cada funcionario e caso algum funcionario tenha um periodo(que seja um dia igual) de ferias igual a outro funcionario, a planilha me destaque esse conflito. Alguem pode me ajudar?

 
Postado : 26/12/2017 11:36 am
(@klarc28)
Posts: 0
New Member
 

Se houver conflito, aparecerá na coluna C, quando trocar de célula.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim linha As Long
    
    linha = 2
    
    While ThisWorkbook.Sheets("Planilha1").Cells(linha, 1).Value <> ""
        
        
        
        linha = linha + 1
        
    Wend
    
    Dim i, j As Long
    
    For i = 2 To linha - 2
        
        For j = i + 1 To linha - 1
            
            Dim dtinicio, dtfinal, datainicio2, datafinal2  As Date
            
            dtinicio = ThisWorkbook.Sheets("Planilha1").Cells(i, 1).Value
            dtfinal = ThisWorkbook.Sheets("Planilha1").Cells(i, 2).Value
            datainicio2 = ThisWorkbook.Sheets("Planilha1").Cells(j, 1).Value
            datafinal2 = ThisWorkbook.Sheets("Planilha1").Cells(j, 2).Value
            
            If datainicio2 <= dtfinal And datainicio2 >= dtinicio Then
                ThisWorkbook.Sheets("Planilha1").Cells(j, 3).Value = "conflito"
            End If
            
            If datafinal2 <= dtfinal And datafinal2 >= dtinicio Then
                ThisWorkbook.Sheets("Planilha1").Cells(j, 3).Value = "conflito"
            End If
            
            
        Next j
    Next i
    
    
End Sub

 
Postado : 26/12/2017 11:53 am
(@mitriakos)
Posts: 0
New Member
Topic starter
 

Bom dia, é possível utilizar este código para uma planilha onde tenho aproximadamente 28 funcionários?

 
Postado : 27/12/2017 5:59 am
(@klarc28)
Posts: 0
New Member
 

Faça um teste do anexo. Fiz algumas alterações.

 
Postado : 27/12/2017 7:58 am