+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kategori Haricindekileri Listeleme (/konu-kategori-haricindekileri-listeleme.html)
RE: Kategori Haricindekileri Listeleme - feraz - 12/04/2020
Abe benim kafa iflas etti
inanın anlamıyorum konuyu.
Kolay gelsin.
RE: Kategori Haricindekileri Listeleme - yyhy - 13/04/2020
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.
RE: Kategori Haricindekileri Listeleme - feraz - 13/04/2020
Abe okuyorum okuyorum tekrar bir daha okuyorum yine anlamıyorum
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.
Re: Kategori Haricindekileri Listeleme - yyhy - 13/04/2020
Kısa olarak kategoriye giren 10 adet kategori harici ise 5 adet açıklamayı sayfada yaptım.
RE: Kategori Haricindekileri Listeleme - feraz - 13/04/2020
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.
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 SubRE: Kategori Haricindekileri Listeleme - yyhy - 14/04/2020
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?