Kan grubuna göre isim sıralama

[sdegirmenci]

Değerli hocalarım merhaba;
Ekteki sosya üzerinde açıkladığım gibi anamenü sayfasındaki "Q4" hücresinde hangi grup kan seçili ise Kaynak sayfasındaki "AL" sütununa kan grubu aynı olan isimleri sıralayabilirmi. (Kod ilede olabilir, formül ilede) Çok üğraştım ama aralarda boşluk olmadan yapamadım. Yardımlarınız için şimdiden çok teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları "ANA MENÜ" Sayfasının kod bölümüne koplayınız.
Q4 hücresi değiştikçe "KAYNAK" sayfasında AL sütununda istenen kan grubuna sahip olan kişiler sıralı şekilde listelenecektir.

Yine "KAYNAK" sayfasının AL2 hücresine formül koydum, Kan Grubunu da belirtmesi için.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [Q4]) Is Nothing Then Exit Sub
Set sk = Sheets("KAYNAK")
sk.Range("AL3:AL65536").ClearContents
Dim Sat, i As Long
Sat = 3
For i = 4 To sk.[C65536].End(3).Row
    If sk.Cells(i, "G") = [Q4] Then
        Sat = Sat + 1
        sk.Cells(Sat, "AL") = sk.Cells(i, "C")
    End If
Next i
i = sk.[AL65536].End(3).Row
If i > 4 Then sk.Range("AL4:AL" & i).Sort Key1:=sk.[AL1]
End Sub

 

[sdegirmenci]

Sayın Necdet YEŞERTENER Hocam;
İlginize ve nezaketinize çok teşekkür ederim,Kodları anamenü sayfası altına kopyaladım.İlk seçtiğim kan grubuna göre sıraladı.(Yalnızca ab+ grubunu sıralıyor)Ancak daha sonra seçtiğim diğer kan grubuna göre eskisini silip sıralama yapmadı. ilk seçilen sabit kaldı.Tekrar bakabilirseniz çok memnun olurum.

 

[Necdet]

Merhaba,

Kodları ve dosyayı foruma ekler eklemez sizin dediğiniz eksikliği farkettim ve kodları ve dosayayı düzelttim.

Tekrar dosyayı inceleyiniz.

 

[sdegirmenci]

Hocam yalnızca ab+ grubunu sıralıyor.Sıralamaya "Q4" hücresi altındaki Combobox1 den bakabilirsiniz

 

[Necdet]

Sayın sdegirmenci,

Bu benim suçum değil ki

Veri Doğrulama ile getirtiğiniz Kan Grupları ile Personele girdiğiniz Kan Grupları birbirine eşit değil.

Personelde "B +" yazmışken Veri Doğrulamadan "B+" getirtiyorsunuz. İkisi de Aynı olmalı.
KAYNAK sayfasındaki BY sütunundaki Kan Grubu İsimlerini Heryerde kullanmalısınız.

 

[sdegirmenci]

Hocam çok özür dilerim; Gözümden kaçmış, Gecenin bu saatinde sizi yordum.Yalnız her defasında yine çalışmıyor. Çok teşekkür ederim. Hayırlı geceler diliyorum.

 

[Necdet]

İyi geceler,

Güle güle kullanınız.

 

[Necdet]

Yalnız her defasında yine çalışmıyor. Çok teşekkür ederim. Hayırlı geceler diliyorum.

Kan Gruplarını düzgün yazmalısınız. Bir yerde 0 (Rakam) kullanmışsınız başka yerde O (Harf) kullanmışsınız.

Biryerde negatifi belirtmek için (-) kullanmışsınız başka yerde ( - ).