Notifications
Clear all

Gerar relatorio.

9 Posts
2 Usuários
0 Reactions
1,586 Visualizações
(@romanha)
Posts: 0
New Member
Topic starter
 

Bom dia, boa tarde, boa noite!!!

Pessoal desenvolvi um programa em VBA para fazer o controle de projeto encerrados aqui no meu setor de arquivo.
Na tela do programa que estarei anexando vocês terão uma ideia de como ficou.
O que desejo agora é gerar um relatório com o NOME DO GESTOR, NUMERO DO PROJETO, NUMERO VALE, STATUS e PROJETO IMPLANTADO.
Como faço para lançar estas informações selecionando os objetos citados?

OPS: Por motivo de política da empresa que presto serviço não posso enviar a planilha com os dados confidenciais.

Desde já agradeço a ajuda!

Att. Jason Romanha

 
Postado : 17/03/2017 8:47 am
(@romanha)
Posts: 0
New Member
Topic starter
 

Pessoal segue mais uma tela para ver se fica mais claro a minha pergunta.

 
Postado : 17/03/2017 9:31 am
(@mprudencio)
Posts: 0
New Member
 

A planilha nao precisa ter dados reais para que se possa obter ajuda, mas ela é fundamental.

Pesquise sobre rotinas de repetição para que vc consiga buscar os resultados desejados.

Do while, Do until, For Next associados a uns ifs resolve com facilidade.

 
Postado : 17/03/2017 9:38 am
(@romanha)
Posts: 0
New Member
Topic starter
 

Bom dia, boa tarde, boa noite!!

Pessoal estou precisando de um ajuda pois não estou conseguindo fazer gerar um relatorio pois a minha experiencia em VBA está limitada.
Estou enviando a planilha com os codigos se alguem puder me ajudar a formular o codigo para que possa gerar este relatorio ficarei muito agradecido.

o que desejo no codigo, enquanto o nome do gestor na TexTBox (txt_nome_gestor) for "ALEXANDRE" faça.
Do Until
If txt_nome_gestor = True Then
' gravar os dados para impressão no formulario entrada radio
var_linha1 = Sheets("Relatorio").Range("H1")
'gravar o nome do gestor no relatorio para impressão
Sheets("Documentos").Range("G2:G") = Sheets("Relatorio").Range("B4:B" & var_linha1)
'gravar numero da SE no relatorio para impressão
Sheets("Documentos").Range("A2:A") = Sheets("Relatorio").Range("C4:C" & var_linha1)
'gravar o ano no relatorio para impressão
Sheets("Documentos").Range("K2:K") = Sheets("Relatorio").Range("D4:D" & var_linha1)
'gravar o numedo DC no relatorio para impressão
Sheets("Documentos").Range("E2:E") = Sheets("Relatorio").Range("E4:E" & var_linha1)
'gravar o status no relatorio para impressão
Sheets("Documentos").Range("F2:E") = Sheets("Relatorio").Range("F4:E" & var_linha1)
'gravar o implantado no relatorio para impressão
Sheets("Documentos").Range("J2:J") = Sheets("Relatorio").Range("G4:G" & var_linha1)

Eu fiz assim só que não funciona é claro por falta de codigos me ajudem por favor

 
Postado : 20/03/2017 5:55 am
(@romanha)
Posts: 0
New Member
Topic starter
 

Pessoal, me ajuda nesta demanda estou com muito dificuldade em fazer a sintaxe para que o programa me informe o que desejo, estou enviando uma nova tela para ajuda na minha duvida.

 
Postado : 21/03/2017 8:27 am
(@mprudencio)
Posts: 0
New Member
 

Ve se isso ajuda

Fiz umas mudanças no formulario UF_Relatorio usando uma combobox ao inves de textbox

Caso tenha que inserir/remover gestores/ano basta alterar a planilha lista sem deixar celulas em branco.

 
Postado : 21/03/2017 1:16 pm
(@romanha)
Posts: 0
New Member
Topic starter
 

Bom dia!!! Marcelo!!!

Cara já me ajudou e muito agora vou estudar o que vez para pode fazer por ano.
Exemplo: Gerar o relatorio do ano de 2016 com todos os gestores que fizeram um projeto este ano.

 
Postado : 22/03/2017 8:30 am
(@mprudencio)
Posts: 0
New Member
 

Se a planilha de relatorio for o mesmo é so apagar a primeira parte do if dentro do loop.

Do while.....

if xxxxxx_
and
xxx then

Segue o codigo

end sub

E so apagar o que esta em negrito e em vermelho

 
Postado : 22/03/2017 11:07 am
(@romanha)
Posts: 0
New Member
Topic starter
 

Marcelo,

Muito obrigado cara e que Deus abençoe vc e sua familia!

 
Postado : 22/03/2017 11:34 am