Notifications
Clear all

Criar botão de salvar

18 Posts
2 Usuários
0 Reactions
7,098 Visualizações
(@polly)
Posts: 21
Eminent Member
Topic starter
 

Gente...

Tenho uma pasta de trabalho com várias planilhas. Em uma dessas planilhas, gostaria de criar um botão para salvar apenas ela e que, quando fosse salvar, ele buscasse em uma célula (d7) o nome que está nela e salvasse juntamente com o nome da planilha. Não sei como faço isso, mas, me disseram que tem como.

 
Postado : 03/07/2012 6:15 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

essa célula D7 está numa planilha, óbvio, rs, qual o nome dessa planilha?

F.F.

 
Postado : 03/07/2012 6:29 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Lembrando que se for anexar o arquivo o mesmo deve ser COMPACTADO, regras do fórum!!

Vou mover seu tópico por se tratar de macros, OK?

Att

 
Postado : 03/07/2012 6:38 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Segue sugestão.

 
Postado : 03/07/2012 6:46 am
(@polly)
Posts: 21
Eminent Member
Topic starter
 

essa célula D7 está numa planilha, óbvio, rs, qual o nome dessa planilha?

F.F.

O nome da planilha é Controle de Notas, e o que quero buscar na célula D7 é o mês que é informado lá.

 
Postado : 03/07/2012 6:47 am
(@polly)
Posts: 21
Eminent Member
Topic starter
 

Anderson Olegario..

Ficou bom, só que não está salvando com o nome que está na célula D7 e outra, nos controles de notas os nomes são variáveis, portanto, queria que salvasse com o nome do arquivo mais o nome da célula D7. Ficou complicado néh?

 
Postado : 03/07/2012 6:54 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Polly,
alterei o código do Anderson, troque o código por este daqui:

Sub SalvarPlan()
Dim sht         As Worksheet
Dim strPasta    As String
Dim strNome     As String

    With ThisWorkbook
        Set sht = .Worksheets("Controle de Notas")
        strPasta = .Path
    End With
    
    With sht
        strNome = .Name & " " & VBA.UCase(VBA.Format(VBA.Month(.Range("D7").Value), "MMMM"))
        sht.Copy
    End With
    
    ActiveWorkbook.SaveAs Filename:=strPasta & "" & strNome & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
        
    Set sht = Nothing
End Sub

E saiba, este cõdigo não verifica se o arquivo já existe, ou seja, se for rodar uma segunda vez, vai dar pau. Vc precisará sempre apagar o arquivo ou move-lo, antes de rodar o botão de novo.

 
Postado : 03/07/2012 7:33 am
(@polly)
Posts: 21
Eminent Member
Topic starter
 

Gente...
Fiz um modelo rápido da planilha que uso (a original está em casa), mas é basicamente o que descrevo no modelo. Espero que possam me ajudar.

 
Postado : 03/07/2012 8:36 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Polly,

Veja se assim te atende.

F.F.

 
Postado : 03/07/2012 8:42 am
(@polly)
Posts: 21
Eminent Member
Topic starter
 

ferando.fernandes, é exatamente isso que preciso, porém, quero que CONTROLE DE NOTAS apareça resumido Ex.: C.N e também pegue o nome do aluno.
Ex: C.N Fulano - Dezembro.

 
Postado : 03/07/2012 9:01 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

nome de qual aluno?
A planilha CONTROLE DE NOTAS não tem nome do fulano, só na outra, q é CONTROLE DE NOTAS FULANO

 
Postado : 03/07/2012 9:29 am
(@polly)
Posts: 21
Eminent Member
Topic starter
 

nome de qual aluno?
A planilha CONTROLE DE NOTAS não tem nome do fulano, só na outra, q é CONTROLE DE NOTAS FULANO

assim... queria que ela buscasse o nome do aluno na célula b8

 
Postado : 03/07/2012 9:31 am
(@polly)
Posts: 21
Eminent Member
Topic starter
 

fernando.fernandes... creio que agora seja apenas um pequeno detalhe no código proposto para que funcione como eu desejo.

 
Postado : 03/07/2012 10:11 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

cara to meio afastado do forum.
estão reaparecendo uns mostro que tavam imbernando.rsrsrsrsrs!!!!

 
Postado : 03/07/2012 10:41 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Mas Polly,

a planilha "Controle de Notas" não tem nada na célula B8.
Vou fazer assim, vou adaptar pra incluir o conteúdo da célula B8, mesmo que esteja vazio.
Daí, uma vez que esta célula seja preenchida, vc salva e o nome aparecerá certinho, ok?

Segue pasta de trabalho compactada.

 
Postado : 03/07/2012 10:50 am
Página 1 / 2