Ir para conteúdo

A partir do dia 19/11/2018, o foco do Fórum do BABOO é apenas Windows e Segurança Digital conforme informado no início de 2018.
As áreas que não têm relação com esses dois assuntos foram arquivadas e seus tópicos estão disponíveis para consulta na área Tópicos Antigos.

JGrande

Macro cópia + impressão + salvar planilha + loop

Mensagem Recomendada

Olá, pessoal!

Eu tentei desenvolver essa macro durante horas, mas não consegui. =(
Será que alguém pode me ajudar? 😃

Bom eu preciso que a macro, faça um misto de operações.

Copiar uma célula colar em outra planilha, depois imprimir com o tamanho ideal para papel ofício, em seguida salvar em pdf e excel e salvar os arquivos em pdf em uma pasta e os de excel em outra pasta e depois disso voltar para a planilha inicial e copiar a célula abaixo da célula inicial (ou seja, vai seguindo a sequência, A2, A3, A4 etc) e refazer todo o procedimento.

De uma forma mais organizada e detalhada, é isso que eu preciso que a macro faça!

01. selecionar planilha "BASE"
02. copiar célula A2
03. selecionar planilha "PROPOSTA"
04. colar na célula E7
05. manter o ajuste da página para caber em uma folha de papel ofício
06. imprimir duas cópias
07. salvar em pdf com o nome da célula X7 da planilha "PROPOSTA" em uma nova pasta chamada: "PONTO EXTRA PDF - (NOME DO MÊS ATUAL)" que deve estar localizada dentro da pasta onde está a planilha com a macro
08. salvar em um novo arquivo de excel com o nome da célula X7 da planilha "PROPOSTA" em uma nova pasta chamada: "PONTO EXTRA - (NOME DO MÊS ATUAL)" que deve estar localizada dentro da pasta onde está a planilha com a macro
09. seleciona planilha "BASE"
10. loop para início, porém vai copiar a célula A3 (quando uma célula da sequência de A2, A3, A4 estiver em branco parar o procedimento de loop)

 

 

Conto com a ajuda de vocês! 
Desde já, muito obrigado!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Até o momento consegui desenvolver a seguinte solução.

Mas está bem incompleta em relação ao que eu preciso.

Sub IMPRESSAO_AUT()
'
' PXTR Macro
' Imprimir PXTR Automaticamente.
'
' Atalho do teclado: Ctrl+l
'
    Sheets("BASE").Select
    Range("A2").Select
    Selection.Copy
    Sheets("PROPOSTA").Select
    Range("E7").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("BASE").Select
    Rows("2:2").Select
    Selection.Delete Shift:=xlUp
    Sheets("PROPOSTA").Select
End Sub

Editado por JGrande

Compartilhar este post


Link para o post
Compartilhar em outros sites

O código abaixo faz o trabalho do código que você postou.

Sugiro que você grave uma ou mais macros com as demais operações que você precisa e coloque os códigos aqui se precisar de ajustes.

Sub teste()
 Sheets("PROPOSTA").Range("E7").Value = Sheets("BASE").Range("A2").Value
 Sheets("PROPOSTA").PrintOut Copies:=2
 Sheets("BASE").Rows(2).Delete
End Sub

 


 

Osvaldo

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

×