Notifications

Clear all

Ajuda com preenchimento de tabela

2024 - VBA & Macros

Post Recente por suggos 9 anos atrás

8 Posts

3 Usuários

0 Reactions

1,172 Visualizações

RSS

pmlv

(@pmlv)

Posts: 6

Active Member

Topic starter

Boas,

Estou com problemas ao tentar preencher uma tabela através de uma macro.

Tabela de origem - Plan1

código descrição qtd
1 AA 1
2 BB 2
3 CC 1
4 DD 3
5 EE 5
6 FF 4
7 GG 6
8 HH 7
9 II 1
10 II 1

Tabela final para impressão - Plan2

Tenho o cabeçalho da tabela e mais 8 linhas
código descrição qtd
linha1
linha2
linha3
linha4
linha5
linha6
linha7
linha8

O que eu pretendia é que ao criar um botão para impressão ele copiasse todos os valores da plan1 e colasse automáticamente na tabela da plan2, mas o meu problema é que na plan2 so posso ter um máximo de 8 linhas, ou seja, o restante teria de ser reproduzido noutra folha, utilizando o mesmo template.

exemplo de impressão

Folha impressa 1
código descrição qtd
1 AA 1
2 BB 2
3 CC 1
4 DD 3
5 EE 5
6 FF 4
7 GG 6
8 HH 7

Folha impressa 2
código descrição qtd
9 II 1
10 II 1

Podem ajudar?

Cumprimentos,

Postado : 12/11/2015 6:06 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Bom dia!!

'não testado!
'Não foi executado o comando para imprimir (Use [code].PrintOut[/code])
Sub AleVBA_18102()
    Worksheets("Plan1").UsedRange.Copy Worksheets("Plan2").Range("A1").End(xlDown).Offset(1, 0)
    For MY_ROWS = 2 To Range("A65536").End(xlUp).Row Step 8
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("A" & MY_ROWS)
    Next MY_ROWS
End Sub

Para imprimir leia:
https://msdn.microsoft.com/en-us/librar ... 38253.aspx
http://www.rondebruin.nl/win/s9/win010.htm

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 12/11/2015 8:06 am

pmlv

(@pmlv)

Posts: 6

Active Member

Topic starter

Obrigado pela ajuda alexandrevba, mas não é bem isso que pretendia.

Pode dar uma olha no meu ficheiro http://www.wikiupload.com/GL8EFS474SGYGQC que coloquei para vocês verem.

O que eu pretendo mesmo, é o seguinte:

- Na plan1 existe a base de dados,
- Na plan2 existe o "template";
- Eu pretendo imprimir a listagem automaticamente para o template, usando por exemplo um X na coluna A;
- Se colocar diversos X na coluna A ele passava todas essas linhas para o template, mas se mais de oito X selecionados, ele teria de criar uma segunda folha plan2 para colocar o resto da informação, porque no template apenas tem 8 linhas.

Pode ajudar?

Obrigado

Postado : 12/11/2015 2:24 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Boa tarde!!

No trabalho eu não tenho acesso a portais de hospedadem de arquivo e etc.

Caso puder, poste o arquivo aqui no fórum!!

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 12/11/2015 2:34 pm

pmlv

(@pmlv)

Posts: 6

Active Member

Topic starter

Desculpa, não sabia que dava para anexar aqui.

Aqui tem o ficheiro se puder ajudar.

Postado : 12/11/2015 2:51 pm

pmlv

(@pmlv)

Posts: 6

Active Member

Topic starter

Alguem pode ajudaR?

Postado : 14/11/2015 4:47 pm

suggos

(@suggos)

Posts: 111

Estimable Member

Não entendi por que a Plan2 não pode ter mais que 8 linhas? É apenas porque esse é o formato que cabe na folha ao imprimir? Se for isso, os dados podem ficar na Pla2 desde que a impressão seja corretamente configurada.

Não se esqueça de marcar o tópico como resolvido se a resposta for satisfatória.

Postado : 14/11/2015 6:15 pm