Boa tarde
Preciso de ajuda
Eu tenho 2 arquivos um chamado de Compras e outro Banco dados Compras
Tentei varias vezes montar uma macro que eu colocando o numero da nota fiscal na célula a1 no arquivo compras ela fosse executada indo no arquivo Banco de dados e localizasse a linha e copiasse para a linha a2 do arquivo compras sem abrir o arquivo
banco de dados.
Outro jeito seria eu lançando o numero da nota na célula a1 no arquivo Compras ela atualizasse uma célula que defini no Arquivo Banco de dados e o calculasse sem abri-lo.
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
Ela copiaa 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