Jump to content

Consulta


Domingues
 Share

Recommended Posts

Domingues

Boa tarde,

Agradeço a vossa ajuda para resolver uma situação que não obtenho o resultado esperado.

Na prática consiste em abrir um ficheiro que se indica na folha "Registos". Depois de abrir o ficheiro pretendido, efetuam-se as alterações ou registos necessários e este é fechado.

Até aqui tudo bem, acontece que a seguir o ficheiro menu de trabalho deveria saltar para a folha inicial "Home", o que não acontece. 

Sub Controlo_1()

    Sheets("Registos").Select

    PathName = Range("C3").Value
    Filename = Range("C25").Value
    TabName = Range("D25").Value
    ControlFile = ActiveWorkbook.Name
    Workbooks.Open Filename:=PathName & Filename
    Sheets(TabName).Select
    
    Sheets("Home").Select
    
  End Sub

O que está a acontecer é dar erro na última ação "Sheets("Home").Select".

Será que existe uma forma simples de resolver isto.

Obrigado,

Domingues

Link to comment
Share on other sites

Sem indicação do erro que dá é difícil ajudar, mas tipicamente nessas situações o que acontece é que a folha à qual se está a tentar aceder não existe - pelo menos exatamente com esse nome.

10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Link to comment
Share on other sites

Domingues

O erro que aparece é

 

Erro em tempo de execução '9':

Subscrito fora do intervalo

Ao carregar no Depurar, marca a amarelo a "Sheets("Home").Select", bloqueando a rotina do VB.

Link to comment
Share on other sites

Eu diria que então não consegue localizar a sheet "Home" nesse Excel.

10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.