Este fórum está sendo desativado

[josevitor007]

Boa tarde a todos. Estou criando um diário de bordo no excel, e gostaria de saber se existe a possibilidade de criar um checkBox com datas pre determinadas para ser deselecionada.

Exemplo, dei check numa caixa na terça feira, e gostaria que automaticamente, na proxima segunda essa caixa não estivesse selecionada.

Agradeço a atenção de todos.

[babdallas]

Uma possibilidade é guardar o status do checkbox em um label que não apareça (Visble=False) sempre que mudar o checkboxD (evento Change). Então sempre que abrir o formulário, este caption da label que dirá qual checkbox foi carregada pela última vez.
No evento WorkBook_Open, ao abrir a pasta de trabalho, verifique se a data é uma segunda-feira. Se for verifique se o label está verdadeiro. Se tiver mude a propriedade value da checkbox para falso.

[josevitor007]

Ola, obrigado por responder, mas nao entendi mt bem.

Pra explicar melhor, estou usando os checkbox para dar check em tarefas semanais e mensais. Criei um farol para que aparecesse "Feito" após o Check.

Como são tarefas semanais, gostaria que essa caixa deselecionasse conforme alguma data pré determinada.

[babdallas]

Este checkbox está em uma planilha ou em um userform?
Seria mais fácil você anexar um exemplo com dados fictícios para ajudar no meu entendimento.

[josevitor007]

Planilha

Segue exemplo abaixo.


A tarefa é feita semanalmente, toda segunda, caso nao seleciono o checkbox a tarefa fica em atraso, se seleciono, fica "OK"

Ai gostaria de programar uma data para o Check deselecionar automaticamente, isso valeria para tarefas mensais tb.

[babdallas]

OK. Dá para fazer sim. Anexa um pequeno exemplo (não imagem). Será preciso VBA.

[josevitor007]

Segue exemplo

[babdallas]

Vamos supor que seja uma segunda-feira. Se abrir a pasta de trabalho no início do dia, entendo que a tarefa precisa não pode estar selecionada. Então a primeira coisa a fazer é, ao abrir a pasta de trabalho na segunda-feira, usaria o evento WorkBook_Open (ao abrir a pasta de trabalho) para checar se a data é uma segunda. Se for, deixo a tarefa como não realizada deixando a checkbox desmarcada.
Isso atende a sua necessidade?

[josevitor007]

Exatamente

[babdallas]

Veja se é isso

Código: Selecionar todos

Private Sub Workbook_Open()
    Dim shpForma        As Shape
    Dim lngUltLin       As Long
    Dim lngCont         As Long

    With Planilha1
        If VBA.Weekday(VBA.Now()) = 2 Then
            lngUltLin = .Cells(.Rows.Count, 2).End(xlUp).Row
            
            'Loop pelas linhas
            For lngCont = 8 To lngUltLin
                'Loop pelos controles
                For Each shpForma In Planilha1.Shapes
                    If shpForma.TopLeftCell.Row = lngCont Then
                        .Cells(lngCont, 11).Value2 = False
                    End If
                Next shpForma
            Next lngCont
        End If
    End With
End Sub