Eu criei uma macro (não usando código) e quando eu corro aquilo vem acima com esta mensagem de erro: "Run Time Error '1004':
Não é possível definir a propriedade scrollrow da classe window"O código que me dá é:
Posição de ActiveWindow.ScrollWorkbookTabs: = xlFirst
Posição de ActiveWindow.ScrollWorkbookTabs: = xlFirst
Sheets("Salad").Selecione
Selection.Copy
Posição de ActiveWindow.ScrollWorkbookTabs: = xlLast
Posição de ActiveWindow.ScrollWorkbookTabs: = xlLast
Posição de ActiveWindow.ScrollWorkbookTabs: = xlLast
Folhas ("não toque").Selecione
ActiveSheet.Paste
ActiveWindow.SmallScroll Down: = 12
Application.CutCopyMode = False
Range("D96:D152").Ação AdvancedFilter: = xlFilterInPlace, Unique: = True
ActiveWindow.SmallScroll Down: 21 =
Range("D97:D152").Selecione
Range("D152").Ativar
Selection.Sort Key1:=Range("D152"), Order1: = xlAscending, cabeçalho: xlGuess _
OrderCustom: = 1, MatchCase: = False, orientação: = xlTopToBottom, _
DataOption1: = xlSortNormal
Range("D97:D152").Selecione
Selection.Copy
Range("D161").Selecione
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.Copy
Sheets("Creditors").Selecione
ActiveWindow.SmallScroll Down: 73 =
ActiveWindow.ScrollRow = -613
ActiveWindow.ScrollRow =-846
ActiveWindow.ScrollRow =-1080
ActiveWindow.ScrollRow =-1313
ActiveWindow.ScrollRow =-1547
ActiveWindow.ScrollRow =-1897
ActiveWindow.ScrollRow =-4583
ActiveWindow.ScrollRow =-5400
ActiveWindow.ScrollRow =-6218
ActiveWindow.ScrollRow =-6918
ActiveWindow.ScrollRow =-7736
ActiveWindow.ScrollRow =-8553
ActiveWindow.ScrollRow =-9370
ActiveWindow.ScrollRow =-9954
ActiveWindow.ScrollRow =-10772
ActiveWindow.ScrollRow =-11822
ActiveWindow.ScrollRow =-12640
ActiveWindow.ScrollRow =-13574
ActiveWindow.ScrollRow =-14625
ActiveWindow.ScrollRow =-15442
ActiveWindow.ScrollRow =-16376
ActiveWindow.ScrollRow =-17194
ActiveWindow.ScrollRow =-17778
ActiveWindow.ScrollRow =-19295
ActiveWindow.ScrollRow =-19996
ActiveWindow.ScrollRow =-20813
ActiveWindow.ScrollRow =-21397
ActiveWindow.ScrollRow =-22215
ActiveWindow.ScrollRow =-22798
ActiveWindow.ScrollRow =-23499
ActiveWindow.ScrollRow =-24083
ActiveWindow.ScrollRow =-24667
ActiveWindow.ScrollRow =-25367
ActiveWindow.ScrollRow =-25951
ActiveWindow.ScrollRow =-26769
ActiveWindow.ScrollRow =-27352
ActiveWindow.ScrollRow =-28053
ActiveWindow.ScrollRow = 1285
ActiveWindow.ScrollRow = 1169
ActiveWindow.ScrollRow = 935
ActiveWindow.ScrollRow = 818
ActiveWindow.ScrollRow = 702
ActiveWindow.ScrollRow = 351
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 1
Range("y3").Selecione
Colar de Selection.PasteSpecial: = xlPasteValues, operação: = xlNone, _ SkipBlanks
: = False, Transpose: = True
Range("T5").Selecione
Folhas ("não toque").Selecione
Rows("97:152").Selecione
Application.CutCopyMode = False
ActiveSheet.ShowAllData
ActiveWindow.SmallScroll Down: = 12
Range("B119").Selecione
ActiveWindow.SmallScroll Down: = 48
Range("D161").Selecione
ActiveWindow.SmallScroll Down: = 0
Range("D161:D164").Selecione
Selection.ClearContents
Range("D162").Selecione
Sheets("Creditors").Selecione
Por isso não vai funcionar?
Obrigado