Bir koşula göre listeden veri süzmek

[modoste]

merhaba ekli tablomda yapmak istediğim şu
Q4:Q500 arasındaki verilerden N3 de olanların benzersiz sıralamasını M4 hücresinden itibaren ardarda sıralanması

tablomu böyle gönderdim sol tarafta benim diğer formüllemelerim olacağından bu kısmınla gönderiyorum. tablo sağ tarafta kaldı belirtmek istedim.

ekli tablomda manuel ben çözümleri sarı renkle belirttim.

 

[Murat OSMA]

Benzersizlerin listelenmesi derken neyi kastediyorsunuz ?
Neden ÇBİY olanların 5 tanesi sarı ile boyalı ?

 

[Murat OSMA]

Afedersiniz, tarihlerin benzersiz olmasına göre listeletmek istiyormuşsunuz...

Şu kodları, sayfanın kod kısmına yazıp bir deneyiniz;

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i As Integer
    If Target.Address(0, 0) = "N3" Then
        For i = 4 To Range("N4").CurrentRegion.Rows.Count
            If WorksheetFunction.CountIf(Range("N4:N" & i), Cells(i, "N")) = 1 _
                And Cells(i, "Q") = Target.Value Then
                Range("M65536").End(3)(2, 1) = Cells(i, "N")
            End If
        Next i
    End If
    i = Empty
End Sub

Not: M3 hücresine "Tarihler" yazabilirsiniz...

 

[modoste]

çözümün manuel olarak nasıl yapılacağı açısından kolaylık olması açısından kendim belirttim
benzersiz sıralaması süzmenin aynısı
geçmiş çalışmalarda formülasyonlu çözümler vardı fakat bu sorumda bir koşula göre uyanların benzersiz sıralanması gerekiyo

 

[modoste]

kod değil formüllü çözüm kullanmak istiyorum
yinede teşekkür ederim makro için

 

[Murat OSMA]

Formül konusunda üstadlar yardımcı olacaklardır...

İyi günler...

 

[modoste]

üstadlar sayesinde mesleğimi hızlı yapmaya başladım zaman kendime kalıyo biraz
allah razı olsun gönüllülük esasına dayalı forum olsada ,ben belki 500 den fazla çalışma yı danıştım hocalarıma taş çatlasa 2 yada 3 tanesi yanıtsız kalmıştır
oda soru belki yanıtlanmayacak cinsten olduğundandır

 

[Ömer]

merhaba ekli tablomda yapmak istediğim şu
Q4:Q500 arasındaki verilerden N3 de olanların benzersiz sıralamasını M4 hücresinden itibaren ardarda sıralanması

Merhaba,

Sayım için yardımcı hücre olarak M1 i belirleyelim.

M1:

=TOPLA(EĞER(SIKLIK(EĞER((N4:N42<>"")*(Q4:Q42=N3);KAÇINCI("~"&N4:N42;N4:N42&"";0));SATIR(N4:N42)-SATIR(N4)+1);1))

Dizi formüldür. Girişini ctrl + shift + enter tuş kombinasyonu ile yapınız.


Daha sonra aşağıdaki formülü M4 hücresine yazıp dizi formülüne çevirdikten sonra alt satırlara kopyalayın.

=EĞER(SATIRSAY($M$4:M4)>$M$1;"";İNDİS($N$4:$N$42;KÜÇÜK(EĞER(SIKLIK(EĞER(($N$4:$N$42<>"")*($Q$4:$Q$42=$N$3);KAÇINCI("~"&$N$4:$N$42;$N$4:$N$42&"";0));SATIR($N$4:$N$42)-SATIR($N$4)+1);SATIR($N$4:$N$42)-SATIR($N$4)+1);SATIRSAY($M$4:M4))))

.

 

[Merhum İdris SERDAR]

merhaba ekli tablomda yapmak istediğim şu
Q4:Q500 arasındaki verilerden N3 de olanların benzersiz sıralamasını M4 hücresinden itibaren ardarda sıralanması

tablomu böyle gönderdim sol tarafta benim diğer formüllemelerim olacağından bu kısmınla gönderiyorum. tablo sağ tarafta kaldı belirtmek istedim.

ekli tablomda manuel ben çözümleri sarı renkle belirttim.

.

Dosyanız ekte.

.

 

[modoste]

çözümleri şimdi uyguladım sonuçlar kusursuz
teşekkür ederim sayın hocalarıma

 

[sanall]

hücredeki metne göre otomatik süzme

sayın hocalarım j2 hücresine yazdığım metni otomatik a sütununda süzmesini istiyorum. Yardımcı olursanız sevinirim.

 

[vardar07]

sayın hocalarım j2 hücresine yazdığım metni otomatik a sütununda süzmesini istiyorum. Yardımcı olursanız sevinirim.

Merhabalar. Başkasının konusu üzerinden soru sorup cevap almadan kendiniz sorunuza eşdeğer konu içinde herhangi bir dosya yükleme sitesine örnek dosya yükleyerek vede dosya içerisine isteklerinizi belirtirseniz da çabuk cevaplar alırsınız.

Not:"j2 hücresine yazdığım metni otomatik a sütununda süzmesini istiyorum" Sorunuza göre cevap verecek kişi dosya hazırlayıp cevap vermez.O zaman için başkalarına cevap vermeye zaman ayırırlar sizde cevap beklersiniz.

 

[sanall]

otomatik veri süzme

dosya ekte j2 hücresine yazdığım ili otomatik a sütünunda süzme yapabilirmiyiz.


a sütunu j2 sütunu
ankara istanbul
istanbul
izmir
bursa
ankara
istanbul
ankara
dosya ekleyemediğim için böyle yazdım.

 

[vardar07]

Merhabalar.Sayfanın kod modülüne ekleyip denermisin.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = [j2] <> "" Then
  On Error Resume Next
Dim k As Worksheet
Dim s1
Set k = Sheets("sayfa1")
s1 = k.[j1]
Set FC2 = Range("A2:I65000").Find(What:=NO)
Application.Goto Reference:=Range(FC2.Address), _
Scroll:=False
Selection.AutoFilter Field:=1, Criteria1:=k.[j1]
If s1 = "" Then
Selection.AutoFilter Field:=1
End If
End If
End Sub

Not: Kodlar yurttaş beyin çalışmasından alıntıdır.