Listboxtan secim yapmadan hücreye veri göndermek

[mtozer]

Bu kodlarla listbox taki verileri hücrelere aktarıyorum. Ancak listboxtan secim yapmadan göndermiyor. "selected." ibaresini kaldırıp denedim ancak olmadı.

With ListBox1
For a = 0 To .ListCount - 1
If .Selected(a) = True Then
Range("A65536").End(3)(2, 1) = .List(a, 0)
Range("B65536").End(3)(2, 1) = .List(a, 1)
Range("C65536").End(3)(2, 1) = .List(a, 2)
Range("D65536").End(3)(2, 1) = .List(a, 3)
Range("E65536").End(3)(2, 1) = .List(a, 4)
Range("F65536").End(3)(2, 1) = .List(a, 5)

 

[Ömer BARAN]

Merhaba.

Konuyla ilgilenen üyelerden;
-- boş bir belge oluşturup,
-- bu belgeye de, içerisinde nesneler olan bir UserForm eklemesini,
-- sayfalara da veriler yazarak kodları denemesini,
-- sorun yoksa da sonucu cevap olarak yazmasını
istemiş oluyorsunuz.

Bunun yerine, sorunuzu, örnek belgeyle desteklerseniz;
hem konuyla daha çok üye ilgilenecek, hem de daha hızı sonuca ulaşacaksınız diye düşünüyorum.

Örnek belge özellikleri ve örnek belge yükleme yöntemine ilişkin açıklama, cevabımın altındaki İMZA bölümünde var.
.

 

[mtozer]

bazen 2 satır ölçü ekleniyor listboxlara bazen 10 satır veri ekleniyor. Ancak şu anki komutla illaki seçim yapmam gerekiyor ve secim sonrasında sadece sectiğim satırı hücreye gönderebiliyorum.

http://s9.dosya.tc/server2/w2pbh7/fis3.rar.html

 

[Ömer BARAN]

Tekrar merhaba.

--- Belge ve formdan amaçladığınız şeyi pek anlamadım ama GÖNDER düğmesinin kodlarındaki kırmızı renklendirdiğim satır,
-> sol başına TEK TIRNAK ekleyerek veya
-> bu satırları silerek
düğmeye tıklandığında (seçim yapılmadan) ListBox'taki satırlar sayfaya aktarılıyor.

--- Ayrıca aktarma sonrasında formdaki aktarılan verilerin silinmesi gerekmez mi?
İşlemlerinizi bilemediğim için; aktarılan veri silinmelidir diye düşünüyorum.
Bunun için de o kodların End Sub satırından önce ListBox1.Clear diye bir satırın olması lazım,
formdaki diğer nesnelerin (TextBox, Combobox) durumunu da unutmayın.
.

        For a = 0 To .ListCount - 1
[COLOR="Red"]            If .Selected(a) = True Then[/COLOR]
            .........................
            .........................
[COLOR="red"]            End If[/COLOR]
        Next a

 

[mtozer]

Proogramin amaci su; ornegin bir musteri 10 farkli malzeme aldi. Bunlarin olculeri farkli farkli bu olculeri tek tek girip listboxlarda topluyorum. Hepsinin toplamini alip hucrelere aktariliyor. Buradanda dusey ara ile bir fis hazirlamak istiyorum. Listboxlarin temizlenmesine gerek yok. Ancak textboxlari temizleyecegim.

 

[Ömer BARAN]

Yani sonuçta;
-- listboxtan seçim yapmadan veri aktarma işlemi, kod'daki If.... ve End If satırlarını silerek,
-- nesne içeriklerini temizlemek için, kod'ların sonuna TextBox..="" şeklinde satırlar ekleyerek
işleminiz tamamlanmış oluyor.
.