PERFEITO!!
ESTÁ A FUNCIONAR!!
Tenho é que escrever celula a celula.....para ele actualizar, existe uma maneira de ele actualizar automaticamente?
Outra coisa, que me pode ajudar era a folha verificar na parte superior linha 1 o dia da semana e sempre que esse dia é domingo mete por defeito "DO"
outra coisa era ao intruduzir um codigo ele ir a uma tabela (como está na coluna AN) e ver o codigo do horario e com esse codigo ele faz o mesmo da formatação condicional
Private Sub Worksheet_Change(ByVal Target As Range)
Dim icolor As Integer
If Not Intersect(Target, Range("D3:AH95")) Is Nothing Then
Select Case Target
Case "F"
icolor = 3
Case "DO"
icolor = 5
Case "DC"
posso fazer isto?
Dim icolor As Integer
If Not Intersect(Target, Range("D3:AH95")) Is Nothing Then
Select Case Target
Case "F"
icolor = 3
Case "DO"
icolor = 5
Case B3="fernando Silva" & coluna 2 "data do calendario"= sabado
"DC"
icolor = 20
Case "Fe"
icolor = 7
outra coisa era fazer um quadro com as datas de ferias do pessoal e ele automaticamente via se as datas coicidem e formata com as letas jás establecidas...
Deu para entender?
Postado : 13/05/2012 1:44 am