Estiquetas personalizadas no Excel usando VBA...

Question

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á.

Answer 1

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 = proximoId

 

Se quiser passa um e-mail que eu te mando o resto do código: [e-mail]

Abs

Answer 2

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 [e-mail] https://sites.google.com/site/pfntec/