Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Criar novas guias (...
 
Notifications
Clear all

Criar novas guias (Banco de dados) e oculta- las

 
2024 - VBA & Macros
Post Recente por tecnico 10 anos atrás
8 Posts
2 Usuários
0 Reactions
1,487 Visualizações
RSS
 tecnico
(@tecnico)
Posts: 36
Eminent Member
Topic starter
 

Bom dia pessoal, nesta planilha em anexo, estou querendo criar um banco de dados.

Não faço ideia se da para fazer de outra maneira. Então pensei em salvar novas guias toda vez que gero uma nova ordem de serviço.
Por exemplo, se alterar o numero da OS de 0099 para 0100, e clicar em Gerar, ela cria uma nova guia com o nome 0100.

O que eu quero para poder deixar minha planilha organizada é gerar a nova guia, limpa a atual, para poder ficar pronta para uma nova planilha. e Ainda ocultar as que criei, para que não fique muito poluida minha planilha no geral.
Isso tudo com botões.

Alguem tem ideia de como fazer isso?

Att

 
Postado : 20/03/2015 7:02 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Seria isso?

Sub AleVBA_15075()
Dim sht As Object
    For Each sht In Sheets
        If sht.Name <> "Ordem de Serviço" Then
            sht.Visible = xlSheetHidden
        End If
    Next sht
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/03/2015 8:11 am
 tecnico
(@tecnico)
Posts: 36
Eminent Member
Topic starter
 

Eu dei uma alterada, na verdade incorporei no que eu já tinha. O que acha, da para melhorar?

Sub Gerar_OS()
    ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
    Worksheets(Worksheets.Count).Name = ActiveSheet.Range("A1").Value
    ' Voltar Macro
    Sheets("Ordem de Serviço").Select
Dim sht As Object
    For Each sht In Sheets
        If sht.Name <> "Ordem de Serviço" Then
            sht.Visible = xlSheetHidden
        End If
    Next sht
End Sub
 
Postado : 20/03/2015 2:09 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Na aparência está ótimo!

Ao testar, lhe atendeu?

Se sim, eu creio que não necessidade de melhoria.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/03/2015 8:17 pm
 tecnico
(@tecnico)
Posts: 36
Eminent Member
Topic starter
 

Tenho agora outras planilhas com o nome Cadastro, Relatórios, etc..
E tenho na mesma pasta de trabalho outra que são numéricas que quero ocultar, que são as 001, 0002, 0003, etc...

Como posso fazer apenas as numéricas serem ocultadas?

 
Postado : 30/03/2015 1:34 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Tente usar um operador de lógica do tipo IF

If sht.Name <> "0001" and "0002"Then

etc.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 30/03/2015 2:37 pm
 tecnico
(@tecnico)
Posts: 36
Eminent Member
Topic starter
 

Como assim, minha planilha original, tem mais de 170 numeros, ela esta indo de 0001 a 0170 e vai aumentar mais!

 
Postado : 30/03/2015 2:48 pm
 tecnico
(@tecnico)
Posts: 36
Eminent Member
Topic starter
 

Estou tentando trabalhar esta parte de oculta- las

Dei uma mechida 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 : 06/04/2015 8:28 am
Forum Jump:
  Tópico Anterior
Próximo Tópico