Soru Listboxta seçilen satırı tekrar seçmek için onay alma

[sirkülasyon]

Userform üzerinde bulunan listboxta satırlar mevcut. Kullanıcı listboxta ki satırdan herhangi birini "Öğretmen" sayfası C2: Y aralığına bakarak ikinci kez seçtiği zaman "sayfada seçilen öğretmen mevcut bir daha mı aynı öğretmene ekders hesaplayacak sınız?" uyarısını verecek Evet ise Öğretmen sayfasına aktarsın HAYIR ise aktarmasın.
Saygı ve hürmetlerimle

 

[ÖmerFaruk]

Dosyanızı da eklemin gerekecek.

 

[sirkülasyon]

üstad
örnek dosya ekte.
Yıl ve Ay değişmediği müddetçe Listboxta seçilen satır bir daha seçilmesin. Eğer seçilecekse de uyarı sonucu evet ise seçime izin versin.
Yıl ve Ay değiştiği zaman da yine sadece bir kere seçme hakkı versin. Eğer seçilecekse de uyarı sonucu evet ise seçime izin versin.
Teşekkür ederim.

 

[sirkülasyon]

bakabildiniz mi?

 

[ÖmerFaruk]

Şu kodları kullanabilirsini

Dim Kilit As Integer
Private Sub ComboBox1_Change()
Kilit = -1
End Sub

Private Sub ComboBox2_Change()
Kilit = -1
End Sub

Private Sub ListBox1_AfterUpdate()
    If Kilit = -1 Then
        Kilit = ListBox1.ListIndex
    Else
        ListBox1.ListIndex = Kilit
    End If
End Sub

Private Sub UserForm_Initialize()
    With UserForm1.ListBox1
    .ColumnCount = 6 ' Kaç Sütun Görünecek
    .ColumnWidths = "90;90;90;90;90;90" ' Sütun Genişlikleri
    .RowSource = Empty
    .List = Sheets("Sayfa1").Range("B3:G" & [Sayfa1!B65536].End(3).Row).Value
    End With
   
    For i = 2021 To 2025
        ComboBox1.AddItem i
    Next i
    For i = 1 To 12
        ComboBox2.AddItem Format(DateSerial(2000, i, 1), "MMMM")
    Next i
    Kilit = -1 'Ekledim
    TextBox1 = Kilit
End Sub

 

[kemal turan]

Pardon yanlış oldu

 

[sirkülasyon]

üstad
başka bir satır seçmeye de izin vermiyor. Seçilen satır için de uyarı vermiyor. Rica etsem bakabilir misiniz?

 

[ÖmerFaruk]

1. Birden fazla satır seçmek mi istiyorsun?
2. Seçilen satırı bir daha seçmek derken seçimi iptal etmek mi istiyorsun?
3. Tek bir ListBox yerine, birinciden seçilenleri ikinci bir Listboxa atsan haliyle tekrar seçim mümkün olmaz. İptal etmek istediğinizi de ikinci listboxdan tıklayıp kaldırabilirsin. Sonuçta ne işlem yapacaksın bilmiyorum ama birinci listbox seçilebileceklerin ikinci listbox işlem yapılacakların listesi halini almış olur. Ben kendi işlerimde bu tür yöntemler kullanıyorum.

 

[sirkülasyon]

Üstad
3. öneriniz için rica etsem örnek dosya eklemeniz mümkün mü

 

[ÖmerFaruk]

Sizin dosya üzerinde bir örnek yaptım. ComBoxlarla ilgili bir şey yapmadım.
Her iki listboxda da DoubleClick ile işlem yapıyorsunuz.

 

[sirkülasyon]

Çok Teşekkür ederim. Ellerinize Sağlık