Koşullu Small Fonskiyonu

[baydeniro]

Arkadaşlar bir öğretmen dostumuza ekteki dosyada daha net anlatılan bir çözüm gerekli. Ders notu 75:90 arasında olan, Sınıfı veya Anaders kolu Fen dersi olan ve Spor dersi Basketbol olan öğrencilerin Okul numaralarını ben ancak SMALL fonksiyonu aracılığı bulma olanağı olduğunu düşünüyorum. Konuyu inceleyip çözüm önerilerinizi iletirseniz çok memnun oluruz.

 

[Zeki Gürsoy]

Merhaba,
Makrolu çözüm işinize yarar mı? Dosya ekte.

 

[baydeniro]

Teşekkür

Sayın anemos çok iyi olmuş. Kriter başvurularını makronun içine doğrudan değil de hücrelere endeksleyebilir miyiz. Yani kriter değiştiğinde makro bunu kendisi otomatik değiştirsin.

 

[Zeki Gürsoy]

Yukarıdaki dosyayı güncelledim, inceler misiniz?

 

[baydeniro]

Teşekkür

Hocam eline, aklına sağlık, mükemmel ötesi olmuş, süper bir şey. Geliştirme adına birkaç ekleme yapmak mümkün mü !!!
1) Makro önce B3:G60000 alanını temizlesin. (bkz.*)
2) Derlenen verilerin sıralalanarak yapıştırılması mümkün mü !!!
Kriterlere (Sonuçlar sayfası B2) ekledim. Derlenen verilerin, yapılacak seçime göre, Okul no.suna göre veya Ders Notuna göre yapıştırılması.

* Kriter olarak Spor Dersini Voleybol olarak seçip çalıştırdım, veriler düzgün geldi. Ancak tekrar basketbol yazdığımda ise en altta voleybol olan satır kaldı. Halbuki alanı temizlediğimde aynı durum olmadı.

Çok teşekkürler.

 

[Zeki Gürsoy]

Hocam eline, aklına sağlık, mükemmel ötesi olmuş, süper bir şey

Abartmayın canım , mevcut prosedürü bununla değiştirin.

Sub veri_Al()

On Error GoTo hata

Dim db As Database, rs As Recordset, str As String

    [b6:g60000].ClearContents
    
    Set db = OpenDatabase(ThisWorkbook.FullName, False, False, "Excel 8.0")
    
    str = "SELECT * FROM [MERKEZ$] WHERE ([Ders Notu] Between " & [c3] & " And " & [d3] & ") AND " & _
    "([Sınıfı] Like'" & [e3] & "*' Or [Ana Ders Kolu]='" & [f3] & "') AND ([Spor Dersi]='" & [g3] & _
    "') ORDER BY [" & [b3] & "]"
    
    Set rs = db.OpenRecordset(str)
    
    Sheets("Sonuçlar").[a6].CopyFromRecordset rs
    
    db.Close: Exit Sub

hata:
MsgBox Error$(Err.Number)
End Sub

 

[baydeniro]

Teşekkür

Sayın anemos gerçekten çok iyi olmuş, başka söze gerek yok. Çok çok teşekkür ederim.
Verileri Toplayarak Derleme adında bir başka konu daha açıyorum, ona da bir bakmanızı rica ederim. Çok ilginç ama çok da komplike bir çözüm gerektiriyor. Başarılarınızın devamını dilerim. Sağlıcakla kalın.

 

[cedric8]

Bu Kodlari .mdb Demİ Yok Sa .xls De Mİ YazacaĞiz
?????????????????????????????????????????????????????
.mdb De ÇaliŞtiramadim. Referans Eklememİz Mİ Gerekİyor ???????????