Dersi seçen öğrencilerin tespit edilmesi

[sudusleri]

ekteki dosyada kodu verilen dersi seçen öğrencileri süz isimli sayfada listeletemiyorum.. yardımcı olabilirmisiniz. son bir günüm kaldı dersi seçen öğrenciler kon_başvuru ve sey_başvuru sayfalarında yer alıyor....

şimdiden teşekkürler..

 

[sudusleri]

yardımcı olacak yok mu acaba?

 

[NBATMAN]

Bu süz işlemi hangi kritere göre yapılacak belirtmemişsin?

 

[Orion1]

Süz sayfasındaki başlıklar süzülecek sayfada yoklar.(adı ve kodu hariç).
Diğer başlıkların nereden alınacağını belirtmeniz gerekiyo.Veya diğer başlıklar alınmayacaksa onlar alınmayacak diye açıklama yapmanız gerekiyor.Sorunuza yeterli açıklama yapmadığınız için cevap alamıyorsunuz,tahminimce.

 

[sudusleri]

ynt

Süz sayfasındaki başlıklar süzülecek sayfada yoklar.(adı ve kodu hariç).
Diğer başlıkların nereden alınacağını belirtmeniz gerekiyo.Veya diğer başlıklar alınmayacaksa onlar alınmayacak diye açıklama yapmanız gerekiyor.Sorunuza yeterli açıklama yapmadığınız için cevap alamıyorsunuz,tahminimce.

süz sayfasında ders kodu girildiğinde aşağıdaki tabloya kon_başvuru sayfasından o dersi seçen öğrencilerin numara ve isimleri listelenecek..

ör:
numara____adı__________kod1__ders1____kod2____ders2

50________ahmet________101__türkçe____102_____matematik
70-_______mehmet_______103__beden____101_____türkçe

dikkat ederseniz kon_başvuru ve sey_başvuru yukarıdakine benzer şekilde yapılmış


şimdi ben süz sayfasında dersin kodunu 101 olarak girersem bana tabloda

numara____adı

50________ahmet
70________mehmet

sonucunu versin..

ama kod 103 olursa aşağıdaki sonucu versin


numara___adı

70_______mehmet

diğer verileri ben çekmeyi biliyorum.. yardımcı olursanız sevinirim..

 

[Orion1]

Dosyanız ektedir.

Sub suzme()
Sheets("süz").Select
Application.ScreenUpdating = False
Range("C11:E65536").ClearContents
suz ("KON_BAŞVURU")
suz ("SEY_BAŞVURU")
Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı"
End Sub
Function suz(syf As String)
Dim sat As Long, k As Range, adr As String
sat = Cells(65536, "D").End(xlUp).Row + 1
Set k = Sheets(syf).Range("D5:W65536").Find(Range("D7").Value, _
, xlValues, xlWhole)
If Not k Is Nothing Then
    adr = k.Address
    Do
        Cells(sat, "C").Value = Sheets(syf).Cells(k.Row, "B").Value
        Cells(sat, "D").Value = Sheets(syf).Cells(k.Row, "C").Value
        Cells(sat, "E").Value = k.Value & " " & k.Offset(0, 1).Value
        sat = sat + 1
        Set k = Sheets(syf).Range("D5:W65536").FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adr
End If
End Function

 

[sudusleri]

open office kullandığım için makronun

sat = Cells(65536, "D").End(xlUp).Row + 1

satırında hata verdi..

yine de teşekkür ederim.. makrosuz bir çözüm mümkün mü acaba?

 

[muygun]

Merhaba;
Alternatif:
Tablolarınızı bir miktar değiştirdim.
Eki inceleyin.
Ekli tabloda dersler ve başvuru sayfalarında gri hücreleri yeterince aşağı doğru çoğaltın. süz sayfasında mavi hücrelerde seçim yapın yada boş bırakın.
İyi çalışmalar.

 

[sudusleri]

Merhaba;
Alternatif:
Tablolarınızı bir miktar değiştirdim.
Eki inceleyin.
Ekli tabloda dersler ve başvuru sayfalarında gri hücreleri yeterince aşağı doğru çoğaltın. süz sayfasında mavi hücrelerde seçim yapın yada boş bırakın.
İyi çalışmalar.

inanılmaz...

çok teşekkürler..

 

[sudusleri]

merhaba, dosyayı incelerken küçük bir soruna rastladım.. süz sayfasında bölümü seyahat olarak seçersem derslerin kodları seyahat bölümü kodları olarak değişmiyor..

bu sorunu nasıl çözebilirim? teşekkürler..

 

[1Al2Ver]

Merhaba,

Kodlar her ikisinde de ortak ( örn.; 329k ) bu durumda ayrı ayrı olmasının bir mantığı yok gibi,

Sayın MUygun hepsini bir arada, açılır kutuda toplamış, bence sorun yok.

Kolay gelsin...

 

[muygun]

Merhaba;
süz sayfasında küçük bir revize gerekiyor (burayı atlamışım)
süz sayfası A6 daki formülü
=EĞER(D6="";tamamı;İNDİS(dersler!$A:$AA;2;KAÇINCI(bölümseç;dersler!$A$1:$AA$1;0)))
şeklinde değiştirin.
Not: 8 nolu mesaj ekinde gerekli düzenleme yapıldı
İyi çalışmalar.