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 várias 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!
adicionado 40 minutos depois
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
Será que alguém consegue me ajudar com essa missão, por favor!
muito obrigado