Guru do Excel e Power BI

Bom dia mestres do Excel.

Tenho uma planilha onde vou deixar uma funcionaria consultando umas peças que importei dos XMLS de notas de compra. Ela só vai digitar o código do produto e incluir.
Só que estou conseguindo apenas colocar o paste na coluna a, e eu preciso já colocar em linha o colar especial com o transpor, para que fique em dados de uma tabela para eu importar para gerar as notas.

Podem me ajudar.

Macro para copiar já pesquisei aqui no fórum. Mas preciso colar especial com o transpor.
Segue a planilha anexa.

A macro que estou usando para copiar e colar é essa:

Código: Selecionar todos

"Sub Copiar2()
  Dim LR As Long 'retorna o número da última linha com conteúdo na coluna
    LR = Sheets("Plan2").Cells(Rows.Count, 1).End(xlUp).Row
  Sheets("Plan2").Range("B2:B7").Copy Sheets("Plan2").Range("A" & LR + 1)
End Sub
"

Jesandro Dutra

Olá.
O código abaixo irá replicar os dados a partir da coluna 'C', conforme está no seu modelo, se você quiser, altere para a coluna 'A'.

Código: Selecionar todos

Sub Copiar2V2()
 Cells(Rows.Count, "C").End(3)(2).Resize(, 6).Value = Application.Transpose([B2].Resize(6).Value)
End Sub

Osvaldo
Muito Obrigado
É exatamente isso que precisava.
Com a sua iniciativa, procurei entender o código e adicionei um campo código para criar o índice já e salvar.
Veja:
" Sub Copiar2V2()

iTotalLinhas = Cells(Rows.Count, 1).End(xlUp).Row + 1

Cells(iTotalLinhas, 1).Value = Range("Plan2!$L$1").Value + 1
Cells(Rows.Count, "B").End(3)(2).Resize(, 6).Value = Application.Transpose([B2].Resize(6).Value)
ActiveWorkbook.Save

End Sub
"
Obrigado

Cells vou estudar um pouco mais sobre essa função.

Uma outra possibilidade de fazer o q vc quer é usando Nova Consulta.

Guru do Excel e Power BI

Macro Copiar e Colar Especial e Transpor

Macro Copiar e Colar Especial e Transpor

Re: MACRO COPIAR E COLAR ESPECIAL TRANSPOR

Re: MACRO COPIAR E COLAR ESPECIAL TRANSPOR

Re: Macro Copiar e Colar Especial e Transpor