AccessTr.neT

Sayfalar: 1 2 3 4

Abe benim kafa iflas etti Img-grin

inanın anlamıyorum konuyu.
Kolay gelsin.

Sayın farez bey şöyle kısaca izah edeyim.
___Datalarımın(verilerimin) olduğu bir sütun var. Bu sütunda değişik uzunlukta veriler var. Veriler 5000-7000 satırdan oluşmaktadır.
___Elimdede kriter olarak bir liste var. (H12:H88 aralığında)
***Kriter listesindeki suçlar ile ---- data (veri) sayfasında başlayanların ve sonu belli olmayanların -----> haricini liste yapmak.
***Sonuçta benim kriterimdekileri formülle saydırıyorum ( formülün mantığı ve formülüm ise =ÇOKEĞERSAY(Veri!$F$2:$F$8000;"CİNSEL SALDIRI"&"*") bu dur.) (CİNSEL SALDIRI ile başlayacak ve kendisinden başka cümleler isimler olabilir.)
***Kriterim haricindekiler liste yapabilmek.

Abe okuyorum okuyorum tekrar bir daha okuyorum yine anlamıyorum Img-grin

Tavsiyem şu;
veri sayfasında 10 satırlık veri bırakın KategoriListesi safasındada 5 satırlık veri.
Sonra hangi sütunlara nasıl veriler gelecek sonucu manuel olarak eklein verileri o zaman anlarım sanırım.
Mesela KategoriListesi safasının M sütununa sonuçlar nasıl gelecek onları oraya manuel bir ekleyin gerisi kolay.

Kısa olarak kategoriye giren 10 adet kategori harici ise 5 adet açıklamayı sayfada yaptım.

Doğru anladıysam ekte birşeler yaptım.
Deneme için J sütununa veri getirttim.Siz başka safa yada sütuna uyarlarsınız.

[Resim: do.php?img=10037]

Kod:
Private Sub CommandButton1_Click()

    Dim son As Long, i As Long, k As Long, say As Long

    Dim s1 As Worksheet: Set s1 = Sayfa1

    Dim s13 As Worksheet: Set s13 = Sayfa13

    Dim kacinci As Long

    son = Sayfa1.Cells(Rows.Count, "F").End(3).Row

    say = 12

    s13.Range("J12:J" & Rows.Count).ClearContents

    Application.ScreenUpdating = False

    For i = 12 To son

        On Error Resume Next

        kacinci = WorksheetFunction.Match(s1.Cells(i, "F").Value, s13.Range("L:L"), 0)

        If kacinci = 0 Then

            s13.Cells(say, "J").Value = s1.Cells(i, "F").Value

            say = say + 1

        End If

    Next

    Application.ScreenUpdating = True

    Set s1 = Nothing: Set s13 = Nothing

End Sub

Sayın farez bey noktayı koymuşsunuz. Ellerinize sağlık. Yalnız macro üzerinde başka bir sayfaya listelettirsem daha iyi iyi olacak. Acaba macro üzerinde başka sayfaya göre listeleme olarak düzeltebilir miyiz? Ayrıca biraz daha görsellik katmak istiyorum. Command buton yerine metin kutusu ekleyip macroya bağlamak istiyorum. Mümkünmüdür?

Sayfalar: 1 2 3 4

feraz

yyhy

feraz

yyhy

feraz

yyhy