MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Macro que localiza e substitui uma linha

    avatar
    Moura 26
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 1
    Registrado : 25/05/2016

    [Resolvido]Macro que localiza e substitui uma linha Empty [Resolvido]Macro que localiza e substitui uma linha

    Mensagem  Moura 26 25/5/2016, 19:16

    Boa tarde,

    Tenho uma planilha com um interface de registros, e outra aba com uma base de dados. Na aba da base de dados, tenho uma linha (A2) que puxa automaticamente as informações da interface de registros.

    Quero fazer o seguinte: sempre que eu atualizar uma informação de um registro, quero buscar ele na base de dados, e substituir a linha desse registro pela linha que puxa automaticamente (A2).

    Até agora tenho a seguinte macro:

    '
    ' Atualizar Macro
    '

    '
       Dim linha As Variant
       
       Dim pesquisa As String

           pesquisa = Range("E8")

           If pesquisa = "" Then Exit Sub
           
           Sheets("Base de Dados").Select
           Rows("2:2").Select
           Selection.Copy

           Set linha = .Find(what:=pesquisa, LookIn:=xIValues)
           If Not linha Is Nothing Then
               celula = linha.Address
                   
                   Do
                   plan.Select
                   linha.Select
                                   
           ActiveSheet.Paste
           Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
               :=False, Transpose:=False
           Application.CutCopyMode = False
           
           Loop While Not linha Is Nothing And linha.Address <> celula
           
           End If
                               
       Sheets("Interface").Select
       MsgBox "Dados atualizados com sucesso."
     
       
    End Sub


    Mas essa macro não está executando. Alguém pode me ajudar a identificar o erro ou indicar uma solução melhor?
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Macro que localiza e substitui uma linha Empty Re: [Resolvido]Macro que localiza e substitui uma linha

    Mensagem  Silvio 25/5/2016, 20:07

    Olá, boa tarde.

    O MaximoAccess, é destinado ao Ms Access e seus afins.

    Sugiro que procure um fórum destinado ao Ms Excel, segue os link´s....

    http://gurudoexcel.com/forum/

    http://www.planilhando.com.br/forum/viewforum.php?f=14

    Abraços e bons estudos.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8443
    Registrado : 05/11/2009

    [Resolvido]Macro que localiza e substitui uma linha Empty Re: [Resolvido]Macro que localiza e substitui uma linha

    Mensagem  Alexandre Neves 9/6/2016, 11:05

    [Resolvido]Macro que localiza e substitui uma linha MaximoAccess%20ResolvidoMarcado


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado


    [Resolvido]Macro que localiza e substitui uma linha Empty Re: [Resolvido]Macro que localiza e substitui uma linha

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 12:24