Filtreleme sorunu

[feryat]

Private Sub ComboBox3_Change()
Range("ad1").Value = ComboBox3.Value
If ComboBox3 = "" Then
On Error Resume Next
ListBox1.RowSource = "Sayfa1!A2:e1000"
Else
Range("a1:e1000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("ad1").Value
Columns("A:E").Select
Selection.Copy
Sheets("Sayfa2").Select
Columns("A:A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ListBox1.RowSource = "Sayfa2!A2:e1000"
End If
End Sub

biçiminde bir filtreleme yapmak istiyorum ama

Range("a1:e1000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("ad1").Value

bu satır sürekli hata veriyor. sorunu bir türlü bulamadım. yardımcı olursanız sevinirim.

 

[feryat]

Yok mu bi bilen?

 

[mehmett]

Dosyanızı ekleyebilir misiniz?

 

[feryat]

Teşekkür

İlginiz için teşekkür ederim. Öğrencilerimin birbirleri hakkındaki şikayet, istek ve görüşlerini yazabilecekleri ve yer yer benimde görüşlerimi belirtebileceğim bir günlük tutmak istiyorum. İlköğretim 1. kademede çocuklar çok sık birbirlerinden şikayette bulunuyorlar. eğer bunları kaydedebilirsem. Bu şikayetler ve yaşanan sıkıntılar hakkında istatistiksel sonuçlara ulaşabileceğim. Bu bana sınıf içi çalışmalarımda yardımcı olacak.

Dosyaya bu linkten ulaşabilirsiniz.

http://rapidshare.com/files/22434448/Guenluek.rar.html

 

[feryat]

yardım lütfen