Obrigado Edcronos2!
Você já me ajudou muito com suas dicas e questionamentos,
Eu consegui com a sua ajuda fazer uma macro que esta me atendendo, só vou precisar pesquisar e fazer mais alguns ajustes, mas já está muito bom!
Peço desculpas por não conseguir me expressar da maneira simples que você me pediu, mas tentei detalhar o meu projeto.
A macro que estou usando é essa:
Sub Copiar2()
Dim LR As Integer 'retorna o número da última linha com conteúdo na coluna
LR = Sheets("BD_Dt_Fatura").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Colar_ZSDQ").Range("C2:C500").Copy Sheets("BD_Dt_Fatura").Range("A" & LR + 1)
Sheets("Colar_ZSDQ").Range("L2:L500").Copy Sheets("BD_Dt_Fatura").Range("B" & LR + 1)
MyStr = Format(1) = Range("B" & LR + 1) * "1"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]*1"
Range("C2").Select
Selection.Copy
Range("C3").Select
Selection.End(xlDown).Select
Range("B1048576").Select
Selection.End(xlUp).Select
Range("C25000").Select
Range(Selection, Selection.End(xlUp)).Select
Range("C3:C25000").Select
Range("C25000").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Range("D1").Select
Range("D2").Select
Selection.FormulaArray = "=LARGE((R2C3:R25000C3=RC[-1])*(R2C1:R25000C1),3)"
Selection.Copy
Range("D3").Select
Selection.End(xlDown).Select
Range("C1048576").Select
Selection.End(xlUp).Select
Range("D25000").Select
Range(Selection, Selection.End(xlUp)).Select
Range("D3:D25000").Select
Range("D25000").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
Range("E1").Select
End Sub
A unica coisa que eu preciso para terminar o Projeto e ficar 100% é conseguir que o comando "Range("C3:C25000")" e Range("D25000").Select na macro pegue o mesmo numero de linhas da da primeira parte da macro = Range("A" & LR + 1) e Range("B" & LR + 1)
Desejo a você e toda a sua equipe um feliz 2016 e muito sucesso pra vocês!
Postado : 31/12/2015 4:40 pm