R
Richard
Hi, I have data saved from SAP to EXCEL and macro which should:
1. Filter 0,00 lines and delete
2. Filter Off
3. Sort the rest acc. DATE (01.02.2009 format but as text)
4. Copy all / paste all to another sheet
I am abosolutely new to macros.
I save a macro which however doesn't filter 0,00's / sort incorrectly, still
the date as text, although after asked "sort text as numbers" I answered YES.
I saw some threads about this problem but couldn't figure out the right for
me...
Thx. for any feedback.
Selection.AutoFilter Field:=10, Criteria1:="0,00"
Selection.AutoFilter Field:=12, Criteria1:="0,00"
Rows("2:800").Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter
Range("A1:U800").Sort Key1:=Range("I1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Columns("A:Q").Select
Selection.Copy
Windows("!s711 PROD Planning Template.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("s721").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
1. Filter 0,00 lines and delete
2. Filter Off
3. Sort the rest acc. DATE (01.02.2009 format but as text)
4. Copy all / paste all to another sheet
I am abosolutely new to macros.
I save a macro which however doesn't filter 0,00's / sort incorrectly, still
the date as text, although after asked "sort text as numbers" I answered YES.
I saw some threads about this problem but couldn't figure out the right for
me...
Thx. for any feedback.
Selection.AutoFilter Field:=10, Criteria1:="0,00"
Selection.AutoFilter Field:=12, Criteria1:="0,00"
Rows("2:800").Select
Selection.Delete Shift:=xlUp
Selection.AutoFilter
Range("A1:U800").Sort Key1:=Range("I1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False,
Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
Columns("A:Q").Select
Selection.Copy
Windows("!s711 PROD Planning Template.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("s721").Select
Range("A1").Select
ActiveSheet.Paste
End Sub