Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Ajuda Macro

Ir para baixo 
AutorMensagem
nmareis




Mensagens : 5
Data de inscrição : 20/03/2014

Ajuda Macro Empty
MensagemAssunto: Ajuda Macro   Ajuda Macro EmptyDom 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 ?
Ir para o topo Ir para baixo
 
Ajuda Macro
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» AJUDA COM MACRO
» Ajuda com Macro
» Ajuda Urgente - Range em Macro
» planilha receitas e despesas macro VBA(AJUDA)
» Ajuda!? Fazer uma Macro que busque nomes iguais na tabela 1 e insira na tabela 2 um único nome juntamente com seus valores.

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: