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
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