Kritere göre liste çağırma

[hamdikucukgul]

Bu siteden yatay olarak ornek var. Onu bir çalışmamda kullandım fakat bunu yapamadım. Makro değil formül ile. Sınıf listemi yazınca listem gelsin. Beceremedim.... Yardım lütfen. SAYGILAR Dosya ektedir.

 

[Zeki Gürsoy]

Dosyanız ektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$B$2" Then Exit Sub
    Listele
End Sub
 
Private Sub Listele()
Dim Cn As Object, Rs As Object
 
Set Cn = CreateObject("adodb.connection")
 
Cn.Open _
"Driver={microsoft excel driver (*.xls)};dbq=" & _
    ThisWorkbook.FullName
 
Set Rs = Cn.Execute( _
"select [NO], [ADI SOYADI] from [AnaSayfa$a2:d65000] where SINIF = '" & [b2] & "'")
 
[a4].CopyFromRecordset Rs
 
Rs.Close
Cn.Close
 
Set Rs = Nothing
Set Cn = Nothing
End Sub

 

[hamdikucukgul]

sayın anemos ilgin için çok teşekkür fakat düzgün çalışmıyor. örneğin önce 1A yzdım sonra 1B yazdım 1A nın son 500 nolu öğrencisi en altta görünüyor.
Ayrıca formül olursa sevinirim. Başlık için de teşekkür ederim.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub AKTAR()
Dim ANAS, OD As Worksheet
Dim SUT, S As Integer
Set ANAS = Sheets("AnaSayfa")
Set OD = Sheets("Perf-Ödev-Listesi(1)")
OD.[A4:B1000].ClearContents
For SUT = 3 To ANAS.Cells(65536, "B").End(3).Row
If ANAS.Cells(SUT, "B") = OD.[B2] Then
Range(ANAS.Cells(SUT, "C"), ANAS.Cells(SUT, "D")).Copy
S = S + 1
OD.Cells(S + 3, "A").PasteSpecial xlValues
End If
Next
Application.CutCopyMode = False
Set ANAS = Nothing
Set OS = Nothing
End Sub

 

[hamdikucukgul]

Evet şimdi düzgün çalışyor teşekkür ederim. Formül ile olsaydı makro olunca bazı öğretmenlere zor oluyor olmassa böyle yaparım fakat daha önce formül ile yapıldı örnek göndereyim. ben o dosyaya uygulayamadım güzel di.
Yinede çooooooooook teşekkür ederim. Diğer örnek dosya ektedir.

 

[Merhum İdris SERDAR]

Bu siteden yatay olarak ornek var. Onu bir çalışmamda kullandım fakat bunu yapamadım. Makro değil formül ile. Sınıf listemi yazınca listem gelsin. Beceremedim.... Yardım lütfen. SAYGILAR Dosya ektedir.

Dosyanız ekte.

.

 

[hamdikucukgul]

Çok teşekkür ederim yurttaş bey fakat en alttaki 5C sınıfın mevcudunu ana sayfada 50 kişi yaptım 1 tanesi listeye geldi diğerleri gelmedi bu durumda makrolu olanı kullanayım ilginize teşekkür ederim. Tamam uğraşmayın. Zahmet verdik kusura bakmayın Teşekkürler.

 

[Merhum İdris SERDAR]

Çok teşekkür ederim yurttaş bey fakat en alttaki 5C sınıfın mevcudunu ana sayfada 50 kişi yaptım 1 tanesi listeye geldi diğerleri gelmedi bu durumda makrolu olanı kullanayım ilginize teşekkür ederim. Tamam uğraşmayın. Zahmet verdik kusura bakmayın Teşekkürler.

Dosyanın yapısı basit.

Insert/Name / Define'dan her sınıf için kendi adı ile (örneğin _5C gibi.) alan tanımlaması yapılmıştır. İlgili alan atanımalamasındaki aralıkları isteğinize göre değiştirirseniz, o zaman açıkta isim kalmaz. Örneğin _5C için =AnaSayfa!$B$523:$D$557 aralığı tanımlanmış siz bunu isteğinize göre ayarlamanız mümkün.

.

 

[hamdikucukgul]

Makrolu olanda da sorun çıktı çünkü ben o sayfayı çoğaltacaktım. ders sayısı kdar yapcaktım performnasOdve(1) yazdığı için (2) (3) yapacaktım olmadı neyse saygılar müsait olduğunuzda bakarsanız sevinirim. Çok teşekkürler.

 

[hamdikucukgul]

Tamam yurttaş kardeş anladım bakacağım .

 

[Ali]

Özel mesajla istediğiniz dosya ektedir.

Formda aynı örnekleri olan büyük dosyaları forma yüklemiyorum.

Formüller dizi formülleridir.Dolayısıyla direk enter tuşuna basmadan CTRL+SHIFT+ENTER tuşlarına birlikte basarak giriniz.

Örnek dosya aşağıdaki linktedir.

http://www.mydosya.net/tr/file/1314/S--n--f-listesi-zip.html

 

[hamdikucukgul]

Ali bey çok teşekkür ederim evet bu tür olanlarını çok rakat kullanıyor değiştiryorum. Daha önceki dosyanıda düzenledim şu an öğretmenler arasında dolaşıyor. Çook teşekkürler. Diğer arkadaşlarda teşekkürler. Kolaygelsin.