Ir para conteúdo
Fórum Script Brasil

Enunes

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre Enunes

Enunes's Achievements

0

Reputação

  1. Bom dia pessoal,Trabalho com dois monitores, e no segundo ficará passando indicadores com troca de aba com a VBA abaixo, antes quando abria outra planilha trocava a aba da ativa, porém alterei e agora só altera da que eu quero, porém o cursor da planilha aberta no monitor principal sai do foco, ou se estou em edição nela a "apresentação" na outra planilha para. Preciso que a macro de troca de abas fique rodando somente em uma planilha, e eu possa trabalhar tranquilamente em outras.segue o código.Public altern As Date, i As LongSub AlternaPlans()With ThisWorkbook.Sheets("Emb.Modalidade")If i = 0 Theni = 1End Ifaltern = Now + TimeValue("00:00:10")Application.OnTime altern, "AlternaPlans"ThisWorkbook.Sheets(i).ActivateIf i < Sheets.Count Theni = i + 1Else: i = 1End IfEnd WithEnd SubSub DeslAlterna()On Error Resume NextApplication.OnTime earliesttime:=altern, procedure:="AlternaPlans", schedule:=FalseMsgBox "Apresentação Desligada", vbInformation, "Status"End Sub
×
×
  • Criar Novo...