Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Referencia de varia...
 
Notifications
Clear all

Referencia de variavel com data.

 
2024 - VBA & Macros
Post Recente por bellizzi 10 anos atrás
3 Posts
2 Usuários
0 Reactions
1,065 Visualizações
RSS
 bellizzi
(@bellizzi)
Posts: 0
New Member
Topic starter
 

Amigos, bom dia.

Estou criando um código e estou tendo o seguinte problema, possuo uma célula que possui datas. Ao declarar uma variável para esta célula, o código irá fazer o seguinte:
- se a data da variavel for menor que 01/08/2014, abre uma planilha
- se a data da variavel for maior ou igual a 01/08/2014 abre outra planilha.

Ambas as planilhas a serem abertas são da mesma pasta de trabalho e a variavel está em uma pasta de trabalho diferente.
Até o momento o meu código é o seguinte:

Sub intpesquisa()

Dim var1 As Integer
Dim var2 As Integer
Dim var3 As Date

'chamar a planilha de controle de vagas 2014 (R&S)

Workbooks("Controle de Vagas 2014.xlsx").Worksheets("2014!").Activate

Range("d2").Select 'seleciona inicialmente a celula d2
var1 = ActiveCell.Value 'ativa o valor da celula como variavel
ActiveCell.Offset(0, -1).Select 'seleciona celula
var3 = ActiveCell.Value 'declara variavel data

Workbooks("Novo controle de Formulários RP - MP.xlsm").Worksheets("2013 2014!").Activate

End Sub

 
Postado : 12/12/2014 9:19 am
 Reinaldo
(@rlm)
Posts: 0
New Member
 

Não entendi direito.
Ambos arquivos/planilhas já estão abertos, e o obetivo é selecionar/ativar uma determinada folha/sheet se um determinado valor atender a condição?
Poderia ser algo +/- assim

Sub intpesquisa()

Dim var1 As Integer
Dim var2 As Integer
Dim var3 As Date

'chamar a planilha de controle de vagas 2014 (R&S)

With Workbooks("Controle de Vagas 2014.xlsx").Worksheets("2014!")
    If .Range("d2").Value > Date Then
        Workbooks("Novo controle de Formulários RP - MP.xlsm").Worksheets("2013 2014!").Activate
    ElseIf .Range("d2").Value < Date Then
        Workbooks("Pasta1").Worksheets("Plan2").Activate
    Else
        MsgBox "planilha não encontrada"
    End If
End With


End Sub
 
Postado : 12/12/2014 10:37 am
 bellizzi
(@bellizzi)
Posts: 0
New Member
Topic starter
 

Não entendi direito.
Ambos arquivos/planilhas já estão abertos, e o obetivo é selecionar/ativar uma determinada folha/sheet se um determinado valor atender a condição?
Poderia ser algo +/- assim

Sub intpesquisa()


A intenção é ao clicar em uma célula da culuna D, a var1 assuma o valor desta celula, seja abra outra pasta de trabalho ou mude para ela caso já esteja aberta, e seja feito um auto filtro com este valor.

Sendo que nesta pasta de trabalho que será aberta possuo duas planilhas, uma que começa em 01/08/2014 e outra que vai da data de dez/2012 até 31/07/2014. Por isso a var3 é uma data e, que dependendo do valor desta, será aberta a rotina para a respectiva planilha.

                                                                                                	                                                

                                                        
 
Postado : 12/12/2014 10:54 am
Forum Jump:
  Tópico Anterior
Próximo Tópico