Este fórum está sendo desativado

[Jesandro]

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

[osvaldomp]

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

[Jesandro]

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.

[DJunqueira]

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