CheckBox ile listbox sa veri alma

[ridvan2111]

selam arkadaşlar.

excelwebtr de bulduğum bir örnek çalışmayı kendime uyarlayamadım.
sorunum şöyle CheckBox larla listbox sa veri alınıyor CheckBox ları çoğalttığımda benim istediğim sütunlar listbox sa nasıl yüklenecek?

 

[metinozlu]

Private Sub CommandButton1_Click()
On Error Resume Next
ListBox1.Clear
Dim i As Integer
i = 0
c = 0

For i = 1 To 10 'bu sayı arttırılabilir
If Controls("CheckBox" & i).Value = True Then

For T = 1 To 10

ListBox1.AddItem
ListBox1.List(T - 1, c) = Cells(T, i)

Next T
c = c + 1

End If


Next i

End Sub

 

[Orion1]

selam arkadaşlar.

excelwebtr de bulduğum bir örnek çalışmayı kendime uyarlayamadım.
sorunum şöyle CheckBox larla listbox sa veri alınıyor CheckBox ları çoğalttığımda benim istediğim sütunlar listbox sa nasıl yüklenecek?

Dosyanız ekte.

Private Sub CommandButton1_Click()
Dim kolon As Byte, i As [B][COLOR="Red"]Long[/COLOR][/B], sat As Long, k As Byte
ListBox1.Clear
For i = 1 To 10
    If Controls("CheckBox" & i).Value = True Then kolon = kolon + 1
Next i
If kolon = 0 Then Exit Sub
sat = Cells(65536, "A").End(xlUp).Row
ListBox1.ColumnCount = kolon
ReDim myarr(1 To kolon, 1 To sat)
For k = 1 To 10
    If Controls("CheckBox" & k).Value = True Then
        sut = sut + 1
        For i = 1 To Cells(65536, "A").End(xlUp).Row
            myarr(sut, i) = Cells(i, k).Value
        Next i
    End If
Next k
ListBox1.Column = myarr
Erase myarr
End Sub

 

[ridvan2111]

sn Evren Gizlen ve metin ozlu
yardımınız için teşekkür ederim
sn Evren Gizen
sayfada altalta 250 satırdan fazla olduğunda hata veriyor nedeni ne olabilir

 

[Orion1]

sn Evren Gizlen ve metin ozlu
yardımınız için teşekkür ederim
sn Evren Gizen
sayfada altalta 250 satırdan fazla olduğunda hata veriyor nedeni ne olabilir

Durum düzeltildi.
3 numaralı mesajdan dosyayı indirebilirsiniz.

 

[honestguy25]

aynı durumla bende karşı karşıyayımda acaba listeledikten sonra nasıl yazdırabılırım ??

 

[honestguy25]

If Controls("CheckBox" & i).Value = True Then

bende kendi dosyama uyarladım ama bu kısım hata veriyor neden olabılır acaba?