Bom dia.
Quando será efetuada a limpeza na planilha?
Qual será o critério? Ao inserir alguma informação? Ao atingir uma certa data?
Abaixo um código que serve para limpar os dados da primeira linha e classificar novamente a planilha de acordo com a data, não sei se te atenderá desta forma, com mais informações dá para montar algo melhor.
Sub Limpa()
'
'
Rows("2:2").Select
Selection.ClearContents
Cells.Select
ActiveWorkbook.Worksheets("Folha1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Folha1").Sort.SortFields.Add Key:=Range("B2:B5"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Folha1").Sort
.SetRange Range("B2:C25")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("B3").Select
End Sub
Este código deverá ser acionado por um botão ou tecla de atalho, porém pode ser incrementado para executar por exemplo ao mudar alguma informação, ao salvar a planilha e etc.
Postado : 31/03/2017 6:02 am