Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Problemas com macro...
 
Notifications
Clear all

Problemas com macro ao ocultar planilha

 
2024 - VBA & Macros
6 Posts
2 Usuários
0 Reactions
1,301 Visualizações
RSS
 tecnico
(@tecnico)
Posts: 0
New Member
Topic starter
 

Olá pessoal

Estou tentando trabalhar esta parte de oculta- las

Dei uma mexida no código,e ficou assim:

Sub Gerar_OS()
    ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = ActiveSheet.Range("A1").Value
    ActiveWindow.SelectedSheets.Visible = False
    ' Voltar Macro
    Sheets("Ordem de Serviço").Select
End Sub

O que acontece!

Na primeira vez que uso, ele realiza tudo maravilhosamente, salvando a nova planilha com o nome "0001", mais quando peço para salvar a "0002", ele salva,
mais renomeia a "0001" para "Ordem de Serviço 2".

Como posso corrigir isso?

 
Postado : 09/04/2015 12:52 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Regras do forum:

• Upload
Devido a ultrapassagem da marca de 1,5Gb de armazenamento de arquivos na hospedagem do Planilhando, limitaremos o tamanho de cada arquivo para 2Mb sendo obrigatório o uso dos formatos .zip - .rar - .ice visto a gratuidade e não geração de recursos para bancar o site.

Assim sendo, todos os anexos deste tópico foram compactados.

Por favor leia as regras (link na minha assinatura), e passe a compactar todos os seus anexos.

Obrigado,

Fernando

 
Postado : 09/04/2015 1:08 pm
 tecnico
(@tecnico)
Posts: 0
New Member
Topic starter
 

Desculpe, vou me atentar na proxima.

 
Postado : 09/04/2015 1:19 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Alem da assitencia do Fernando, eu realmente não entendi qual a sua duvida, o assunto diz "Problemas com macro ao ocultar planilha" e depois você coloca :
"Na primeira vez que uso, ele realiza tudo maravilhosamente, salvando a nova planilha com o nome "0001", mais quando peço para salvar a "0002", ele salva,
mais renomeia a "0001" para "Ordem de Serviço 2".
Como posso corrigir isso?"

O problema é com ocultar planilha ou Salvar ?

Nas linhas que colocou, você tem a instrução :
"ActiveWindow.SelectedSheets.Visible = False"
mas não está reexibindo para continuar com outras ações, talvez esteja ai o X do problema.

[]s

[]s

 
Postado : 09/04/2015 1:20 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite Tecnico

Me responda uma coisa, o tópico:

viewtopic.php?f=10&t=15075&p=79029#p79029

é sobre o mesmo assunto?

Se for, porque abandonou aquele tópico e criou outro sobre o mesmo assunto, contrariando as regras do fórum?

Aguardo resposta.

Patropi - Moderador

 
Postado : 09/04/2015 6:43 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia,

Você não foi muito claro na sua dúvida...

veja se o código abaixo te adente:

Sub Gerar_OS()
    'Aquisita o nome da aba atual
    Dim Nome As String
    Nome = ActiveSheet.Name
    'Copia a aba
    ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
    Worksheets(Nome & " (2)").Name = ActiveSheet.Range("A1").Value
    'Ocultar a OS criada ...?
    Worksheets(CStr(ActiveSheet.Range("A1").Value)).Visible = False
    ' Voltar Macro
    Sheets(Nome).Select
    'Incrementa o contador de OS
    Sheets(Nome).Range("A1").Value = Format(Sheets(Nome).Range("A1").Value + 1, "0000")
End Sub
 
Postado : 10/04/2015 6:45 am
Forum Jump:
  Tópico Anterior
Próximo Tópico