Notifications
Clear all

Abrir e fechar outra planilha e retornar a determina planilh

6 Posts
2 Usuários
0 Reactions
1,282 Visualizações
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Pessoal, boa tarde!

Tenho um projeto que arquiva todos os cadastros em um único banco de dados, localizado em uma planilha na rede. Isso funciona perfeitamente.

A minha necessidade agora é:

Na planilha ''CADASTRO'' existe uma sheets nomeada como ''impressão". Eu quero que, através de um botão, seja aberta a planilha "BD_GERAL", localizada na rede, para que, através de um procv, a planilha "impressão" seja carregada.

Isso já acontecendo com o código abaixo, mas a minha dificuldade é fazer voltar para a sheets impressão da planilha "CADASTRO"

Workbooks.Open ("C:Usersalisson.jalDownloadsBD_GERAL.xlsx")

Sheets("BD_SUPERVISAO").Select 'nível supervisao

With Sheets("impressao").Select 'o erro acontece aqui (aqui eu preciso selecionar a planilha cadastro, na sheets ''impressao"

Dim selectimpressora

selectimpressora = Application.Dialogs(xlDialogPrinterSetup).Show

If selectimpressora = True Then
Range("A1:S90").Select

ActiveSheet.PageSetup.PrintArea = "$A$1:$S$90"
Application.Dialogs(xlDialogPrint).Show
End If

End With

 
Postado : 24/09/2014 12:10 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Tu já tentou

activate

?
http://www.techrepublic.com/blog/10-thi ... using-vba/
http://msdn.microsoft.com/en-us/library ... =office.15).aspx
Att

 
Postado : 24/09/2014 12:26 pm
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

Os exemplos parecem bons, mas não consegui resolver a questão.

 
Postado : 24/09/2014 1:09 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Achei a explicação um pouco confusa ou não entendi corretamente, mas pela sua roitna :

'Está abrindo o Arquivo BD_GERAL.xlsx
Workbooks.Open ("C:Usersalisson.jalDownloadsBD_GERAL.xlsx")

'Selecionando a aba BD_SUPERVISAO, que acredito pertencer ao arquivo acima,
Sheets("BD_SUPERVISAO").Select 'nível supervisao
Após selecionar não está fazendo nada...

Agora, estou supondo que a Aba "impressao" esteja em outro arquivo que já está aberto e você quer retornar a esta aba.
With Sheets("impressao").Select 'o erro acontece aqui (aqui eu preciso selecionar a planilha cadastro, na sheets ''impressao"

Então você tem de ativar o arquivo primeiro e depois selecionar a aba, tipo :
Windows("oOutroArq.xls").Activate
Sheets("impressao").Activate

Para fechar o outro arquivo seria:
Windows("BD_GERAL.xlsx").Close

Veja se é isto.

[]s

 
Postado : 24/09/2014 1:53 pm
(@lorenzon)
Posts: 355
Honorable Member
Topic starter
 

bingo!

 
Postado : 24/09/2014 2:02 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Lorenson

Só faltou você clicar na mãozinha para agradecer a boa vontade do Mauro.

[]s

 
Postado : 24/09/2014 2:09 pm