Este fórum está sendo desativado

[GENECI]

Bom dia!

Pergunta posta em outro fórum e não obtive a resposta.

Solicito a sua ajuda, para colocar o cadastro de clientes na ordem de data através do VBA.

Conforme instruções no anexo.

Tentei e não consegui.

Grato - GENECI.

[alexandrevba]

Bom dia!!

Não testado!!

Código: Selecionar todos

Sub AleVBA_4202V2()
Dim rCrit As Range, rRng As Range

Set rCrit = Range("AleVBA")
Set rRng = Worksheets("CADASTRO").Range("A1:F2500")

With rRng
    .AutoFilter field:=2, Criteria1:=rCrit.Value
    rRng.SpecialCells(xlCellTypeVisible).EntireRow.Copy Destination:=Worksheets("CONSULTAESTADO").Range("A3")
    .AutoFilter
End With
'GM
    Range("A3").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    ActiveWorkbook.Worksheets("CONSULTAESTADO").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("CONSULTAESTADO").Sort.SortFields.Add Key:=Range("A4:A7"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("CONSULTAESTADO").Sort
        .SetRange Range("A3:X7000")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Obs: Editado por AlexandreVBA

Att

[GENECI]

Boa tarde! AlexandreVBA

Muito obrigado por atender a minha solicitação.

Através desse código VBA, infelizmente não obtive o resultado solicitado.

Grato - GENECI.

[alexandrevba]

Boa noite!!

Eu não entendi

Tem como você postar o resultado de forma manual para que possamos entender?

Att

[GENECI]

Bom dia! Alexandrevba

Obtive o resultado para o problema.

A título de estudo fico grato, quanto o procedimento que criastes através de macro.
Por favor, retornar o arquivo com a solução para um comparativo.

Grato - GENECI.

[alexandrevba]

Bom dia!!

Para o erro alter alinha

Código: Selecionar todos

Set rCrit = Range("AleVBA")

Para

Código: Selecionar todos

Set rCrit = Worksheets("CONSULTAESTADO").Range("C1") 

Acontece que no meu arquivo tinha uma célula nomeada, e no seu arquivo não.

Att