Boa noite!!

Seria isso.

http://www.sendspace.com/file/8m6ttr

Att

Silva,
Boa tarde !

Na formatação condicional na opção da data da última execução acho que essa formula ajudará.

=SE(DIA($B$3)=DIA(GY2);"OK";"NOK")

Não testei, favor verificar .

As outras opções realmente é muito complexa, por isso estou vendo alguma possibilidade de bular essa complexidade.

Abraços,

Vlw !

Ôpa !

Pronto, acho que está etapa está resolvida pelo Alexandre .

Uma responda bem simples e muito eficaz .

Vlw!

Boa noite!!

Olá silva_jmp, vou mover seu tópico pra um lugar adequado, caso sua dúvida foi sanada favor marcar a postagem como resolvida!!

Obs: Reveja sua contagem de dias...

Att

Alexandre e Robert obrigado por me ajudar, mas e case isso, da uma olhada no anexo novamente, tem mais explicações.

silva_jmp

Pessoal tá difícil, estou fazendo várias combinações com as funções SE, CONT.SE, mas não estou conseguindo o resultado esperado.

silva_jmp

Boa noite!!!

Essa rotina deve ficar dentro da corpo de edição da planilha!!

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then
Call Formatacao_Dia
End If: End Sub

As duas de baixo coloque dentro de um módulo

Sub Formatacao_Dia(): Dim Month As String, D As Integer, LDI As Date
Dim S As String, Frq As Integer
Dim i As Long, j As Long, k As Long
Month = Cells(1, "C"): Frq = Cells(3, "C"): LDI = Cells(3, 2)
D = Day(LDI)
i = Range("1:1").Find(Month, Cells(1, 3)).Column - 1
S = GetAlpha(i): j = i + D
For i = 0 To (Frq) ^ 2 Step Frq
Cells(3, j + i).Select
Cells(3, j + i).Interior.ColorIndex = 3
Next i
End Sub

Sub Visivel()
ActiveSheet.Columns.Hidden = False
End Sub
Function GetAlpha(n As Long) As String
Dim Alpha: Dim M As Long

If n > 26 ^ 3 Then Exit Function

Alpha = Array(" ", "A", "B", "C", "D", "E", "F", "G", _
"H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", _
"R", "S", "T", "U", "V", "W", "X", "Y", "Z")

If n > 676 Then
M = n Mod 676
GetAlpha = Alpha(Int(n / 676)) & GetAlpha(M)
ElseIf n > 26 Then
GetAlpha = Alpha(Int(n / 26)) & Alpha(n Mod 26)
Else
GetAlpha = Alpha(n)
End If

..Faça os testes

Importante:
Considere que mudou para a data desejada em B2; depois altere a validação e somente então digite o número de frequência!!!

Silva,

Ai coloca agora a Macro do nosso mestre alexandre . Acho que dessa vez não tem para onde correr ou da certo ou você pode se tranfirir para um outro planeta .kkkkkkkkkkkk!

Abrs.

Hein! Alexandre você é o cara, kkkk, e isso mesmo, mas preciso mais uma ajuda para ficar 100% este projeto.

Quando apago a data B3, mês C1 e a periodicidade C3, as células continuam coloridas conforme a última utilização, e quando eu digito a data da última execução preciso que as células fiquem marcadas conforme periodicidade até dezembro.

Na célula C1 Mês preciso que quando digito ou busco em lista oculta, o mês selecionado fique na mesma visualização dentro das colunas D:AH como se fosse hiperlink onde colocamos uma célula de referencia.

silva_jmp

Olá pessoal, alguem pode me ajudar nesta topico, preciso muito de uma solução..

silva_jmp

Fiz alguns ajustes no modelo disponibilizado pelo Alexandre, veja se está proximo

Reinaldo, obrigado por me ajudar, esta bem proximo do que preciso, só considerando que quando coloco a frequencia ela tem que se estender ate dezembro, outra coisa seria se eu tivesse mais atividades nas outras linha, a macro precisa fazer a mesma rotina.

silva_jmp

Olá pessoal, estive afastado, mas estou de volta, e necessito da ajuda de vocês para acabar esta necessidade.

Desde já agradeço.

silva_jmp

Prezado,

Serve sem VBA? Caso positivo, olhe o anexo.

Mudei a orientação da planilha e incluí a possibilidade de mais de 1 teste.

Me avise se funciona.

Abs,