Belirlenen kriterin sayısı 2 olabilir mi?

[Erdinç FIRTINA]

Değerli üyeler,
Aaşğıdaki kodda belirtilen kriterin sayısı "ve" "veya" gibi kullanılarak arttırılabilir mi? Bu mümkün müdür?
Yani;
Criteria1:="505" e ilaveten "506" "555" gibi olabilir mi?

Sub AKTAR()
Application.ScreenUpdating = False
Set SVV = Sheets("Veri")
Set SA = Sheets("1-AVEA 505")
Set SB = Sheets("2-TURKCELL 532")
SA.[A:F].Clear
SB.[A:F].Clear
SVV.Select
Range("A1").Select
Range("A1").AutoFilter Field:=3, Criteria1:="505"
Range("A1").CurrentRegion.Copy SA.[A1]
Range("A1").AutoFilter Field:=3, Criteria1:="532"
Range("A1").CurrentRegion.Copy SB.[A1]
Range("A1").AutoFilter
Set SV = Nothing
Set SA = Nothing
Set SB = Nothing
Application.ScreenUpdating = True
MsgBox "AKTARIM İŞLEMİ TAMAMLANMIŞTIR.", vbInformation
End Sub


Benzer şekilde, sıralamada 2 yerine 3 veya daha fazla ölçüt kullanılabilir mi?

Sub sıra2()
[a2:g1000].Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("d2") _
, Order2:=xlAscending
End Sub

 

[Recep İpek]

Selection.AutoFilter Field:=1, Criteria1:="505", Operator:=xlAnd, Criteria2:="506"

şeklinde kullanabilirsiniz.Fakat sınır en fazla 3 olması gerekiyor.

Bunun için makro kaydet ile deneme yapıp kodları inceleyebilirsiniz.

 

[Erdinç FIRTINA]

Kod değişikliği sonuç vermedi...

Sayın Ripek,
Öncelikle çok teşekkür ederim.
Ama kodda belirttiğiniz değişikliği yaptım ama çalışmadı.

Kod değişikliğini aşağıdaki gibi yaptım. Nerede yanlış yaptığımı açıklayabilirseniz çok mutlu olurum.

Şimdiden teşekkürler!!!

Mevcut durum
Range("A1").Select
Range("A1").AutoFilter Field:=3, Criteria1:="505"
Range("A1").CurrentRegion.Copy SA.[A1]

Değiştirilmiş şekli

Range("A1").Select
Range("A1").Selection.AutoFilter Field:=1, Criteria1:="505", Operator:=xlAnd, Criteria2:="506"
Range("A1").CurrentRegion.Copy SA.[A1]

 

[Recep İpek]

Kodlarınızı aşağıdaki şekilde değiştiriniz.

Sub Button1_Click()
Range("A1:b20").Select
SA.Range("A1:B100").ClearContents
Selection.AutoFilter Field:=1, Criteria1:="505", Operator:=xlOr, Criteria2:="506"
Range("A1").CurrentRegion.Copy SA.[a1]
Selection.AutoFilter
Range("A1").Select
End Sub

 

[Erdinç FIRTINA]

Sayın Ripek,

Çok çok teşekkür ederim. Ama dosyam üzerinde bunu başaramadım. Neyse önemli değil sizi daha fazla yormak istemiyorum.

Her şey için çok çok teşekkürler!!!


SAYGILARIMLA!!!

 

[Skorpiyon]

Sayın sefkatim,

"Makro kaydet" deyin. Ve yapacağınız işlemi tam sırasıyla yapın.

Yani ;
Verileriniz girilmiş olsun. Makro kaydet dedikten sonra, Otomatik Süz deyin. Sayfanızda belirecek süzme okuna tıklayıp "Özel"i seçin. Karşısınıza çıkacak pencereden bir kıstas belirleyin. Tamam deyin ve süzdürme işlemini yapın.

Makro Kayıt işlemini durdurun. Kod bölümüne geçtiğinizde yaptığınız işlemlerin 1'e 1 kodlarını göreceksiniz.

Yaptığınız işlemle kodları anlamaya çalışın.

Saygılarımla...

 

[Erdinç FIRTINA]

Sayın Sertkaya,

Size nasıl teşekkür edeceğimi bilemezsiniz. Benim için bilmediğim yepyeni bir bilgi öğrettiniz.
Bana bir harf öğretenin kırk yıl kölesi olurum denilen budur işte.

SAYGILARIMLA!!!

 

[Skorpiyon]

Sayın sefkatim,

Rica ederim. Kolay gelsin.

Saygılarımla...