Karışık Öğrenci Listesini Sınıf İsmine Göre Listeleme

[SanaLSukuL]

ogrenciler sayfasında
sınıf - tc kimlik - Ad Soyad gibi karışık olarak verilen bilgileri

sinif sayfasındaki ComboBox1 ile ogrenciler sayfasındaki sınıf sütunu süzülerek sadece tc kimlik ve ad soyad larını sinif sayfasına aktarma işlemi yaptırmak istiyorum.

örnek dosyalar buldum ama VBA kodları çok karışık bana göre
ekli dosyayı inceler seniz sevinirim.

Saygılar...

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub ComboBox1_Click()
Dim k As Range
Range("B3:C65536").ClearContents
If ComboBox1.Value = "" Then Exit Sub
Set s1 = Sheets("ogrenciler")
Set k = s1.Range("A3:A65536").Find(ComboBox1.Value, , xlValues, xlWhole)
ReDim myarr(1 To 2, 1 To 1)
If Not k Is Nothing Then
    ilkadres = k.Address
    Do
    a = a + 1
    ReDim Preserve myarr(1 To 2, 1 To a)
    myarr(1, a) = s1.Cells(k.Row, "B").Value
    myarr(2, a) = s1.Cells(k.Row, "C").Value
    Set k = s1.Range("A3:A65536").FindNext(k)
    Loop While k.Address <> ilkadres And Not k Is Nothing
End If
If a > 0 Then
    Application.ScreenUpdating = False
    [B3].Resize(a, 2) = Application.Transpose(myarr)
    Application.ScreenUpdating = True
End If
End Sub

Private Sub Worksheet_Activate()
ReDim myarr(1 To 1, 1 To 1)
For i = 3 To Sheets("ogrenciler").Cells(65536, "A").End(xlUp).Row
    If WorksheetFunction.CountIf(Sheets("ogrenciler").Range("A3" & ":A" & i), Sheets("ogrenciler").Cells(i, "A").Value) = 1 Then
        a = a + 1
        ReDim Preserve myarr(1 To 1, 1 To a)
        myarr(1, a) = Sheets("ogrenciler").Cells(i, "A").Value
    End If
Next i
If a > 0 Then
    Sheets("sinif").ComboBox1.Column = myarr
End If
End Sub

 

[SanaLSukuL]

Sn. Orion2 emeğiniz için teşekkür ederim. Elinize sağlık.
Bu ComboBox1 gelen sınıf listesi karışık gelmiş ama tam istediğim gibi.
Bu listeyi karışık değilde sıralı yapabilir miyiz? Acaba.
(Olmasa da olur ama olsa mükemmel olur.)
Saygılar......

 

[Orion1]

Sn. Orion2 emeğiniz için teşekkür ederim. Elinize sağlık.
Bu ComboBox1 gelen sınıf listesi karışık gelmiş ama tam istediğim gibi.
Bu listeyi karışık değilde sıralı yapabilir miyiz? Acaba.
(Olmasa da olur ama olsa mükemmel olur.)
Saygılar......

Ekli dosyayı inceleyiniz.

 

[SanaLSukuL]

Sn. Orion2 nasıl teşşekkür edeceğimi bilmiyorum. Beni çok karışık işlemlerden kurtardınız. Çok teşekkür ederim.
Saygılar..

 

[Orion1]

Sn. Orion2 nasıl teşşekkür edeceğimi bilmiyorum. Beni çok karışık işlemlerden kurtardınız. Çok teşekkür ederim.
Saygılar..

Rica ederim.
İyi çalışmalar.

 

[SanaLSukuL]

Teşekkür ederim. Sizede paylaşım da kolaylıklar dilerim.
Saygılar...