inanın anlamıyorum konuyu.
Kolay gelsin.
Abe benim kafa iflas etti
inanın anlamıyorum konuyu.
Kolay gelsin.
inanın anlamıyorum konuyu.
Kolay gelsin.
Kategori Haricindekileri Listeleme
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.
___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.
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 13/04/2020, 00:15, Düzenleyen: yyhy.
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.
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.
Deneme - Kısa.rar
(Dosya Boyutu: 23,29 KB | İndirme Sayısı: 1)
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
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]](https://resim.accesstr.net/do.php?img=10037)
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 Sub
Deneme - Kısa2.rar
(Dosya Boyutu: 28,37 KB | İndirme Sayısı: 3)
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?
yyhy, 18-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 14/04/2020, 00:28, Düzenleyen: yyhy.
Konuyu Okuyanlar: 1 Ziyaretçi
