Süz

[serif11]

Arkadaşlar selam.
"Analiz Listeleme Sayfası" nın A2:A1000 arasındaki arıza sebeplerini süzerek, "Analiz" sayfasının B2 hücresinden başlayıp arıza sebeplerini, C2 hücresinden itibaren ise bu hatanın kaç kez tekrarlandığını nasıl hesaplatabilirim?
Umarım anlatabilmişimdir.
Şimdiden teşekkürler.

NOT : Lütfen "örnek dosya ekleyiniz" diye çözüm önerisini sunmayın. Ekleme olanağım yok çünkü...

 

[bzace]

Merhaba,
Formülleri aynı sayfa üzerinde deneyiniz.
Arıza sebeplerini benzersiz listelemek için;

=İNDİS(A$2:A$10;KÜÇÜK(EĞER(EĞERSAY($B$1:B1;A$2:A$10)=0;SATIR($A$2:A$10));1))
[COLOR="Blue"]Formül dizi formülüdür.CTRL+SHIFT+ENTER ile tamamlayınız.[/COLOR]

Arızaların kaçar kere tekrar ettiğini bulmak için;

=EĞERSAY(B$2:B$10;B2

Veri aralıklarını kendinize göre ayarlamayı unutmayınız.

Saygılar,
Şeşen

 

[serif11]

Bzace arkadaşım. Öncelikle ilginize ve emeğinize teşekkür ederim. Ancak, aynı sayfa üzerinde uygulayamam. İsmini verdiğim sayfalarda olması lazım. Ayrıca formülle değil de kodla olursa daha iyi olacak gibi. Aynı sayfa üzerinde denedim ama #YOK hatası verdi.

 

[serif11]

Konu güncelleme

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
    Dim SD As Worksheet: Set SD = Sheets("Analiz Listeleme Sayfası")
    Dim SO As Worksheet: Set SO = Sheets("Analiz")
    Dim dic As Object, liste(), dizi()
    son = 1000 'SD.Cells(Rows.Count, "A").End(3).Row
    liste = SD.Range("A2:A" & son).Value
    ReDim dizi(1 To son, 1 To 2)
    Set dic = CreateObject("scripting.dictionary")
    For x = 1 To UBound(liste, 1)
        aranan = liste(x, 1)
        If aranan <> "" Then
        If Not dic.exists(aranan) Then
            n = n + 1
            dic.Add aranan, n
            ReDim Preserve dizi(1 To son, 1 To 2)
            dizi(n, 1) = liste(x, 1)
        End If
        dizi(dic.Item(aranan), 2) = dizi(dic.Item(aranan), 2) + 1
        End If
    Next x
    SO.Range("B2:C" & Rows.Count).ClearContents
    SO.Range("B2").Resize(dic.Count, 2) = dizi
End Sub

. . .

 

[serif11]

Hüseyin kardeşim. Öncelikle ilgine ve emeğine teşekkür ederim. Sabah işyerinde dener sonucu yazarım. Sevgiyle kal

 

[serif11]

Hüseyin kardeşim işlem tamam.
Çok çok çok teşekkür ederim.
Başta yazmayı unutmuşum.
Bu verileri C sütunu baz alınarak büyükten küçüğe doğru sıralatabilir miyiz?

 

[Emir Hüseyin Çoban]

. . .

Makro kaydet ile deneme yaparak veya forumda xlDescending diye arama yaparak kodları oluşturabilirsiniz.

. . .

 

[serif11]

Ok. Teşekkürler tekrar