Listbox Üzerinde Listelenen satırın excel sayfa satırını bulma / ListBox1_DblClick

[walabi]

Merhaba,

Ekli dosyada Userform20 üzerinde bir adet listbox var. Bu listboxa Çek_Senet adlı excel sayfasından iki tarih arasında vadesi gelecek olan çek, senet bilgilerini almaya çalışıyorum ve bunu yapabilmekteyim. İki tarih arasındaki mantığım ise bugün ile 01.01.3000 tarihleri arası.

Yapmayı istediğim şey ise şu. Listbox1 üzerinde listelenen satırlardan birine çift tıkladığımda aşağıda ki kodda olduğu gibi ödeme yapmak istersem msgboxda evet seçicem, Listbox üzerine alınan verinin excel sayfasındaki karşılığına K sütünundaki hücreye Ödendi şeklinde yazdırcam.

Acaba bu mümkün olabilir mi? Excel sayfasındaki satır sayısı ile Listboxta listelenen satır sayısı aynı olmadığı için mantığı çetrefilli geldi bana. Tarih kısıtlamasını kaldırmam mı gerekir çözüm üretmek için.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim cevap As Integer
cevap = MsgBox("Ödeme Kaydı Yapılsın mı?", vbYesNo + vbQuestion, "ONAY")
If cevap = vbNo Then
    MsgBox "İşlem İptal Edildi"
    Exit Sub
Else
 ' Ödeme yapma kodları


    MsgBox "Ödeme Kaydı Tamamlandı"
End If


End Sub

 

[Zeki Gürsoy]

.... Excel sayfasındaki satır sayısı ile Listboxta listelenen satır sayısı aynı olmadığı için mantığı çetrefilli geldi bana....

Bu nedenle tekil sayılar içeren bir sütuna daha ihtiyaç var. Veritabanı mantığı gibi yani...

 

[Levent Menteşoğlu]

Bu nedenle tekil sayılar içeren bir sütuna daha ihtiyaç var. Veritabanı mantığı gibi yani...

Zeki beye katılıyorum. Dosyanıza ilave bir sütun eklemeden şöyle yapabilirsiniz; Listboxa bir sütun daha ekleyin ve bu sütuna aldığınız verinin satır numarasını yada döngüdeki "i" değişkenini kaydedin. Daha sonra listboxtan geriye veri kaydederken bu sütundaki satır numarasını kullanırsınız. Ayrıca bu kolonun genişliğini "0 pt" yaparsanız listboxtada görünmez.

 

[walabi]

Bu nedenle tekil sayılar içeren bir sütuna daha ihtiyaç var. Veritabanı mantığı gibi yani...

Zeki beye katılıyorum. dosyanıza ilave bir sütun eklemeden şöyle yapabilirsiniz; Listboxa bir sütun daha ekleyin ve bu sütuna aldığınız verinin satır numarasını yada döngüdeki "i" değişkenini kaydedin. Daha sonra listboxtan geriye veri kaydederken bu sütundaki satır numarasını kullanırsınız.

Teşekkürler Levent Bey, denemeye çalışacağım. Benim anladığım kadarı ile durum kısaca ID numarası. Tekil sayıdan kasıt sanırım bu.

 

[Levent Menteşoğlu]

Teşekkürler Levent Bey, denemeye çalışacağım. Benim anladığım kadarı ile durum kısaca ID numarası. Tekil sayıdan kasıt sanırım bu.

Tamamen öyle.

 

[walabi]

Merhaba,

Açmış olduğum konu ile ilgili olarak çalışma dosyasına ID sütunu ekledim ve excel sayfasında L sütunu (12. sütun) ID sütunu. Listbox1 üzerinde ise 5. sütun yani .List(.ListCount - 1, 4) = ceksenet.Cells(i, 12) satırı ile ( wit kullanarak ) ile excel sayfasından ID numarasını listboxa alıyorum.

Aşağıdaki kod nasıl düzeltilmeli. Kod hata vermedi, yani hata vermeden çalışıyor ama K sütunu hücresine "Ödendi" şeklinde bir ibare yazdıramadım. Nerede hata var acaba.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim cevap As Integer
Dim ceksenet As Worksheet
Set ceksenet = Sheets("Çek_Senet")
cevap = MsgBox("Ödeme Kaydı Yapılsın mı?", vbYesNo + vbQuestion, "ONAY")


If cevap = vbNo Then
    MsgBox "İşlem İptal Edildi"
    Exit Sub
Else


    For i = 2 To Sheets("Çek_Senet").Range("A1048576").End(3).Row
    'For i = 2 To ListBox1.List(ListBox1.ListCount - 1, 4)
        If ListBox1.List(ListBox1.ListCount - 1, 4) = ceksenet.Cells(i, 12) Then
            ceksenet.Cells(i, 11) = "Ödendi"
            
        End If

    Next i


    MsgBox "Ödeme Kaydı Tamamlandı"
End If


End Sub

 

[Korhan Ayhan]

For-Next döngüsü yerine Find (Ctrl+F) metodunu araştırınız. Biraz daha performanslı sonuç alabilirsiniz.