Usuário com melhor resposta
Estiquetas personalizadas no Excel usando VBA...

Pergunta
-
Boa tarde galera.
Sou novato no VBA mas mexo todo dia pra me aprimorar.
Trabalho em uma escola e tenho tentado fazer melhorias nas condições de serviço da Secretaria. Tudo é muito arcaico e estou informatizando toda documentação. Estou apanhando na realização de uma função simples (pra vocês), mas que complicou pra mim. Criei etiquetas no excel para os prontuários, dentro dos padrões das antigas, porém decidi que digitar toda vez uma nova etiqueta é demais. Tenho todos os dados dos alunos em um Banco de dados no Access e quero colocar nas etiquetas os devidos campos. Nessa planilha, formatei 6 etiquetas por folha A4, para economizar papel. Criei um form para execução da inserção de dados, mas só consigo colocar os dados na 1ª etiqueta, pois qdo clico em gravar, na teoria ele deveria pular para a 2ª etiqueta, pois a 1ª está cheia, mas isso não acontece, ele sobrepõe as informações na 1ª. Se é que entenderam o que disse, me ajudem por favor. Grato desde já.
Respostas
-
Pelo que você escreveu você já fez um formulário e, deve ter feito, consequentemente, algum codigo VBA.
Se o fez, e foi em Excel, faça assim:
No seu formulário crie um botao OK, por exemplo e coloque o codigo (adaptando-o a sua necessidade) abaixo (é bem simples, mas me ajuda muito - acho que irá ajudá-lo também)
proximoId = PegaProximoId
'pega a próxima linha
proximoIndice = wsCadastro.UsedRange.Rows.Count + 1
Call SalvaRegistro(proximoId, proximoIndice)
TxtNum = proximoIdSe quiser passa um e-mail que eu te mando o resto do código: piatek.sarno@yahoo.com.br
Abs
- Sugerido como Resposta Leandro Baldocchi sexta-feira, 15 de outubro de 2010 14:22
- Marcado como Resposta Hezequias VasconcelosModerator terça-feira, 11 de dezembro de 2012 13:10
Todas as Respostas
-
Pelo que você escreveu você já fez um formulário e, deve ter feito, consequentemente, algum codigo VBA.
Se o fez, e foi em Excel, faça assim:
No seu formulário crie um botao OK, por exemplo e coloque o codigo (adaptando-o a sua necessidade) abaixo (é bem simples, mas me ajuda muito - acho que irá ajudá-lo também)
proximoId = PegaProximoId
'pega a próxima linha
proximoIndice = wsCadastro.UsedRange.Rows.Count + 1
Call SalvaRegistro(proximoId, proximoIndice)
TxtNum = proximoIdSe quiser passa um e-mail que eu te mando o resto do código: piatek.sarno@yahoo.com.br
Abs
- Sugerido como Resposta Leandro Baldocchi sexta-feira, 15 de outubro de 2010 14:22
- Marcado como Resposta Hezequias VasconcelosModerator terça-feira, 11 de dezembro de 2012 13:10
-
Luiz,
Se você criou o formulário com o assintente do access. Antes de inserir os dados do novo aluno você deve clicar no botão incluir, geralmente representado por uma seta para a direita e um asterisco amarelo. Assim, um novo registro será criado para a inserção dos dados.
Rafael Gomes dos Santos Consultor de Informática MCAS - Microsoft Certified Application Specialist rafael.gomes.santos@gmail.com https://sites.google.com/site/pfntec/