Listbox'tan veri çekme

[ilker29]

Merhba arkadaşlar
Ekli tabloda bir userformun için beş adet listbox ekledim. Userform çalıştır butonuna tıkladığımda userform gelmekte ve veriler görünmektedir.
Yapmak istediğim yeni bir sayfa açıp A1 hücresinden başlayarak, beş adet listbox içinde bulunan Verilerin sıralamaları değişmeden seçilenler aynen seçilmeyenler ise sıfır olarak yazdırmak istiyorum. Konu hakkında yardımcı olabilirmisiniz?

 

[Muzaffer Ali]

Merhaba.

Dosya eklerken sıkıştırmadan eklerseniz daha iyi olur.

Formdaki Kaydet butonunun kodları .

Private Sub CommandButton1_Click()
    Dim Bak As Integer
    Worksheets.Add
    
    Range("A1:A" & ListBox1.ListCount).Value = ListBox1.List
    Range("A1:A" & ListBox1.ListCount).NumberFormat = "dd/mm/yy hh:mm;@"
    
    For Bak = 1 To ListBox1.ListCount
    
        If ListBox2.Selected(Bak - 1) Then
            Cells(Bak, "B") = ListBox2.List(Bak - 1, 0)
        Else
            Cells(Bak, "B") = 0
        End If
        
        If ListBox3.Selected(Bak - 1) Then
            Cells(Bak, "C") = ListBox3.List(Bak - 1, 0)
        Else
            Cells(Bak, "C") = 0
        End If
        
        If ListBox4.Selected(Bak - 1) Then
            Cells(Bak, "D") = ListBox4.List(Bak - 1, 0)
        Else
            Cells(Bak, "D") = 0
        End If
        
        If ListBox5.Selected(Bak - 1) Then
            Cells(Bak, "E") = ListBox5.List(Bak - 1, 0)
        Else
            Cells(Bak, "E") = 0
        End If
    Next
End Sub

 

[ilker29]

Teşekkür ederim

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.

 

[ilker29]

Merhaba Muzaffer Ali bey
Vermiş olduğunuz kodlarda hiç bir sıkıntı yok çalışmakta. Ekli tabloda iki adet userform oluşturdum, kodları yazdım fakat listbox'ta seçtiğim verileri yeni sayfaya eklerken run time error hatası veriyor. Konu hakkında bana tekrar destek verebilir misiniz?

 

[Muzaffer Ali]

Merhaba.

Sorun ListBox1 ile diğerlerinin satır sayılarının farklı olmasından kaynaklanıyor.

Listbox1 A1:A25 aralığını alıyor. Satır sayısı 25

UserForm1.ListBox1.RowSource = "veri!A1:A25"

Listbox2 B2:B25 aralığını alıyor. Satır sayısı 24

UserForm1.ListBox2.RowSource = "veri!B2:B25"

İkisini de aynı yaparsanız hata almazsınız.

 

[ilker29]

Teşekkür ederim
Bir sorum daha olacak size userformdaki listboxların altında checkbox koysam checkbox'a tıkladığımda listboxlardaki verilerin tamamı seçilse bu nasıl bir kod olamalı.

 

[Muzaffer Ali]

Aşağıdaki kodu sadece bir kere ekleyin.

Sub Secim(Lbox As Control, Deger As Control)
    Dim Bak As Long
    For Bak = 0 To Lbox.ListCount - 1
        Lbox.Selected(Bak) = Deger.Value
    Next
End Sub

Aşağıdaki kodu da her CheckBox için ayrı ayrı ekleyin.
Aşağıdaki kod CheckBox1'in seçimine göre ListBox2'de seçim yapar.
Diğerlerini de buna göre siz yapın.

Private Sub CheckBox1_Change()
    Secim ListBox2, CheckBox1
End Sub

 

[ilker29]

Muzaffer bey
Aşağıdaki kodda resimdeki hatayı veriyor

Private Sub CheckBox1_Change()
Secim ListBox2, CheckBox1
End Sub

 

[Muzaffer Ali]

8. mesajdaki ilk kodu değiştirdim. Yeniden deneyin.

 

[ilker29]

Teşekkür ederim ellerinize sağlık. Sorunsuz çalışıyor

 

[ilker29]

Merhaba yeni konu açmamak adına eski konudan devam etmek istedim.
Yine aynı tabloda çalışmalarım devam etmekte, yeni sorunum userform'da seçim ve kaydet ardından userformdan çıktıktan sonra (yuzey_ısınım_hesap) sub'nın çalışması ve verilerin ortalamasını almasını istiyorum. Şu anki hali ile userform'la birlikte çalışması ve boş sayfada ortalama almakta.
Konu hakkında acil yardım