e-Okul Raporundan Veri Arama

[akayemrecan]

Arkadaşlar eokul üzerinden bir öğrenci raporu alıyorum. Fakat bu rapor üzerinden öğrenci numarası ile arama yaptığımda öğrencinin sınıf bilgisine ulaşamıyorum. Raporun içindeki bilgiler belirli bir düzen içerisinde fakat çocukların sınıf bilgisi öğrenci bilgileri ile aynı satırda değil tersine sınıf bilgisi en üst satırda. Ben arama yaparken sınıf bilgisine nasıl ulaşabilirim yada sınıf bilgisini otomatik olarak çocukların bilgilerinin olduğu satırlarda ki hücreye nasıl kaydedebilirim.

 

[Haluk]

Dosyadaki bilgiler gerçek gibi duruyor...... internette olması sıkıntı olabilir.

.

 

[akayemrecan]

Dosyadaki bilgiler gerçek gibi duruyor...... internette olması sıkıntı olabilir.

.

Hocam veriler gerçek değil bütün öğrenci isimlerini veri üretme aracı ile random ürettim.

 

[akayemrecan]

@Korhan Ayhan hocam rica etsem dosyaya bir bakabilir misiniz?

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton1_Click()
    Dim S1 As Worksheet, Bul As Range
    
    If TextBox1 = "" Then
        MsgBox "Lütfen öğrenci numarasını giriniz!", vbExclamation
        TextBox1.SetFocus
        Exit Sub
    End If
    
    Set S1 = Sheets("Sheet1")
    Set Bul = S1.Range("B:B").Find(TextBox1, LookAt:=xlWhole)
    
    If Not Bul Is Nothing Then
        TextBox2 = S1.Cells(Bul.Row, "D")
        TextBox3 = S1.Cells(Bul.Row, "H")
        TextBox4 = Split(Split(Bul.End(xlUp).Offset(-3, -1).Value, Chr(10))(3), " (")(0)
        TextBox5 = S1.Cells(Bul.Row, "L")
    Else
        TextBox1.SetFocus
        MsgBox "Öğrenci bulunamadı!", vbCritical
    End If

    Set Bul = Nothing
    Set S1 = Nothing
End Sub

 

[akayemrecan]

@Korhan Ayhan hocam çok teşekkür ederim. Ellerinize sağlık.