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

see you other numerous posts on this topic.

--

Regards,
Nigel




"Richard" wrote in message
...
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

Thanks for reply.

I of course tried to search in past posts but couldn't figure out myself to
make it correctly.

Can you please recommend me some?

Anyway, I am very new in VBA and don't know the functions / commands to have
it run myself....

Any more help would be great.

Thx.

"Nigel" wrote:

see you other numerous posts on this topic.

--

Regards,
Nigel




"Richard" wrote in message
...
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