Koşullu Arama ve Hatalıları başka sayfaya yazdırma

[whitezombie]

Merhabalar,

Yapmak istediklerimi ekteki excel dosyasinda anlattim, ben record macro'yla birseyler yapmaya calismistim ama istedigim gibi olmadi, o sebeple yardimlarinizi rica ediyorum.

Iyi Calismalar Dilerim.

 

[Orion1]

Tüm şartların yerine gelmesi kuralına göre çalışıyor.
Dosyanız ektedir.

Sub aktar_59()
Dim sh As Worksheet, sat As Long
Sheets("data").Select
sat = Cells(65536, "A").End(xlUp).Row
Application.ScreenUpdating = False
Range("A1").AutoFilter
Set sh = Sheets("error")
sh.Range("A1:E65536").ClearContents
If sat < 2 Then Exit Sub
Range("A1").AutoFilter field:=3, Criteria1:="<18", Operator:=xlAnd, Criteria2:=">50"
Range("A1").AutoFilter field:=4, Criteria1:="<1", Operator:=xlAnd, Criteria2:=">9"
Range("A1").AutoFilter field:=1, Criteria1:="<1", Operator:=xlAnd, Criteria2:=">6"
Range("A1").CurrentRegion.Copy sh.Range("A1")
Range("A1").AutoFilter
sh.Select

End Sub

 

[whitezombie]

Evren Bey, teşekkür ediyorum fakat hatalı olanları "error" sheet'ine yazdırmıyor.

 

[Orion1]

Evren Bey, teşekkür ediyorum fakat hatalı olanları "error" sheet'ine yazdırmıyor.

Hatalımı değilmi ben onu anlamam.
Ben sizin verdiğiniz ölçütü uyguladım.
O syafaya yazabilmesi için söylemiştim önceden tüm şartların yerine gelmesi lazım.
Sizin verdiğiniz tüm kriterler yerine geliyorsa o sayfaya listeler.
Mesela bana hatalılardan bir örnek verin.
Şu satırı error sayfasına atmalıydı deyin.

 

[whitezombie]

İstediğim aslında hatalıları ayıklamak,
bir anket formu olduğunu düşünelim, anket 18 ila 50 yaşındakilere uygulanmış olsun, bu aralık dışındakiler hatalı girilmiştir ya da doğru girilmiştir fakat araştırma dışı bırakılacaktır.
keza cinsiyet 1 ve 2 olabilir, eğer yanlışlıkla 0 ya da başka bir rakam girilmişse bu da hatalıdır.
meslek için 1 ila 9 arası kodlamalar, egitim için ise 1 ila 6 arası kodlamalar doğrudur.

Evren Bey, asıl amacım, dikkatsizlik sonucu yapılmış veri giriş hatalarını error sayfasında nedeniyle görebilmek
örnek olarak egitim düzeyi 1kuryazar değil, 2kuryazar, 3:ilköğretim, 4:lise, 5:yüksekokul/üniversite, 6:yükseklisans/doktora olsun, fakat veri girişinde hata yapılmış olsun id numarası 61 olan kişiye 8 girilmiş olsun, ben bu kişinin id numarası ve hatalı giriş olan sütununun error sheet'inde görünmesini istiyorum
error sheetinde hatalı yapılan tüm girişleri görmek istiyorum kısacası.

umarım açıklayıcı olabilmişimdir ilginize tekrar çok teşekkür ederim.

 

[whitezombie]

Yardımcı olabilecek, ya da yaplış mantığı hakkında bilgi verebilecek birileri var mdır arkadaşlar?