Excel Macro para abrir modelos específicos de ofícios

[Wilken Perez Filho]

Boa tarde,

Gostaria de uma ajuda de vocês... Eu estou com uma ideia de criar uma macro no Excel voltado para ofícios.

Deixe eu explicar melhor, a minha ideia é para facilitar o atendimento aqui na Caixa Econômica em relação aos ofícios emitidos pela justiça ou outros órgãos públicos.

Daí, a ideia seria reduzir o tempo de ficar buscando ofícios antigos para servir de modelos para novos ofícios para determinado assunto.

Aí a macro teria a opção de escolher qual o tipo de ofício o usuário estaria procurando, por exemplo "Transferências de Valores" "Informações cadastrais" e outros modelos.

Já tenho aqui os modelos separados, mas a ideia seria colocar botões para abrir os modelos diretamente do Excel e com a opção de imprimir.

 

Espero ter explicado direito... Me ajudem, por favor!

 

Abraços!

[CasaDoHardware]

Se estiverem todos no mesmo arquivo é bem simples

Crie uma lista com os nomes dos documentos coloque estes mesmos nomes nas guias

 

Precisa ser exatamente iguais.

 

 

Coloque uma validação em uma celula que carregue esta lista. 

No exemplo vou considerar A2

 

Coloque este codigo em um botao.

Sub Imprimir()

 

Dim WS as worksheets

Dim Oficio as string

 

Oficio = Range("A2").value

 

For each ws in worksheets

 

if ws.name = oficio then

 

ws.printout

 

end if

 

End sub

 

Selecione o tipo em A2 e clique no botao.

 

 

 

 

 

 

 

 

 

 

 

 

[Wilken Perez Filho]

Boa tarde,

Eu vou tentar fazer isso amanhã no horário de trabalho (Eu tenho os modelos salvos no meu computador de trabalho).

Qualquer coisa eu aviso qualquer dúvida que aparecer.

 

Abraços!