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