matematiği seçenleri bulup sıralamak

[halilerol]

iyi akşamlar arkadaşlar. çok uğraştım ama bir türlü yapamadım yardımlarınızı bekliyorum.

isteğim

sayfa1 'de listemde öğrenci isimleri ve seçrikleri 3 adet proje ödev dersi var.
sayfa2'de matematik sayfa3'te türkçe vs.. devam edecek

sayfa 2 a1'e matematik yazdığımda sayfa1deki öğrencilerinden hangileri matematiği seçmişse onların listelenmesini istiyorum.

sayfa 3 a1'e türkçe yazdığımda sayfa1deki öğrencilerinden hangileri türkçeyi seçmişse onların listelenmesini istiyorum.

şimdiden ilginize teşekkür ederim.

 

[Mustafa MUTLU]

Makro Olurmu ?..

 

[halilerol]

olur tabi işimi görsün yeterki
sizede zahmet olmasın

 

[Mustafa MUTLU]

Şunu Denermisiniz
Yalnız A1 e Yazdığınız matematik değil de Matematik olmalı

veri Çağıracağınız Sayfanın Kod Bölümüne yapıştırın
Bir düğmeye Makroyu atayın.

Sub MUSTAFA_MUTLU()
Dim MM, MSTF, Mustafa_MUTLU1
Mustafa_MUTLU1 = [A1]
Application.ScreenUpdating = False
Range("A5:E65536").ClearContents
MM = 5
For MSTF = 2 To Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row
If Sheets("Sayfa1").Cells(MSTF, "E") = Mustafa_MUTLU1 Then
Cells(MM, "A") = MM - 4
Cells(MM, "B") = Sheets("Sayfa1").Cells(MSTF, "B")
Cells(MM, "C") = Sheets("Sayfa1").Cells(MSTF, "C")
Cells(MM, "D") = Sheets("Sayfa1").Cells(MSTF, "D")
MM = MM + 1
End If
If Sheets("Sayfa1").Cells(MSTF, "F") = Mustafa_MUTLU1 Then
Cells(MM, "A") = MM - 4
Cells(MM, "B") = Sheets("Sayfa1").Cells(MSTF, "B")
Cells(MM, "C") = Sheets("Sayfa1").Cells(MSTF, "C")
Cells(MM, "D") = Sheets("Sayfa1").Cells(MSTF, "D")
MM = MM + 1
End If
If Sheets("Sayfa1").Cells(MSTF, "G") = Mustafa_MUTLU1 Then
Cells(MM, "A") = MM - 4
Cells(MM, "B") = Sheets("Sayfa1").Cells(MSTF, "B")
Cells(MM, "C") = Sheets("Sayfa1").Cells(MSTF, "C")
Cells(MM, "D") = Sheets("Sayfa1").Cells(MSTF, "D")
MM = MM + 1
End If
Next
Application.ScreenUpdating = True
MsgBox Mustafa_MUTLU1 & " Seçenleri Aktardım", vbInformation, "Mustafa MUTLU 533 740 45 49"
End Sub

 

[greatkeops]

Peki bunu formülle yapmak mümkün mü? Aynı dertten ben de muzdaribim.

 

[muygun]

Merhaba;
İşlevlerle çözüm alternatif olsun.
İyi çalışmalar.

 

[halilerol]

ilginize teşekkür ederim. çok güzel olmuş