Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
empty autofiltered range
Hi All,
I use the following piece of code (I don't repeat here the declarations): For each cella in otherrng Range("A1").Select Selection.AutoFilter Field:=2, Criteria1:=cella Set txtteljes = ActiveSheet.AutoFilter.Range.Rows Set txtteljes = txtteljes.Offset(1, 0).Resize(txtteljes.Rows.Count - 1, txtteljes.Columns.Count) On Error Resume Next Set txtszurt = txtteljes.SpecialCells(xlVisible) On Error GoTo 0 If Not txtszurt Is Nothing Then Selection.Delete Shift:=xlUp End If Selection.AutoFilter Next My problem is that when range txtszurt is empty (I see on the screen that no rows are selected), the If Not txtszurt Is Nothing Then condition is still met, and all rows are deleted. What's wrong? Regards, Stefi |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
empty autofiltered range
You have a response at your other post.
Stefi wrote: Hi All, I use the following piece of code (I don't repeat here the declarations): For each cella in otherrng Range("A1").Select Selection.AutoFilter Field:=2, Criteria1:=cella Set txtteljes = ActiveSheet.AutoFilter.Range.Rows Set txtteljes = txtteljes.Offset(1, 0).Resize(txtteljes.Rows.Count - 1, txtteljes.Columns.Count) On Error Resume Next Set txtszurt = txtteljes.SpecialCells(xlVisible) On Error GoTo 0 If Not txtszurt Is Nothing Then Selection.Delete Shift:=xlUp End If Selection.AutoFilter Next My problem is that when range txtszurt is empty (I see on the screen that no rows are selected), the If Not txtszurt Is Nothing Then condition is still met, and all rows are deleted. What's wrong? Regards, Stefi -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
empty autofiltered range
could you provide some test data please??? And some expected solutions -- malik64 ----------------------------------------------------------------------- malik641's Profile: http://www.excelforum.com/member.php...fo&userid=2419 View this thread: http://www.excelforum.com/showthread.php?threadid=39053 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
empty autofiltered range
I repeat here Dave Peterson's solution:
Put line Set szurtrng = Nothing before On Error Resume Next statement! Stefi €˛malik641€¯ ezt Ć*rta: could you provide some test data please??? And some expected solutions. -- malik641 ------------------------------------------------------------------------ malik641's Profile: http://www.excelforum.com/member.php...o&userid=24190 View this thread: http://www.excelforum.com/showthread...hreadid=390532 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Delete some column headings from an autofiltered range. | Excel Worksheet Functions | |||
Test if the range is empty | Excel Discussion (Misc queries) | |||
why is range empty? | Excel Discussion (Misc queries) | |||
why is range empty? | Excel Programming | |||
Error stepping through Autofiltered visible range | Excel Programming |