Página 1 de 1

Preencher e Imprimir Cartão Ponto

Enviado: 26 Set 2017 às 11:56
por KevinMoser
Bom dia!

Preciso de uma ajuda em um arquivo que estou elaborando... A ideia é que com base na seleção da Caixa de Listagem (Nome do Funcionário) e da Caixa de Combinação (Mês) seja feito o preenchimento do cartão ponto do funcionário e em seguida a impressão do mesmo.

A planilha possui 4 abas:

- Frente (frente do cartão ponto, onde será feita a colagem dos dados coletados)
- Quadro de Funcionários (onde consta a tabela com os dados que serão coletados)
- Verso (verso do cartão ponto)
- Datas (datas de feriados e finais de semana)

Processo:

Inicio o programa, seleciono o nome do funcionário na caixa de listagem, seleciono o mês na caixa de combinação e aperto o botão "Imprimir Seleção".
Assim o procedimento seria (imagino eu) utilizar um VLookup (PROCV), com base na seleção da Caixa de Listagem, na tabela de dados aba "Quadro de Funcionários" para encontrar os dados e colar estes nas células em vermelho aba "Frente". E também copiar o valor selecionado na Caixa de Combinação e cola-lo na célula B10 da aba "Frente". Feito isso, iniciar a impressão.

Adicionei também o botão "Imprimir Tudo", que deve realizar o mesmo procedimento, porém para cada um dos valores na Caixa de Listagem (independente da seleção) e usar somente o valor selecionado na Caixa de Combinação.

Em anexo a planilha.

Preencher e Imprimir Cartão Ponto

Enviado: 02 Out 2017 às 16:21
por KevinMoser
Alguém? Devo postar aqui o código até então?

Re: Preencher e Imprimir Cartão Ponto

Enviado: 02 Out 2017 às 22:53
por babdallas
Por favor, detalhe o que você quer. Por exemplo, quer que cole a informação da coluna X da planilha Quadro de Funcionários na célula Y da planilha Frente.
Se possível, faça um exemplo manual para mostrar como você quer que fique, usando algum dos nomes que contém no quadro de funcionários.

Re: Preencher e Imprimir Cartão Ponto

Enviado: 04 Out 2017 às 14:51
por KevinMoser
1. Gostaria que copiasse as informações contidas na tabela "Quadro" e colasse na planilha "Frente".

1ºExemplo: Seleciono um funcionário na Caixa de Listagem, Adriane Carmem no caso, informo o mês na Caixa de Combinação e clico no botão Imprimir Seleção.

Execução
- Copia da planilha "Quadro" célula B3 para planilha "Frente" célula A5;
- Copia da planilha "Quadro" célula C3 para planilha "Frente" célula B7;
- Copia da planilha "Quadro" célula D3 para planilha "Frente" célula C7;
- Copia da planilha "Quadro" célula E3 para planilha "Frente" célula E7;
- O mês selecionado na Caixa de Combinação, seria adicionado na célula A11 da planilha "Frente".

Feita a colagem, em seguida gostaria que isso fosse impresso automaticamente, intervalo A1:H35.

2º Exemplo: Ao invés de selecionar algum funcionário, gostaria de imprimir todos.

Imagem

Re: Preencher e Imprimir Cartão Ponto

Enviado: 04 Out 2017 às 22:27
por babdallas
Veja se ajuda. Não deu para testar, pois estou sem impressora em casa. Qualquer problema é só falar.

Preencher e Imprimir Cartão Ponto

Enviado: 05 Out 2017 às 17:17
por KevinMoser
Quase lá! O botão 'Imprimir Tudo' está funcionando perfeitamente pelo que testei, imprimi tudo certinho... já o botão 'Imprimir Seleção' está dando erro. O problema está nessa linha:

lngLin = Application.WorksheetFunction.Match(.List(.ListIndex, 1), Plan6.Cells("B:B").Value, 0)

Meio que entendi a lógica, mas como nunca usei .List não sei como fazer.
Obrigado até então babdallas!
Fico no aguardo.

Re: Preencher e Imprimir Cartão Ponto

Enviado: 05 Out 2017 às 22:18
por babdallas
Testa agora, por favor.

Preencher e Imprimir Cartão Ponto

Enviado: 06 Out 2017 às 10:00
por KevinMoser
Ainda não encontra o funcionário

Re: Preencher e Imprimir Cartão Ponto

Enviado: 06 Out 2017 às 10:12
por babdallas
Acabei de testar o arquivo e está funcionando adequadamente. Não entendi como pode estar dando erro aí. Tem certeza que rodou o último arquivo que enviei? Você selecionou o funcionário na listbox para depois apertar o botão Imprimir?

Re: Preencher e Imprimir Cartão Ponto

Enviado: 06 Out 2017 às 15:49
por KevinMoser
Infelizmente o ultimo arquivo realmente não deu certo pra mim :/ diz que o funcionário não foi encontrado... Mas não tem problema! consegui fazer de outra forma! agora está praticamente pronta, só há mais um problema... Ainda é possivel que a pessoa não preencha o ComboBox (cbxMes) e imprima do mesmo jeito, o que causa erros na planilha... Preciso que o ComboBox onde é informado o mês seja de preenchimento obrigatório, caso contrário não será possivel imprimir.

Estou anexando a planilha original que uso já com o código até então.

Re: Preencher e Imprimir Cartão Ponto

Enviado: 07 Out 2017 às 16:49
por babdallas
Veja se é isso.