Este fórum está sendo desativado

[Inovacao]

Pessoal, boa tarde!!

É possível rodar um VBA para que eu consiga Classificar na coluna B= VENCIMENTO do mais recente para o mais antigo para o mais recente e vice versa, sendo que as colunas L, M E N estão bloqueadas.

Segue Planilha para quem quiser me ajudar, pode usar senha 123.

Obrigado!!

[mucascosta]

Veja se é isso:

Código: Selecionar todos

Sub Asc()
    Range("B13").Sort Key1:=Range("B14"), _
    Order1:=xlAscending, Header:=xlYes, _
    OrderCustom:=1, MatchCase:=False, _
    Orientation:=xlTopToBottom
End Sub

Sub Desc()
    Range("B13").Sort Key1:=Range("B14"), _
    Order1:=xlDescending, Header:=xlYes, _
    OrderCustom:=1, MatchCase:=False, _
    Orientation:=xlTopToBottom
End Sub

[Inovacao]

Boa tarde, mucascosta!!

Não deu certo, não sei se fiz da forma errada, passo a passo.

ALT+F11, INSERIR/ MÓDULO, JOGUEI O CÓDIGO, mas quando fui na plan e bloqueiei com senha 123, e quando fui classificar disse que estava protegido.

preciso que ela deixe o usuário classificar mesmo com ela bloqueada.

Obrigado.

[mucascosta]

Veja aqui: https://pt.extendoffice.com/documents/e ... sheet.html

[Inovacao]

Não funciona, já tentei de inúmeras formas, basta bloquear que ela não permite classificar.

Por isso pedi ajuda para especialistas em VBA, pode criar uma macro e depois editar colocando código proteger e desproteger planilha.

Obrigado!!

[mucascosta]

Código: Selecionar todos

Sub Asc()
'Coloca a chamada no inicio da sua rotina para que desproteja a sua Planilha
Call UnProtectSheet

    Range("B13").Sort Key1:=Range("B14"), _
    Order1:=xlAscending, Header:=xlYes, _
    OrderCustom:=1, MatchCase:=False, _
    Orientation:=xlTopToBottom

'Coloca a chamada no fim da sua rotina para que proteja novamente a sua Planilha
Call ProtectSheet
End Sub

Sub Desc()
'Coloca a chamada no inicio da sua rotina para que desproteja a sua Planilha
Call UnProtectSheet

    Range("B13").Sort Key1:=Range("B14"), _
    Order1:=xlDescending, Header:=xlYes, _
    OrderCustom:=1, MatchCase:=False, _
    Orientation:=xlTopToBottom

'Coloca a chamada no fim da sua rotina para que proteja novamente a sua Planilha
Call ProtectSheet
End Sub

Sub ProtectSheet()
Dim Password 'Esta linha de código é opcional
Password = "123" 'Informe a senha da sua Planilha
ActiveSheet.Protect Password, True, True, True
End Sub

Sub UnProtectSheet()
Password = "123" 'Informe a senha da sua Planilha
ActiveSheet.Unprotect Password
End Sub

[Inovacao]

Bom dia meu caro!!

Colei o código e nada aconteceu, porque sera?

Segue Planilha.

Obrigado!!

[mucascosta]

Aqui tá funcionando...

[Inovacao]

Agora sim meu caro, ficou show, perfeito!!


Muitissimoooooooo, obrigadoooooooooooooo!!


Valeu!!!!!!!!!!!!!!!

[Inovacao]

Boa tarde!!

Eu copiei o mesmo código e os botões para outra Planilha que tem as mesmas colunas.

Ele funcionou na planilha nova porem ele abre a antiga em segundo plano, ou seja ao clicar no botão ele funciona na nova mas abre a antiga em segundo plano, então como faço para que ele funciona somente na nova?

Aonde neste código ele se referencia ao nome da Planilha antiga para eu poder trocar o nome da planilha antiga pelo nome da planilha nova.

Sub Asc()
'Coloca a chamada no inicio da sua rotina para que desproteja a sua Planilha
Call UnProtectSheet

Range("B13").Sort Key1:=Range("B14"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom

'Coloca a chamada no fim da sua rotina para que proteja novamente a sua Planilha
Call ProtectSheet
End Sub

Sub Desc()
'Coloca a chamada no inicio da sua rotina para que desproteja a sua Planilha
Call UnProtectSheet

Range("B13").Sort Key1:=Range("B14"), _
Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom

'Coloca a chamada no fim da sua rotina para que proteja novamente a sua Planilha
Call ProtectSheet
End Sub

Sub ProtectSheet()
Dim Password
Password = "123" 'Informe a senha da sua Planilha
ActiveSheet.Protect Password, True, True, True
End Sub

Sub UnProtectSheet()
Password = "123" 'Informe a senha da sua Planilha
ActiveSheet.Unprotect Password
End Sub


Muito obrigado!!

[Inovacao]

Aqui tá funcionando...

Boa tarde, mucascosta!!

Por favor pode me auxiliar na questão abaixo:
Eu copiei o mesmo código e os botões para outra Planilha que tem as mesmas colunas.

Ele funcionou na planilha nova porem ele abre a antiga em segundo plano, ou seja ao clicar no botão ele funciona na nova mas abre a antiga em segundo plano, então como faço para que ele funciona somente na nova?

Aonde neste código ele se referencia ao nome da Planilha antiga para eu poder trocar o nome da planilha antiga pelo nome da planilha nova.

Sub Asc()
'Coloca a chamada no inicio da sua rotina para que desproteja a sua Planilha
Call UnProtectSheet

Range("B13").Sort Key1:=Range("B14"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom

'Coloca a chamada no fim da sua rotina para que proteja novamente a sua Planilha
Call ProtectSheet
End Sub

Sub Desc()
'Coloca a chamada no inicio da sua rotina para que desproteja a sua Planilha
Call UnProtectSheet

Range("B13").Sort Key1:=Range("B14"), _
Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom

'Coloca a chamada no fim da sua rotina para que proteja novamente a sua Planilha
Call ProtectSheet
End Sub

Sub ProtectSheet()
Dim Password
Password = "123" 'Informe a senha da sua Planilha
ActiveSheet.Protect Password, True, True, True
End Sub

Sub UnProtectSheet()
Password = "123" 'Informe a senha da sua Planilha
ActiveSheet.Unprotect Password
End Sub


Muito obrigado!!

[mucascosta]

Se vc copiou e colou os botões, sem mudar a atribuição de macros, ficaram vinculados a macros da planilha de origem...
Se foi isso, Click a direita dos botões, um de cada vez, -> Atribuir macros -> Macros em: escolher a planilha ativa -> selecionar Asc ou Desc -> OK

[Inovacao]

Bom diaaaaaaaaaa!!

Fechou, era isso mesmo!!

Muito obrigado!!

[Inovacao]

Bom dia, mucascosta!!
Tudo bem?

To precisando de uma ajudinha referente a Planilha, pode me ajudar?

Quando aciono o botão para CLASSIFICAR POR CRESCENTE OU DECRESCENTE, ele funciona direitinho.
Porem ao travar a Planilha ele desabilita o filtro das colunas e fico sem poder classificar de A a Z etc..

Tem como resolver isto?

Obrigado!!

[mucascosta]

Trava por qual razão?

[Inovacao]

Boa noite, mucascosta!!

Tenho que travar pois mais pessoas utilizam tambem a Planilha e são todos leigos que já me deram dor de cabeça quebrando minhas fórmulas.

Seria ideal que ao travar ele liberasse algumas opções por padrão, dentre elas filtrar e classificar.
Segue foto das opções:



Obrigado!!

[mucascosta]

Ah! sim, Travar é igual a Proteger...

Na solução que lhe enviei, no início das macros Asc e Desc Desprotege e no fim Protege...

Então não há necessidade de proteger novamente...

[Inovacao]

Bom dia, mucascosta!!

Sim no final ela protege!!

Porem depois que ela protege, quando eu clico em qualquer coluna o filtro não funciona, pois a opção de classificar esta desabilitada.

Segue foto do que eu precisava fazer depois que ela protege.
Faz o teste por favor, clica nos botões e depois tenta usar o filtro de qualquer coluna, tenta classificar.


Obrigado!!