none
Localizar, copiar e colar VBA Excel RRS feed

  • Pergunta

  • 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

    sexta-feira, 9 de outubro de 2015 15:25