Este fórum está sendo desativado

[diogeles]

Bom dia Pessoal, Estou preso aqui em uma função e gostaria da ajuda de vocês.

Tenho uma planlinha de Importação de XML e nela preciso copiar alguns dados e colar em uma outra aba sempre abaixo da ultima informação que já foi colada. Usei um metodo aqui que ele funciona quando o que vai ser copiado não possui formula, porem quando ele vai copiar algo que já tem formula ele não coloca na proxima linha em branco e sim na ultima linha do intervalo que foi copiado.

estou anexando a planilha pra voces entenderem melhor.

O nome da Macro é Montar Preço.

[osvaldomp]

#
Experimente:

Código: Selecionar todos

Sub MONTARPRECO()
 Dim LR As Long
  LR = Sheets("Importação - XML").Cells(Rows.Count, 7).End(3).Row
  Application.ScreenUpdating = False
  
  Sheets("Importação - XML").Range("A3:A" & LR).Copy 'copia DESC-CFOP
  Sheets("MONTAR PREÇO").Cells(Rows.Count, 1).End(3)(2).PasteSpecial xlValues 'cola em TIPO DE NOTA
    
  Sheets("Importação - XML").Range("G3:H" & LR).Copy 'copia CNPJ e RAZAO SOCIAL
  Sheets("MONTAR PREÇO").Cells(Rows.Count, 3).End(3)(2).PasteSpecial xlValues 'cola em CNPJ e EMPRESA

End Sub

#
dicas:
1. antes de testar o código acima limpe a planilha MONTAR PREÇO a partir da linha 7
2. aumente a largura da coluna CNPJ e formate como texto, ou formate Personalizado, assim você insere somente os dígitos e na célula será exibido conforme o padrão CNPJ.

[diogeles]

Muito Obrigado, Funcionou Perfeitame.
Sim, ainda não tinha chegado na parte de formatação, Obrigado!