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


2 participantes

    Erro de tempo de execução 438 - objeto não aceita essa propriedade ou método

    avatar
    DENI.RUBIO
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 12/08/2023

    Erro de tempo de execução 438 - objeto não aceita essa propriedade ou método Empty Erro de tempo de execução 438 - objeto não aceita essa propriedade ou método

    Mensagem  DENI.RUBIO 12/8/2023, 02:08

    Boa noite, estou tentando criar uma macro para registro de estoque mas está dando erro.
    Alguém consegue me ajudar, por favor.

    ERRO DE TEMPO DE EXECUÇÃO 438 - OBJETO NÃO ACEITA ESSA PROPRIEDADE OU MÉTODO

    Sub Macro1()
    '
    ' Macro1 Macro
    '

    '
       Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
           :=True
       Rows("7:7").Select
       Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
       Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
           :=True
       Range("D12").Select
       Selection.Copy
       Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
           :=True
       Range("B7").Select
       Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
           :=False, Transpose:=False
       Range("C8").Select
       Application.CutCopyMode = False
       Selection.AutoFill Destination:=Range("C7:C8"), Type:=xlFillDefault
       Range("C7:C8").Select
       Range("C7").Select
       Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
           :=True
       Range("F12").Select
       Selection.Copy
       Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
           :=True
       Range("D7").Select
       Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
           :=False, Transpose:=False
       Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
           :=True
       Range("F12").Select
       Application.CutCopyMode = False
       Selection.ClearContents
       Range("D12").Select
       Selection.ClearContents
    End Sub


    O erro aponta para a primeira linha:
    [b]Selection.ShapeRange.Item(1).Hyperlink.Follow NewWindow:=False, AddHistory _
           :=True
    avatar
    abreuluiston
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 73
    Registrado : 24/07/2023

    Erro de tempo de execução 438 - objeto não aceita essa propriedade ou método Empty Re: Erro de tempo de execução 438 - objeto não aceita essa propriedade ou método

    Mensagem  abreuluiston 7/10/2023, 00:24

    Olá,

    Posso tentar te ajudar. Estou entendendo que essa macro é no Excel e não no Access, certo?

    Outra coisa, você escreveu a macro ou utilizou o gravador de macros para que o próprio Excel gerasse o código?


      Data/hora atual: 23/11/2024, 09:59