Skip to main content

AccessTr.neT


Kategori Haricindekileri Listeleme

Kategori Haricindekileri Listeleme

#7
KategoriListesi sayfasındaki P15 hücresinden bahsediyorsunuz galiba.

KategoriListesi sayfasının H sütununda yok zaten.
Cevapla
#8
Alttaki koduda deneyebilirsiniz fakat biraz uzun sürer.Sonuçta aynı sonuç veriyor önceki eklediğim kodla.


Kod:
Dim bul As Range
    Dim say As Integer
    Dim s1 As Worksheet: Set s1 = Sayfa1
    Dim s13 As Worksheet: Set s13 = Sayfa13

    say = 12
    Application.ScreenUpdating = False
    With s13
        .Range("P12:P" & Rows.Count).ClearContents
        For i = 2 To s1.Cells(Rows.Count, "F").End(3).Row
            On Error Resume Next
            Set bul = .Range("H:H").Find(s1.Cells(i, "F").Value, , xlValues, 1)
            If bul Is Nothing Then
                .Cells(say, "P").Value = s1.Cells(i, "F").Value
                say = say + 1
            End If
        Next

      If say > 0 Then .Range("P12:P" & say).RemoveDuplicates Columns:=1, Header:=xlNo
    End With
    Application.ScreenUpdating = True
    MsgBox "Bitti", vbInformation
    Set bul = Nothing
    Set s1 = Nothing
    Set s13 = Nothing

Cevapla
#9
Yada gifteki gibimi sonuç olacak?Detay kelimelerinden aırdım.Malisef tam anlaşılmadığı için bu kadar oldu.

[Resim: MTVlOTExYjdmY2UzMGM.gif]
.rar Kategoriye Giren Girmeyen Suçların Listesi 04.rar (Dosya Boyutu: 54,86 KB | İndirme Sayısı: 5)
Cevapla
#10
Eklediğim sayfadan acaba birşeyler anlaşılıyor mu acaba, bunun gibi olmasını istiyorum. Kategori haricindeki suçların listesini başka sayfaya listelesin istiyorum. Kategoriye girenleri tabloya sayıyor, veri sayfasında kategori sayfasında sayılmayanları da başka bir sayfaya tablo şeklinde suçların isimlerini sıralasın ki ben hangileri istatistik sayılarında olmadığını göreyim. Baya bir uğraşıyorum hangileri girmemiş diye... teşekkürler.
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 11/04/2020, 22:12, Düzenleyen: yyhy.
Cevapla
#11
Ek dosyayı bir önceki mesajımda ekleyemedim. İnşallah şimdi yüklerim.
Yine ekleyemedim. Link olarak ekliyorum inşallah sorun olmaz.  https://www.dosya.tc/server27/9tnw5p/Kat...0.rar.html
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#12
Sayın farez bey yaptığınız çalışmayı inceledim. Kategori listesinde bulunan suçlardan veri sayfasından formülle saydırma işlemi yaptım. Yalnız orada şöyle bir incelik var. Kategori sayfasındaki suçlar ile başlayıp son tarafı belli olmayanları formülle kategori sayfasındaki sütuna saymakta ve suçların sayısını vermektedir. Burada bir sıkıntı yok.
Benim istediğim kategori listesindeki suçlar ile başlamayan ve sonu belli olmayan her satırın suç isimlerini bulmak istiyorum. Sizin hazırladığınız kodlar kategori listesindeki suçlarla bire bir olanları buluyor güzel olmuş, suçlar uzun olabilmektedirler. Gif te bulunanı inceledim suçları bir bir içerirleri süzme sayısını bulmak baya bir zaman alacak doğru anlamışsam...

Biz kriter olarak;
****Kategori sayfasındakilerle başlayanlar ve sonu belli olmayanları formülle bulduk
****Kategori sayfasındakilerle başlamayanlar ve sonu belli olmayanların listesini bulmak
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 12/04/2020, 00:28, Düzenleyen: yyhy. (Sebep: Metin ekleme)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task