none
Botão que insere data do clique e muda cor de texto em células diferentes RRS feed

  • Discussão Geral

  • Prezados, eu gostaria de criar um botão que modificasse a cor do texto de uma célula (B3 por exemplo), e inserisse a data do clique noutra (k3, por exemplo), sem permitir que fossem alteradas novamente.

    Grato,

    André

    quarta-feira, 4 de maio de 2016 15:01

Todas as Respostas

  • André,

    a nível inicial podes fazer assim:

    Private Sub CommandButton1_Click()
      
      If Range("K3").Value = "" Then
          Range("B3").Font.ColorIndex = 3
          Range("K3").Value = Now
      End If
      
    End Sub
    


    Natan

    quarta-feira, 4 de maio de 2016 17:01
  • Oi Natan, muito obrigado pela rápida resposta.

    O código funcionou muito bem, contudo eu gostaria de saber se as células modificadas pela macro (B3 e K3) poderiam ser bloqueadas após o clique no botão, de modo que não possam ser modificadas novamente.

    Grato,

    André

    quarta-feira, 4 de maio de 2016 17:57
  • André,

    a forma que vejo pra isso é bloquear as células e dentro do método colocar os trechos:

    sheets("nomeDaSuaSheet").Unprotect
    
    'Faz o procedimento 
    
    sheets("nomeDaSuaSheet").Protect
    

    Mas como é excel essa regra pode ser facilmente burlada.



    Natan

    quarta-feira, 4 de maio de 2016 18:19
  • Natan, na planilha tenho 60 botões com a macro que você me passou. Todos estão funcionando muito bem, graças à sua ajuda. Tive apenas que modificar as macras um pouquinho, ficando assim:

    Sub Remove3()
    '
    ' Remove3 Macro
    '
    If Range("K3").Value = "" Then
          Range("B3").Font.ColorIndex = 3
          Range("K3").Value = Now
      End If
    End Sub

    ________________

    Sub Remove4()
    '
    ' Remove4 Macro
    '
    If Range("K4").Value = "" Then
          Range("B4").Font.ColorIndex = 3
          Range("K4").Value = Now
      End If
    End Sub

    ___________

    Etc.

    Como posso editar o método, de modo que abranja todas células modificadas pelos botões?

    Grato,

    André

    quarta-feira, 4 de maio de 2016 19:27