Alguem pode mim ajudar


#21

e so vendo essa planilha sua mesmo. se os colegas ai não conseguir te ajudar envia ela pra mim que vejo o que faço. william.aedu@gmail.com


#22

Olá. Tente usar esse código. Está todo comentado. Pode colar assim mesmo no seu VBA.

Private Sub Worksheet_Change(ByVal Target As Range)
'Inseri aqui a variável planilha
Dim planilha As Worksheet
'Aqui eu digo quem é minha variável
Set planilha = Worksheets(“COLOQUE AQUI O NOME DA PLANILHA ENTRE ASPAS”)
'Aqui eu desprotejo a planilha para fazer as alterações
planilha.Unprotect
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
Dim LR As Long

LR = Cells(Rows.Count, “A”).End(xlUp).Row
Liberar:
Range("$A$1:$f" & LR).Sort Key1:=Range("$A$1")
Bloquear:
Range("$A$1").Locked = True
'Concluidas as alterações, a planilha é protegida novamente
planilha.Protect
End Sub


#23

Wiliam, muito obrigado… enviado


#24

da um like ai se foi util a resposta


#25

Valteson, obrigado, resolveu parte do meu problema…

Nessa mesma planilha, eu trabalho com procv, porem gostaria de saber como eu faço, para ele usar o vba, e ele levar automaticamete todos os dados que estao nalinha…
ou seja tenha na linha 1 da coluna A até a N, então na medida que forem alterados a linha os dados irem juntos…