filtered data showing on listbox - userform

[gkisacik]

Hi,

i am trying to figure out why the following code doesnt show only filtered data on the listbox. Can someone help me please?


Dim rData As Range
With Blad1
Set rData = .Range(.Cells(1, 1), .Cells(.Rows.Count, 5).End(xlUp))
If Not .AutoFilterMode Then .Cells(1, 1).AutoFilter
.Cells(1, 1).AutoFilter field:=5, Criteria1:=txtuser.Text
On Error Resume Next
Set rSource = .AutoFilter.Range.SpecialCells(xlCellTypeVisible)
On Error GoTo 0
.Cells(1, 200).CurrentRegion.ClearContents
rSource.Copy .Cells(1, 200)
Set rSource = .Cells(1, 200).CurrentRegion
Set rSource = rSource.Offset(1, 0).Resize(rSource.Rows.Count - 1, rSource.Columns.Count)
With frmmain.ListBox1
.RowSource = ""
.RowSource = rSource.Address(external:=True)
End With
End With
Unload Me
End If


Thanks,

Gokhan Kisacik

 

[gkisacik]

filtering works fine i meant

 

[Fluff]

Do you have any merged cells?

Also there is a error on this line

.UsedRange.AutoFilter field:=15, Criteria1:=Me.txtuser.Text

The 15 should be 5

 

[gkisacik]

indeed i changed that already .... stuck at line of rSource thing...

 

[Fluff]

Do you have any hidden columns, or merged cells?

 

[Norie]

Have you checked what rSource actually is?

Debug.Print rSource.Address(External:=True)

 

[gkisacik]

@Fluff, there are no hidden columns or merged cells @Norie, it doesnt show anything with debug.Print thing

Sorry, i was on public holiday i could not access computer....

Have you checked what rSource actually is?

Debug.Print rSource.Address(External:=True)

 

[gkisacik]

sorry got it now with Debug Print thing. found out that Cells (1,200) with data disturbing origin database. When filtering it takes unwanted rows on listbox.

Thanks Norie for giving me a good direction.