2 Kritere Uygun Olarak (veya veya) Datadan Liste Oluşturulması

[baydeniro]

Merhaba Arkadaşlar,

DATA sayfası B sütununda tür olarak "YAZ" ve "EGZOTİK" yazılı olan satırları ve C sütunundaki karşılıklarını LISTE sayfasına B10:C10 dan başlayarak listelenmesi ve C sütununda Alfabetik sıraya sokulması mümkün mü !

Örnek dosya : http://s7.dosya.tc/server12/r56twa/2_KRITERDEN_LISTE_OLUSTURMA.xls.html

 

[turist]

Dosya Linki
İndirip deneyiniz.

 

[baydeniro]

Turist üstadım çok çok teşekkür ediyorum, elleriniz dert görmesin. Sağlıcakla kalın.

 

[turist]

Turist üstadım çok çok teşekkür ediyorum, elleriniz dert görmesin. Sağlıcakla kalın.

Sağ olun, iyi çalışmalar.

 

[Ömer BARAN]

Merhaba.
Sağ olsun, Sayın @turist çözümü vermiş.
Bir alternatif de benden olsun.
Sıralamayı tersten yapmak isterseniz "İşlem tamam" satırının üstünde, en sağdaki 1 sayısını 2 yaparsınız.

Sub FILTRELE_AKTAR()
Set l = Sheets("LISTE"): Set d = Sheets("DATA")
If l.Cells(Rows.Count, 3).End(3).Row > 9 Then _
    l.Range("C10:D" & l.Cells(Rows.Count, 3).End(3).Row).ClearContents
If d.AutoFilterMode = True Then d.AutoFilterMode = False
dson = d.Cells(Rows.Count, 2).End(3).Row
d.Range("A1:D1").AutoFilter Field:=2, Criteria1:="=EGZOTİK", Operator:=xlOr, Criteria2:="=YAZ"
If d.Cells(Rows.Count, 2).End(3).Row > 1 Then
    d.Range("B2:C" & dson).Copy l.[C10]
    l.Range("C10:D" & l.Cells(Rows.Count, 3).End(3).Row).Sort l.[C9], 1
    d.AutoFilterMode = False: MsgBox "İşlem tamam."
Else: MsgBox "Kriterlere uygun veri yok!"
End If
End Sub

 

[baydeniro]

Ömer Baran üstadım çok teşekkürler. Bir alternatif yöntemimiz daha oldu. Ellerinize sağlık, sağlıcakla kalın.