Guto006

Pessoal boa tarde

 

estou com uma planilha que gostaria e estou tentando usar essa macro e mudando somente o ponto de busca e nao consigo alguem pode me ajudar?

 

estou tentando colocar na coluna O22

 

RELATORIO_LRM.xlsx

Boa Tarde Luiz

 

               Vou tentar deixa de modo claro.

   

               Hoje, qualquer alteração que ocorre nas colunas "AL", "AM" e "AN",  me retorna nas colunas "G" e "H" o Nome e Data.

               Usando os intervalo de Célula "AL:AN"

               No entanto também preciso que me retorne nas colunas "D" e "E" Nome e data das alterações da coluna "A" independente das alterações de outras células.

 

               Porque não uso o "History" automático da planilha compartilhada?

               Por que algumas vezes preciso tirar do compartilhamento para fazer algumas alterações e aí, o histórico se perde. Já utilizando a macro isso não ocorre.

              E por outro motivo, uso uma formatação condicional na coluna "G" que quanto a macro é ativada e me aparece o nome de quem alterou, a linha fica verde, identificando que a atividade foi finalizada.

 

              Obs: Alterei a extensão da planilha de .xlsb para .xls e assim posso anexar direto aqui no forum.

 

Espero ter sido claro, me ajudem.

 

 

Backlog_FO.xls

Bom tarde Senhores,

              Minha primeira publicação aqui, apesar de acompanha vocês por muito tempo.

              Atualmente uso um VBA para que me retorne Log e data de alteração em um planilha, no entanto, eu quero que na mesma planilha me retorne o Log e data de alteração em duas colunas distintas quando atero uma outra coluna.

              Exemplo: Se alterar a coluna A,B,C(qualquer umas das três) me retorna na coluna G o login e na coluna H a data e hora da alteração

                              Quero incluir mais um registro de alteração na mesma planilha igual de cima só que em outras células.

               Obs: É uma planilha compartilhada Office 2007 onde uso um Change para isso, assim consigo usar em compartilhamento.

              Segue o VBA:

 

              Sub worksheet_change(ByVal faixa As Range)
Dim dados As Range
Set dados = Range("AL1:AN5000")
If Not Intersect(faixa, dados) Is Nothing Then
Application.EnableEvents = False
dados.Cells(faixa.Row, -29).Value = Now()
dados.Cells(faixa.Row, -30).Value = VBA.Environ("username")
Application.EnableEvents = True
End If
End Sub