Este fórum está sendo desativado

[xandao6]

Tenho uma planilha de metas pessoais, ela tem muuuitas checkbox's. Talvez precise de uma macro para automatizar.
Como é pra ficar?
Meta sem texto: checkbox desmarcada e cor de fundo da meta branco.
Meta com texto e não completada: checkbox desmarcada e cor de fundo da meta Amarelo
Meta com texto e completada: Marco a checkbox e a cor de fundo da meta fica verde

*Se Possivel adicionar outra planilha, que contenha graficos das quantidades de metas cumpridas (da semana, mensais e anuais.)

[sonymartins]

Olá amigo,

dei uma brincada na sua planilha, segue em anexo.

Basicamente, eu inclui dentro da sua planilha 2 (semanas) o seguinte código:

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Dim KeyCells As Range

   ' define o conjunto de células que será analisado a procura de mudanças
    Set KeyCells = Range("$B$7:$B$13")

   ' rastreia a célula que foi modificada 
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        
       ' verifica se a célula modificada mudou para "" ou algum outro preenchimento de texto
        If Range(Target.Address).Text <> "" Then

       ' caso a célula não esteja vazia, seleciona a linha da célula e usa esta informação para 
       ' identificar o checkbox correspondente (ex. linha1 -> caixa1, linha2 -> caixa2,....etc)
       ' Após encontrar o checkbox correto, marca ele.
        ActiveSheet.Shapes("caixa" & Range(Target.Address).Row).ControlFormat.Value = 1    'x1On
        
        Else

        ActiveSheet.Shapes("caixa" & Range(Target.Address).Row).ControlFormat.Value = 0   'x1Off
        
        End If
    End If

End Sub

Modifiquei os nomes dos primeiros checkbox como exemplo. Sugiro que modifique os dos outros de maneira que cada cada nome do checkbox coincida com a linha da célula modificada da coluna Metas. Assim os números das linhas podem ser usados de forma dinâmica para identificar qual o checkbox deve ser marcado.

Sobre o "Meta com texto e não completada:", eu não entendi a forma que vc quer identificar aquilo que não foi completado. Vai escrever "não completado", ou vai colocar "-", ou outra coisa???

Qualquer outra dúvida, só mandar, até.