Olá alemaors,

Entendi a sua solicitação, porém teria como você anexar um exemplo da sua planilha para que eu possa ver a estrutura da mesma e gerar uma solução mais viável?

Talvez assim:

Sub FINALIZARCOMPRA()
'
' FINALIZARCOMPRA Macro
Dim Ultim5alinha As Long
Sheets("Painel Venda").Activate
Range("H38:R42").Select
Selection.Copy
Sheets("Relatorio Contas a Receber").Select
Ultimalinha = Range("B" & Rows.Count).End(xlUp).Row
Range("B" & Ultimalinha).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Painel Venda").Select
Application.CutCopyMode = False
Range("B6:R20").Select
Selection.Copy
Sheets("Relatorio Venda").Select
Ultimalinha = Range("B" & Rows.Count).End(xlUp).Row
Range("B" & Ultimalinha).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Painel Venda").Select
Application.CutCopyMode = False
Range("J24").Select
End Sub

Olá pessoal...

segue o link onde tem a planilha...

http://www.4shared.com/folder/fGYCVIZD/_online.html

Testei o codigo acima em uma copia da planilha... me parece que esta funcionando.. o que tem uma questao... na guia "Relatorio de contas a Receber" ele esta colando em cima do painel.... deveria colar um poquinho mais em baixo.....

Tava olhando aqui... em qualquer um dos relatorio... deveria começar a colar na B5.... dai pra baixo.....
agora o problema esta na hora de colar.... nos relatorios...

Olá pessoal... identifiquei mais um pequeno problema na formula... quando é colado nas guias relatorios... ele sempre colo em cima da ultima linha.... por exemplo... se eu realizei uma venda em 5 parcela..... na proxima venda quando eu realizar ele vai colar a 1 parcela em cima da 5 parcela... que seria a ultima parcela da venda anterior.... isso tambem esta acontecendo com os produtos.. no ultimo produto que seria o 15 linha... se eu vender a proxima venda ele vai colar tambem em cima do ultimo produto...... caso tenha vendido 15 itens....

Tem como arrumar no codigo.... esses dois erros.... lembrando que ele teve começar a colar a partir da B5 em ambos relatorios..... o resto esta perfeito!!!

Se conseguir postar o codigo novamente... com essas correções..... vai me salvar!!! hehehehe

Obrigado
Abraços....

Estou com problema semelhante, alguém pode me ajudar??

Esta planilha é uma ficha cadastral. O fornecedor irá preencher o cadastro e quando clicar para imprimir, as informações irão automaticamente para planilha DATA BASIS, porém as informações não estão sendo gravadas no DATA BASIS.

Eu não entendo de programação e a planilha estava funcionando normalmente, até limparem todas as informações.

Segue a planilha
http://www.4shared.com/file/o7iLyQeO/Fi ... dores.html

Agradeço quem puder me auxiliar!

Atenciosamente,
Michelle

Alemão, veja se está atendendo

Sub FINALIZARCOMPRA()
'
' FINALIZARCOMPRA Macro
Dim Ultimalinha As Long, iVend As Integer
Sheets("Painel Venda").Activate
iVend = Application.WorksheetFunction.CountIf(Range("H38:H42"), ">0") + 37
Range("H38:R" & iVend).Select
Selection.Copy
Sheets("Relatorio Contas a Receber").Select
Ultimalinha = Range("B65536").End(xlUp).Row + 1 'Range("B" & Rows.Count).End(xlUp).Row + 1
Range("B" & Ultimalinha).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Painel Venda").Select
Application.CutCopyMode = False
iVend = Application.WorksheetFunction.CountIf(Range("B6:B20"), ">0") + 5
Range("B6:R" & iVend).Select
Selection.Copy
Sheets("Relatorio Venda").Select
Ultimalinha = Range("B65536").End(xlUp).Row + 1  'Range("B" & Rows.Count).End(xlUp).Row + 1
Range("B" & Ultimalinha).Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Painel Venda").Select
Application.CutCopyMode = False
Range("J24").Select
End Sub

Bom dia Reinaldo!

Valeu! ficou muito bom..... já estava alguns dias procurando esse codigo! Agora esta funcionando corretamente!

Muito Obrigado!
Abraços....