Localizar, copiar e colar VBA Excel

Question

Boa tarde

Preciso de ajuda

Eu tenho 2 arquivos, o de Compras e um de Banco de dados das Compras.

Estou tentando concluir uma macro que no arquivo compras eu coloque o numero da nota fiscal na célula Aq6 no arquivo compras essa macro teria que abrir o arquivo de banco de dados das compras localizar o numero da nota e copiar esta linha que seria um range que vai da coluna 1 ate a 327 e copie esta linha para o arquivo de compras a partir da célula Aq7 feito isso ele fecharia o arquivo de banco de dados das compras.

Entre as planilhas do mesmo arquivo eu uso a macro abaixo e funciona perfeitamente

Sub Pesquisar_NF()

Application.ScreenUpdating = False

Range("AQ6").Value = Range("AP6").Value

Application.CutCopyMode = False

If Range("AQ6") = 0 Then

MsgBox "Este codigo é invalido.", vbCritical, "Por favor inserir codigo correto"

Exit Sub

Else

If Range("AO6") = "NOTA FISCAL" Then

MsgBox "Este codigo é invalido.", vbCritical, "Por favor inserir codigo correto"

Exit Sub

Else

Worksheets("NF").Activate

Range("AQ6").Activate

Do While ActiveCell.Value > 0

Worksheets("BDNF").Rows(ActiveCell.Value).Copy

ActiveCell.Offset(1, 0).Select

Loop

Sheets("NF").Activate

Range("A100").Select

ActiveSheet.Paste

Range("A100:TH100").Select

Selection.Cut

Range("AR4").Select

ActiveSheet.Paste

Application.CutCopyMode = False

End If

End If

Range("F4").Activate

End Sub

Eu copia a linha inteira e depois escolho a range que quero não consegui montar de copiar só o range mas esta funcionado.

Se pudessem me ajudar agradeceria muito

Obrigado

Answer 1

@Alexandre,

Muitos usuários estão com dificuldade para encontrar o VBA no link MSDN recomendado.

Sugiro que ao passar o link do MSDN, seja informado este: https://social.msdn.microsoft.com/Forums/pt-BR/newthread?category=officesharepointpt&forum=vbapt

(estou repetindo o que escrevi no tópico anterior para que o Pedro saiba deste link)

Answer 2

Olá Pedro AntonioGuanaes Bittencourt, tudo bem? 

Bem-vindo a Comunidade da Microsoft.

Para obter maiores esclarecimentos sobre o seu questionamento, peço a gentileza de acessar o link abaixo que vai direcioná-lo ao MSDN que é um fórum especialmente destinado para desenvolvedores e profissionais em TI.

:: MSDN ::

Se houver outras dúvidas relacionadas aos produtos Microsoft, por favor, volte a postar. Estamos à disposição.

Caso essa informação tenha sido útil, marque-a como resposta.

Até breve!