nmareis
Mensagens : 5 Data de inscrição : 20/03/2014
| Assunto: Ajuda Macro Dom Mar 05, 2017 3:19 am | |
| Boa noite pessoal, tenho este código: - Código:
-
Sub Macro1() ' ' Macro1 Macro '
' Windows("Livro 3.xlsx").Activate ActiveSheet.Range("$B$1:$R$6").AutoFilter Field:=13, Operator:= _ xlFilterValues, Criteria2:=Array(2, "3/1/2017") Windows("Livro 2.xlsx").Activate Range("L17").Select ActiveSheet.Range("$B$1:$R$6").AutoFilter Field:=13, Operator:= _ xlFilterValues, Criteria2:=Array(2, "3/1/2017") Windows("Livro 1.xlsx").Activate ActiveSheet.Range("$B$1:$R$12").AutoFilter Field:=13, Operator:= _ xlFilterValues, Criteria2:=Array(2, "3/1/2017") Range("H20").Select Windows("Livro Final.xlsm").Activate End Sub e pretendo colocar nele uma uma InputBox - Código:
-
Dim sData As String
sData = InputBox("Digite sua data") isto com o objetivo de apenas colocar a data uma só vez e em todos os ficheiros acontece o filtro por data automáticamente. alguém me pode ajudar ? | |
|