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  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Conectar-se  

Compartilhe | 
 

 Ajuda Macro

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
nmareis



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

MensagemAssunto: 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 ?
Voltar ao Topo Ir em baixo
Ver perfil do usuário
 
Ajuda Macro
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» Ajuda com ranks
» Me ajuda aqui por favor
» Ajuda com rank
» aff alguem me ajuda pf
» Alguém me ajuda é super,super urgente !!!

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: