Arhelaer

Por algum motivo eu não consigo ver o código da macro na sua planilha, então não consigo testar nada. mas tenta trocar o código por esse: Private Sub Worksheet_Change(ByVal Target As Range) Dim ColunasQ As Range Set ColunasQ = Range(" A3:G58") If Not Application.Intersect(ColunasQ, Range(Target.Address)) Is Nothing Then ActiveSheet.Unprotect ("m") linha = Target.Adress Range(linha).Locked = True ActiveSheet.Protect ("m"), DrawingObjects:=True, Contents:=True, Scenarios:=True End If End Sub Se ainda não der certo ainda deixa o código todo da macro por escrito, incluindo os outros subs

Group by não filtra resultado, não que eu saiba pelo menos kk. Ele só organiza(tipo do maior pro menor em certo atributo etc) Pra filtrar resultados tem que ser no where, como já tem um where no código tenta colocar AND no lugar de group by. Isso vai fazer o where filtrar o que tiver certo nos dois filtros dele, o status in ('shipped') e o que for maior que a data que você pediu.

Já tentou colocar Range("A3:G58").Locked = True no lugar do Range("Q" & linha).Locked = True? Acho que deve funcionar Edit: muda a range do colunas pra Range("A3:G58") também

Eu preciso extrair informação de um arquivo TXT, porém ele é grande demais para ser aberto diretamente(pesa cerca de 25Gb). Antes ele estava em uma extensão chamada rpt mas eu converti para txt. Estou em uma empresa e meu acesso a programas como compiladores é limitado, então eu preciso fazer uma macro do excel para isso, como sou novo em vba estou abrindo esse tópico para perguntar como eu faço em vba as coisas que preciso criar: -Um loop que percorra o arquivo todo -O comando para criar um arquivo de texto com determinado nome -Como armazenar os dados da linha atual em uma string -Como inserir o valor da string no arquivo de texto A logica de como fazer eu tenho uma noção já, mas preciso dos comandos para fazer essas 4 coisas Agradeço quem puder me ajudar, sou novo aqui no forum