pietruk

Movi teu tópico, pois onde você havia postado, não é permitido postar dúvidas, é exclusivo para a apresentação dos novos usuários do fórum.

Como você é novato, para facilitar a tua participação no fórum, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

Patropi - Moderador

bem, para oq vc quer o certo seria postar em VBA & MACROS

mas como já tinha comentado, tem que ter uma planilha de como estão seus dados pq tem uma linha e coluna de inicio e fim para a macro atuar na arrea correta e não afetar outras areas
mesmo usando o gravador de macros e executando a ação é possível

apenas usando o gravador de macros

Sub Macro1()
'
' Macro1 Macro
'

'
     ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Clear
     ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("D6:J6"), _
                                                            SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
     With ActiveWorkbook.Worksheets("Plan1").Sort
          .SetRange Range("D5:J6")
          .Header = xlGuess
          .MatchCase = False
          .Orientation = xlLeftToRight
          .SortMethod = xlPinYin
          .Apply
     End With
End Sub

como pode ver apesar de simples é necessario saber como estão seus dados

Bom dia edcronos2,
Consegui colar a sua macro e deu muito certo, agora seria possível colocar um botão ou como faço para definir a tecla de atalho para executar a macro, desde já agradeço pela sua colaboração, obrigado
Pietruk

Consegui definir a tecla de atalho, assim que estiver tudo ok, darei como encerrado o tópico, mais uma vez obrigado pelo pronto atendimento, abraço

ainda bem que conseguiu
ActiveWorkbook.Worksheets("Plan1").Sort.SortFields.Add Key:=Range("D6:J6"), _
essa parte em vermelho indica a linha por qual a macro vai se basear para ordenar, no caso a linha 6, pode ver que repete d6 j6
ela tem que inicia e terminar na mesma coluna onde vai atuar, D e J nesse caso

.SetRange Range("D5:J6")
essa parte que coloquei em vermelho muda a range de atuação
tipo se colocar A2:P100 ela vai atuar da coluna A linha 2 até coluna P linha 100

Boa tarde,
Consegui fazer com que a macro postada funcione como mencionei anteriormente, aproveitei e criei mais uma macro usando a postada como exemplo em outra planilha que usa outros argumentos e resultados, uma macro não depende da outra, assim como uma planilha não depende da outra, estou tendo problemas em abrir as duas planilhas. elas estão meio que se cruzando e todo vez que entro numa planilha tenho que habilitar, como não tenho experiência com macros não sei se deixei de fazer alguma coisa, então ficou tudo resolvido apenas ficou como devo salvar corretamente para que uma "macro1" não se encontre com "macro2" de outra planilha, obrigado pela atenção
Pietruk