Página 1 de 1

Aba ativa

Enviado: 14 Ago 2021 às 22:39
por Campolino
Tenho uma pasta de trabalho com dezenas de abas, algumas delas chamam um formulário, ou seja, um formulário serve para várias abas. Após preenche as informações solicitadas nesse formulário necessito retornar a aba que o chamou.
Como faço para garantir esse retorno? Quando eu coloco o codenome não há probema, porém ele vária. Então pensei em usar ActiveSheet.CodeName no entanto não é possível seta-lo Set ws = ActiveSheet.CodeName, gera erro.
Abaixo envio código com codinome de aba HO, assim funciona, porém como falei se for a aba HB que chama então ele retorna para aba errada.

Alguém pode auxiliar-me?


Private Sub Btn_Ok_Click()

Dim ws As Worksheet

Set ws = HO
ws.Select

End sub

Re: Aba ativa

Enviado: 15 Ago 2021 às 09:09
por osvaldomp
Experimente ~~~> Set ws = ActiveSheet

Re: Aba ativa

Enviado: 16 Ago 2021 às 00:45
por Campolino
Ola, Osvaldo
Não é possível usar - Set ws = ActiveSheet
Dá erro

Re: Aba ativa

Enviado: 16 Ago 2021 às 08:07
por osvaldomp
Código: Selecionar todos
Sub teste()
 Dim ws As Worksheet
  Set ws = ActiveSheet
  'rode o código via F8 e neste ponto mude manualmente a planilha ativa, _
   em seguida continue a rodar o código
  ws.Activate
End Sub
Se você ainda assim não conseguir então disponibilize o seu arquivo Excel.

Re: Aba ativa

Enviado: 18 Ago 2021 às 23:19
por Campolino
Osvaldo
Obrigado
Consegui.