Este fórum está sendo desativado

[BITTENCURT]

Boa noite Amigos.

Anexo envio planilha com minha dúvida, se alguém me ajudar, desde já agradeço.

No aguardo

Aparecido Bittencurt
Anexos

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub OrdenaLinhas()
 Dim k As Long
  For k = 5 To 54
   Cells(k, 3).Resize(, 10).Sort Key1:=Cells(k, 3), Order1:=xlAscending, Orientation:=xlLeftToRight
  Next k
End Sub

[BITTENCURT]

Mais uma vez obrigado Osvaldomp, prontamente me atendeu.

Deus abençoe

Uma boa noite