filtreleme sonucunda listboxta seçilen veriyi ilgili excel sayfasından da seçme

[guter24]

Merhabalar Değerli Hocalarım şimdi bizim okulda öğrenciler için kullandığımız bir sistem var ekteki dosyanın açılan formunda öğrenci aidat girişi bölmesinde normalde listbox2 den seçim yapınca seçimin karşılığını AİDAT isimli sayfada buluyor. Buraya kadar bir sıkıntı yok ama arama başlıklı textbox 18 de öğrenci araması yaparken listbox2 de verileri filtreliyor fakat filtre yapılan veriler içerisinden listboxtan2 den seçilen öğrenciyi AİDAT isimli sayfada seçmiyor çözümünü bir türlü oluşturamadım yardımlarınızı rica ediyorum.

DOSYA LİNKİ
ÖĞRENCİ BİLGİ SİSTEMİ

 

[Haluk]

Dosyanız virüs uyarısı verdiği için indirilemiyor. Ayrıca, MEB öğrencilerden aidat alınmasını yasaklamadı mı?

.

 

[guter24]

Dosyanız virüs uyarısı verdiği için indirilemiyor. Ayrıca, MEB öğrencilerden aidat alınmasını yasaklamadı mı?

.

Kaspersky internet security 2022 kullanmaktayım dosyada herhangi bir virüs yoktur. 2. sorunuza gelince milli eğitim bakanlığına bağlı tüm resmi anaokullarında yönetmelik gereği aidat toplaması yasaldır.
Bakınız ; (Okul Öncesi ve İlköğretim Kurumları Yönetmeliği Madde 67)

Mevzuat Bilgi Sistemi

Resmî Gazete’de yayımlanan kanunlar, Cumhurbaşkanlığı kararnameleri, yönetmelikler, tebliğler ve diğer düzenleyici idari işlemler tek metin haline getirilir ve güncel olarak yayımlanır

www.mevzuat.gov.tr

 

[YUSUF44]

Dosyanızdaki sorunu tespit edemedim çünkü açılışta bir sürü hata verdi. Hataları pasifledikten sonra formu açtığımda da fare imleci çok yavaş çalışmaya başladı ve excel çöktü maalesef.

ilk başta gördüğüm bazı sıkıntıları hatırlatmak istedim: Dosyanızda excelin mevcut halini değiştiren kodlar var, başlığı değiştirme, görünümü küçültme, açık dosyaları gizleme gibi. bu özelliklerin hiçbirini ben kullanmam ve başka bir dosyanın da bunu benim bilgisayarımda yapmasını istemem. Bu nedenle kullanıcının siteminde değişiklik yapan kodları dosyalarınızda kullanmanızı tavsiye etmem. En azından bu özellikleri pasifledikten sonra paylaşmanızı öneririm.

 

[guter24]

Dosyanızdaki sorunu tespit edemedim çünkü açılışta bir sürü hata verdi. Hataları pasifledikten sonra formu açtığımda da fare imleci çok yavaş çalışmaya başladı ve excel çöktü maalesef.

ilk başta gördüğüm bazı sıkıntıları hatırlatmak istedim: Dosyanızda excelin mevcut halini değiştiren kodlar var, başlığı değiştirme, görünümü küçültme, açık dosyaları gizleme gibi. bu özelliklerin hiçbirini ben kullanmam ve başka bir dosyanın da bunu benim bilgisayarımda yapmasını istemem. Bu nedenle kullanıcının siteminde değişiklik yapan kodları dosyalarınızda kullanmanızı tavsiye etmem. En azından bu özellikleri pasifledikten sonra paylaşmanızı öneririm.

Geri dönüşünüz için çok teşekkür ederim Yusuf bey gerekli düzenlemeleri yapıp dosyayı tekrar yüklüyorum ilgilenebilir misiniz ?
DOSYA LİNKİ :
GÜNCEL DOSYA

 

[guter24]

Dosyada virüs ve hata uyarısı alan hocalarım için güncel dosya linki aşağıdadır
GÜNCEL DOSYA

 

[YUSUF44]

Aşağıdaki kodları deneyin:

    sat = WorksheetFunction.Match(ListBox2.List(ListBox2.ListIndex, 0), Sht00.Range("C:C"), 0)
    Sht00.Range("F" & sat).Select

 

[guter24]

Aşağıdaki kodları deneyin:

    sat = WorksheetFunction.Match(ListBox2.List(ListBox2.ListIndex, 0), Sht00.Range("C:C"), 0)
    Sht00.Range("F" & sat).Select

Yusuf bey dediğiniz kodları tam olarak nereye uygulayacağım anlayamadım ama ? listbox2 click olayına mı yoksa textbox18 change olayına mı eklemem gerekiyor

 

[YUSUF44]

Bu satırlar listbox2'de seçili değeri sht00 sayfasının C sütununda arayıp kaçıncı satırda olduğunu bulup o satırın F sütunundaki hücreyi seçiyor. Bu işlem nerde yapılıyorsa oraya eklemelisiniz.

 

[guter24]

Bu satırlar listbox2'de seçili değeri sht00 sayfasının C sütununda arayıp kaçıncı satırda olduğunu bulup o satırın F sütunundaki hücreyi seçiyor. Bu işlem nerde yapılıyorsa oraya eklemelisiniz.

öncelikle tüm yardımlarınız için çok teşekkür ederim yusuf bey kodlatı aşağıdaki gibi düzenleyince tüm sorunum çözüldü

Private Sub ListBox2_Click()

'LİSTBOX 2 YE TIKLANDIĞINDA YAPILACAK İŞLEMLER

If TextBox18 = "" Then

'Userform daki verileri temizle
Call Temizle_Click

'Aidat Sayfasındaki veriyi Listbox 2 ye gönder ve tıklayınca ilgili sayfadaki veriyi seç

For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) = True Then
Sht00.Select
Sht00.Range("F" & ListBox2.ListIndex + 2).Select

'Öğrenci Sıra No aktar
FrmKayit.Label44.Caption = ActiveCell.Offset(0, -5).Value

'T.C Kimlik Numarasını aktar
FrmKayit.TextBox1.Text = ActiveCell.Offset(0, -4).Value

'Öğrenci Adını Soyadını aktar
FrmKayit.TextBox_cocuk_ad_soyad = ActiveCell.Offset(0, -3).Value

'Öğrenci Sınıf Şube aktar
FrmKayit.ComboBox2.Text = ActiveCell.Offset(0, -2).Value

'Öğrenci Okula Kayıt Tarihi aktar
FrmKayit.TextBox5.Text = ActiveCell.Offset(0, -1).Value

End If
Next
Else

sat = WorksheetFunction.Match(ListBox2.List(ListBox2.ListIndex, 0), Sht00.Range("C:C"), 0)
Sht00.Range("C" & sat).Select

End If

End Sub