Satırdaki değere göre sutuna yazma

[seddur]

Merhaba arkadaşlar.listbox4'de 1 den 10'a kadar sayılar var.Bu sayılar"ListBox4.List(ListBox4.ListIndex, 0)" koduyla seçildiğinde "LİSTE" sayfasında bulunan "G" sutunundaki ilgili satıra NAKİT Yazılması isteniyor..Ancak "G" sutunundaki yazılacak satırın bulunabilmesi için Liste sayfası "A" sutununda bulunan ve listbox4 ile seçilmiş olan sayıların olduğu satırlar baz alınacak.Örneğin "A" sutununda 2 yazan satırların olduğu "G" sütununa NAKİT Yazacak.Fakat NAKİT kelimesi duruma göre VİSA olarak değişebileceği için bir commandbuttona atanması gerekiyor.Commandbutton caption'dan NAKİT yada VİSA şeklinde değiştirme yapmaktayım.Umarım anlaşılır olmuştur.Yardımlarınız için Teşekkürler.

 

[ÖmerFaruk]

Örnek çözümü de içeren bir dosya eklerseniz anlaşılması daha kolay olacak.

 

[seddur]

Dosya ektedir.

 

[seddur]

Aşağıdaki kod ile sorunu büyük oranda çözdüm fakat ilk bulduğu değere NAKİT yazması sonrakilere de tırnak işareti koyması gerekiyor..Kod "A" sutununda seçilen bütün satırlara tırnak işareti koyuyor NAKİT kelimesini dikkate almıyor.Listboxda nakit ve tırnak işaretlerini yazıyor sayfada yazmıyor.

Dim i As Variant
ListBox3.List(i, 6) = "NAKİT"
For i = 1 To ListBox3.ListCount - 1
ListBox3.List(i, 6) = """"
Next i
For X = 2 To Sheets("Liste").Cells(Rows.Count, "a").End(3).Row

If Sheets("Liste").Cells(X, "a") = ListBox4.ListIndex Then
Sheets("Liste").Cells(X, "g") = ListBox3.List(ListBox3.ListCount - 1, 6)

End If
Next: