Beste,
Ik heb in een test omgeving "PPAS test SAP" sheet een marco gemaakt, deze marco heb ik gesaved onder mijn personel sheets zodat ik deze marco op meerdere vergelijkbare sheets kan gebruiken.
Teven een command knop gemaakt op de "toolbar"zodat deze makkelijk is te bedienen.
Nu is probleem als ik de marco laat lopen elke keer de test sheet wordt opgestart.
Ik kan in de macro geen verwijzig vinden naar deze test sheet"PPAS test SAP".
Kunnen jullie mij helpen dit op te lossen of moet ik dit anders doen?
Hierbij de macro;
Sub SAP_sortlist()
'
' SAP_sortlist Macro
' Macro recorded by botterh
'
ActiveWindow.SmallScroll Down:=45
Selection.AutoFilter Field:=1, Criteria1:="v"
Range("B59:N85").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=12
Range("B188").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("H188"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.SmallScroll Down:=12
Range("B188").Select
'
End Sub
TNX
Botje
Ik heb in een test omgeving "PPAS test SAP" sheet een marco gemaakt, deze marco heb ik gesaved onder mijn personel sheets zodat ik deze marco op meerdere vergelijkbare sheets kan gebruiken.
Teven een command knop gemaakt op de "toolbar"zodat deze makkelijk is te bedienen.
Nu is probleem als ik de marco laat lopen elke keer de test sheet wordt opgestart.
Ik kan in de macro geen verwijzig vinden naar deze test sheet"PPAS test SAP".
Kunnen jullie mij helpen dit op te lossen of moet ik dit anders doen?
Hierbij de macro;
Sub SAP_sortlist()
'
' SAP_sortlist Macro
' Macro recorded by botterh
'
ActiveWindow.SmallScroll Down:=45
Selection.AutoFilter Field:=1, Criteria1:="v"
Range("B59:N85").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=12
Range("B188").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Sort Key1:=Range("H188"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWindow.SmallScroll Down:=12
Range("B188").Select
'
End Sub
TNX
Botje