Çözüldü Option Button ile Listbox Üzerinde Değişiklik Yapmak

[Mtudes]

Merhaba
Anaform userformuyla ile kayıt ettiğim veriler protokol sayfasına ödenmedi olarak kayıt ediliyor.Borcsorgu userformuyla protokol sayfasındaki veriler sorgula butonuyla listbox1 de gösteriliyor ve ödenmeyen protokol bedelleri toplamı borç textboxında gösteriliyor.
Benim sorum şu ; Listbox1 üzerinde ödeme durumu kolonunu option buttonlarla değiştirmek istiyorum.Listbox1 de tıkladığım satırın ödeme durumu yandaki option buttonlarda gösterilecek .Option buttonlarda değişiklik yapıp kaydet butonuna tıkladığımda Listbox1 üzerinde ve Protokol sayfasındaki ilgili kısımlar değişecek.
Yardımcı Olursanız sevinirim .

 

[Patron]

borcsorgu userformu kod bölümüne yapıştırın.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Alparslan]

Merhaba, alternatif olarak.

borcsorgu formunda

1 - Sub Listele() satırının üzerine aşağıdaki satırı ekleyiniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

2- ListBox'tan seçim yapmak için aşağıdaki satırı ekleyiniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

3- Kaydet butonu için aşağıdaki kodları ekleyiniz.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Refaz]

Listele koduna gerek yoktu.
Seçenekleri globala const olarak tanımlarsnız heryere aynı yazılmak zorunda kalmaz abey.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[Mtudes]

Merhaba
Ellerinize sağlık Sayın Refaz ,Sayın Alparslan ,Sayın Balta .
Üç kodda güzel çalışıyor.Sorunsuz çalışıyor sağolun ...

 

[Refaz]

s1.Range("A" & sNo + 1).Value = ListBox1.List(ListBox1.ListIndex, 0) s1.Range("B" & sNo + 1).Value = ListBox1.List(ListBox1.ListIndex, 1) s1.Range("C" & sNo + 1).Value = ListBox1.List(ListBox1.ListIndex, 2) s1.Range("D" & sNo + 1).Value = ListBox1.List(ListBox1.ListIndex, 3) s1.Range("F" & sNo + 1).Value = ListBox1.List(ListBox1.ListIndex, 4) * 1

Abey sanki bunlar fazlalık olmuş gibi.Sadece G sütunu değişmesi yeterli bence.

 

[Refaz]

Aslında bence bir ayrıntıyı unutmuşuz herkes olarak.Listbox seçilimi değilmi kontrolu yapan kod eklenmeliydi.
Kafadan yazacağım kod gibi yani yanlışlık olabilir.
Alttaki kod başlara yazılabilir.

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.