Dúvida Excel - Automatização de relatório

brunofeliped disse:

Depoisteconto localizei 3 problemas nessa solução por você postada.

1 - Ao "gerar relatório" ele não está classificando globalmente através da coluna "Expira em:"

A classificação é feito pela coluna D "Expira em". Veja.

[CODE=rich]pl.Sort.SortFields.Clear
pl.Sort.SortFields.Add Key:=Range("D3" & cont), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

With pl.Sort
.SetRange Range("A2:E" & cont)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With[/CODE]

2 - Ao "gerar o relatório" pela 2ª vez ele não "sobrepõe" o conteúdo já existente, ele cria um espaço em branco e gera o conteúdo abaixo.

Logo no ínicio da rotina, todo conteúdo resultante do relatório anterior é apagado. Veja.

[CODE=rich]cont = pl.Cells(Rows.Count, "B").End(xlUp).Row + 1

Range("A3:E" & cont).ClearContents[/CODE]

3 - Preciso ter uma coluna que eu possa identificar o respectivo toten.

A primeira alternativa seria colocar essa informação na coluna "F" de cada planilha(T1, T2, etc). Dessa forma, alteraria o código: Colocaria "F"

[CODE=rich]Range("A3:E" & cont).ClearContents
Range("A3:E3").Select[/CODE]

Outra alternativa seria colocar na planilha relatório, coluna "F" TOTEN. O código ficaria assim:

Entre ActiveSheet.Paste e cont = pl.Cells(Rows.Count, "B").End(xlUp).Row + 1

[CODE=rich]conts = pl.Cells(Rows.Count, "B").End(xlUp).Row
Range("F" & cont).Value = "TOTEN 1"
Range("F" & cont).Copy
cont = cont + 1
Range("F" & cont, "F" & conts).PasteSpecial[/CODE]

Abraços e mais uma vez obrigado