Aynı değere sahip ürünlerin listelenmesi

[cenkataseven]

Merhaba,

Ekli dosyada anlattığım şekilde bir uygulama mümkün müdür?

Aynı istek için arama yapanlara ipucu olması amacıyla:

Liste isimli sheet'in A1 hücresinde yazan değerin, bu sheetteki I sütünundaki değerlere eşit olan satırlarının A hücrelerini Data sheetinin A sütununa listelemesi gerekiyor.

Ancak bunun yanında yıl 2013 ise ve hafta 3 olanları listelemeli. Aynı şeyi B sütunu için de yapmalı

Örnek; I sütnunda 11 olup haftası 3 yılı 2013 olanları Liste sayfasındaki A kolonuna sırala... I sutünü 22 olanları da aynı şekilde B sütununa sırala gibi...

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Listele()
 
    Dim Sd As Worksheet, i As Byte, c As Range, Adr As Variant, sat As Long
 
    Set Sd = Sheets("Data")
    
    Application.ScreenUpdating = False
    Sheets("Liste").Select
    Range("A2:B" & Rows.Count).Clear
 
    For i = 1 To 2
        sat = 2
        With Sd.Range("I:I")
            Set c = .Find(Cells(1, i), , xlValues, xlWhole)
            If Not c Is Nothing Then
              Adr = c.Address
                Do
                    If Sd.Cells(c.Row, "C") & "|" & Sd.Cells(c.Row, "D") = "3|2013" Then
                        Cells(sat, i) = Sd.Cells(c.Row, "A")
                        sat = sat + 1
                    End If
                    Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> Adr
            End If
        End With
    Next i
 
    Application.ScreenUpdating = True
 
 End Sub

.

 

[cenkataseven]

çok teşekkür ederim.