Bom dia,
Estou a tentar criar um ficheiro, de onde vou extrair alguma informação de uma lista corrida com os meses todos misturados. Ou seja, no mês de Agosto vou querer ver a informação do mês 8, sem fazer sorts, pivots tables.
Já tive uma excelente ajuda para criar um botão. Mas não estou a conseguir associar ao meu excel. A linha dos títulos está na linha 5 e tenho imensas linhas. Da ajuda que me deram, mudei apenas as células (A5:Y100000). No meu excel o mês está na coluna Y e tem o nome de Periodo. Outra coisa que reparei e não mencionei quando pedi ajuda, é que cada linha tinha de ter uma numeração de 010, 020, 030,….Como posso através do botão, seleccionar o mês que pretendo (ajuda abaixo) e ao mesmo tempo numerar-me as linhas de 010, 020, 030…?
Muito obrigada pela vossa ajuda
Sub Retânguloarredondado2_Click()
Dim vMes As Variant
Range(“A5:Y100000″).AutoFilter
vMes = InputBox(Prompt:=”Digite o mês pretendido” & Chr(10) & “Apenas clicar em OK, sai sem filtrar”)
If vMes = “” Then
Exit Sub
End If
With Range(“A5:Y100000”)
.AutoFilter
.AutoFilter Field:=1, Criteria1:=vMes
End With
End Sub