listboxtan çoklu seçim yapılması.

[elvis]

arkadaşlar ekli deneme dosya isimli çalışmam da Sayfa1 e not olarak yazdığım işlemin yapılması için siz değerli üstadlardan yardım isteyecektim.

Şöyle ki ; listboxtan çoklu seçim yapılarak bu verilerin karşılarındaki (istenilen sütunlardaki rakamların) verilerin ilgili sütunlara işlenmesi (çoklu olarak)aktarılması.mesela; listboxtan birkaç veri seçtiğimde form üzerindeki textboxlara bu verilerin karşılarındaki miktarların toplanarak gelmesi. liste üzerinde çift tıklanınca yani önce işaretlenip sonra işaret kaldırılınca bu miktarın textbox a aktarılan rakamdan çıkarılması. böylece tüm işaretli olanlar ayrı ayrı olarak iki textbox ta toplam olarak karşımıza gelecek. daha sonra ÖDEME YAP butonuna bastığımızda bu listedeki seçilen bilgilerin karşılarındaki rakamların ilgili yere (aynı rakamlar olarak ) yazılmasını istiyordum.

şimdiden yardımlarınız için teşekkür ediyorum.

 

[elvis]

arkadaşlar sorunuma çözüm bulacak arkadaş yok mu?

 

[elvis]

yapılması gerekenleri bmp formatında ekliyorum.
şimdiden teşekkürler...

 

[elvis]

sanırım sorunuma çözüm yok!
herkese iyi çalışmalar.

 

[zafer]

Merhaba

Aşağıdaki kodları userformda bir butona atayıp deneyin

For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
say = say * 1 + ListBox1.List(i, 2)
say1 = say1 * 1 + ListBox1.List(i, 6)
toplam = say
TextBox1 = say1
End If
Next

 

[elvis]

Zafer Bey! Öncelikle teşekkür etmek istiyorum. Sorunuma ışık tuttuğunuz için. Listbox'tan seçim ve Textbox'lara toplamların atılması tam istediğim gibi olmuş. Sadece birşey eksik kalmış; o da ikinci bir buton eklersek ÖDEME AKTAR diye, buna basıldığında C ve G sütunlarında yazılan miktarların aynısı, D ve H sütunlarına yazılıp F ve I sütunlarındaki durum kısmına sırasıyla (F sütununa KAPALI FATURA, I sütununa ise KAPALI %10-20 ) yazılabilir mi? bunu da yaparsanız çok memnun kalıcam. Herşey için tekrar teşekkürler.

 

[zafer]

Merhaba

Ekli dosyayı inceleyiniz.

Chekbox1=%10 .... ödeme işaretli ise I sütununamı KAPALI %10... yazacak.
Şu an listboxtan seçtiğiniz kayıtlar için checkbox'ın işaretli olup olmamasına bakmadan yazıyor.

 

[elvis]

Teşekkür ederim Zafer Bey! Harikasınız!
Tam istediğim gibi.
Checkboxları ben yaparım.
Emeğiniz için çok çok teşekkürler.
İyi çalışmalar dilerim.

 

[elvis]

Zafer Bey checkbox'ları aşağıdaki gibi yaptım. Kod sorunsuz çalışıyor.

For x = 0 To UBound(l)
a = l(x)
If CheckBox1.Value = True Then
Cells(a + 1, 4) = Cells(a + 1, 3)
Cells(a + 1, 6) = "KAPALI FATURA"
End If
If CheckBox2.Value = True Then
Cells(a + 1, 8) = Cells(a + 1, 7)
Cells(a + 1, 9) = "KAPALI %10-20"
End If
If CheckBox2.Value = False And CheckBox1.Value = False Then
MsgBox "Ödeme için seçim yapmalısınız!", vbQuestion, "UYARI"
End If
Next

Kodun %99,99 u sizin. Benim %0,01 lik kısmı.
Sorun artık sayenizde halledildi.
İyi ki varsınız!
İyi çalışmalar.

 

[zafer]

Merhaba


Bende dosyanızı hazırlarken bir şeyler öğrendim.Sizde soruyu iyiki sormuşsunuz.

İyi çalışmalar.

 

[elvis]

Sözkonusu paylaşım olunca ve de kapıları her fikre açınca, başta büyük sorun gibi görünen güzel fikirler, sizlerin sayesinde ilginç güzel fikirler haline geliyor. Elmas anlayan ellerde değerlidir. Tekrar teşekkürler.