Página 1 de 1
Colocar os todos os clientes em ordem de data.
Enviado: 04 Mar 2017 às 08:46
por 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.
Re: Colocar os todos os clientes em ordem de data.
Enviado: 04 Mar 2017 às 09:54
por alexandrevba
Bom dia!!
Não testado!!
Código: Selecionar todosSub 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
Colocar os todos os clientes em ordem de data.
Enviado: 04 Mar 2017 às 13:38
por 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.
Re: Colocar os todos os clientes em ordem de data.
Enviado: 04 Mar 2017 às 19:19
por alexandrevba
Boa noite!!
Eu não entendi
Tem como você postar o resultado de forma manual para que possamos entender?
Att
Colocar os todos os clientes em ordem de data.
Enviado: 05 Mar 2017 às 11:26
por 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.
Re: Colocar os todos os clientes em ordem de data.
Enviado: 05 Mar 2017 às 11:44
por alexandrevba
Bom dia!!
Para o erro alter alinha
Para
Acontece que no meu arquivo tinha uma célula nomeada, e no seu arquivo não.
Att