ListBoxda CheckBox la seçilen sütunları aktar

[omeryılmaz]

Arkadaşlar merhaba,

ListBoxdaki kayıtlardan CheckBox la seçilen sütunları Sayfaya nasıl aktarabilirim.
Konuyla ilgili örnek tüm araştırmalarıma rağmen bulamadım.
Örnek çalışma ektedir.
Yardımlarınız için şimdiden şükranlarımı sunuyorum..

 

[halit3]

Arkadaşlar merhaba,

ListBoxdaki kayıtlardan CheckBox la seçilen sütunları Sayfaya nasıl aktarabilirim.
Konuyla ilgili örnek tüm araştırmalarıma rağmen bulamadım.
Örnek çalışma ektedir.
Yardımlarınız için şimdiden şükranlarımı sunuyorum..

Örnek dosyanızdaki CheckBox nesnelerinin Caption (adı) değerleri demirbaş sayfasındaki birinci satırlara isabet eden kolon başlıkları aynı olmalı

Örnek CheckBox6 daki değer (Adet) F1 hücresindeki başlığın değeri(Adedi) bunlar aynı olmalı


kod:

Private Sub CommandButton1_Click()
yer = "Liste"
sayfa = "DEMİRBAŞ"
If ListBox6.ListCount = 0 Then
MsgBox "hiç veri yok."
Exit Sub
End If
sat1 = 2
For r = 0 To ListBox6.ListCount - 1
If ListBox6.Selected(r) = True Then
deg1 = ""
j = 1
For s = 1 To 16
If Controls("CheckBox" & s).Value = True Then
deg1 = Controls("CheckBox" & s).Caption
For k = 1 To Worksheets(sayfa).Cells(1, Columns.Count).End(xlToLeft).Column
If deg1 = Sheets(sayfa).Cells(1, k).Value Then
Sheets(yer).Cells(sat1, j).Value = Sheets(sayfa).Cells(r + 1, k).Value
j = j + 1
End If
Next k
End If
Next s
sat1 = sat1 + 1
End If
Next r
MsgBox "işlem tamam"
End Sub

 

[omeryılmaz]

Hocam ilginiz için teşekkürler..

Herhalde sorum yanlış anlaşıldı

ListBoxa Demirbaş Sayfasından gelen veriler üzerindeki TextBoxlarla sütuna göre süzme yapıyorum.

ListBoxta süzülen verilerden ChecBoxla seçilen başlıklara ait sütunları (Taşınır Adı, Barkod no.....), Liste Sayfasına aktarmak istiyorum..


Sizin ListWiev de böyle çalışmanız var, ancak veri fazla olunca (23.000 veri) ListWievle çok zaman alıyor, onun için ListBoxta bu işi yapmaya çalışıyorum..


If ListBox6.ListCount < 0 Then Exit Sub
For i = 1 To ListBox6.ColumnCount ' ListBox sütun
If Controls("CheckBox" & i ).Value = True Then ' Seçilen Sütun
Sheets("Liste").Cells(i, 1).Value = ListBox6.Column(i) 'CheckBoxla seçilen sütunları sayfaya aktar
End If
Next i


gibi çalışma nasıl yapabilirim

 

[halit3]

Kod:

Private Sub CommandButton1_Click()
yer = "Liste"
sayfa = "DEMİRBAŞ"
sayi = 16 'CheckBox nesne sayısı
ReDim kolon(sayi)
kolon(1) = 1
kolon(2) = 2
kolon(3) = 3
kolon(4) = 4
kolon(5) = 5
kolon(6) = 6
kolon(7) = 7
kolon(8) = 8
kolon(9) = 19
kolon(10) = 22
kolon(11) = 23
kolon(12) = 24
kolon(13) = 25
kolon(14) = 26
kolon(15) = 27
kolon(16) = 28
 
If ListBox6.ListCount = 0 Then
MsgBox "hiç veri yok."
Exit Sub
End If
Sheets(yer).Cells.ClearContents
t = 1
For i = 1 To sayi
If Controls("CheckBox" & i).Value = True Then
Sheets(yer).Cells(1, t).Value = Controls("CheckBox" & i).Caption
t = t + 1
End If
Next i
sat1 = 2
For r = 0 To ListBox6.ListCount - 1
'If ListBox6.Selected(r) = True Then
j = 1
For s = 1 To sayi
If Controls("CheckBox" & s).Value = True Then
Sheets(yer).Cells(sat1, j).Value = ListBox6.List(r, kolon(s) - 1)
j = j + 1
End If
Next s
sat1 = sat1 + 1
'End If
Next r
MsgBox "işlem tamam"
End Sub

 

[omeryılmaz]

Kod:

Private Sub CommandButton1_Click()
yer = "Liste"
sayfa = "DEMİRBAŞ"
sayi = 16 'CheckBox nesne sayısı
ReDim kolon(sayi)
kolon(1) = 1
kolon(2) = 2
kolon(3) = 3
kolon(4) = 4
kolon(5) = 5
kolon(6) = 6
kolon(7) = 7
kolon(8) = 8
kolon(9) = 19
kolon(10) = 22
kolon(11) = 23
kolon(12) = 24
kolon(13) = 25
kolon(14) = 26
kolon(15) = 27
kolon(16) = 28
 
If ListBox6.ListCount = 0 Then
MsgBox "hiç veri yok."
Exit Sub
End If
Sheets(yer).Cells.ClearContents
t = 1
For i = 1 To sayi
If Controls("CheckBox" & i).Value = True Then
Sheets(yer).Cells(1, t).Value = Controls("CheckBox" & i).Caption
t = t + 1
End If
Next i
sat1 = 2
For r = 0 To ListBox6.ListCount - 1
'If ListBox6.Selected(r) = True Then
j = 1
For s = 1 To sayi
If Controls("CheckBox" & s).Value = True Then
Sheets(yer).Cells(sat1, j).Value = ListBox6.List(r, kolon(s) - 1)
j = j + 1
End If
Next s
sat1 = sat1 + 1
'End If
Next r
MsgBox "işlem tamam"
End Sub

Hocam İlk sekiz kolon mükemmel çalışmakta ancak kolon 19 ve diğer kolonlar seçilmese de aktarılıyor

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

saygılar...

 

[halit3]

1 nolu mesajdaki dosyanızı ben indirmiştim ona göre kodlar gayet güzel çalışıyordu.

Şimdi bu dosyayıda değiştirmişsiniz.CheckBox nesneleri ardışık olarak gitmeli CheckBox nesnesinden 16 aedt var CheckBox9 dan CheckBox16 ya kadar olanı yok siz bunları silmişsiniz ve CheckBox21 den CheckBox26 arası olmuş bunlara dikkat edin.
Bu nesneleri sıralı yaparsanız kod düzenli çalışacaktır.

 

[omeryılmaz]

1 nolu mesajdaki dosyanızı ben indirmiştim ona göre kodlar gayet güzel çalışıyordu.

Şimdi bu dosyayıda değiştirmişsiniz.CheckBox nesneleri ardışık olarak gitmeli CheckBox nesnesinden 16 aedt var CheckBox9 dan CheckBox16 ya kadar olanı yok siz bunları silmişsiniz ve CheckBox21 den CheckBox26 arası olmuş bunlara dikkat edin.
Bu nesneleri sıralı yaparsanız kod düzenli çalışacaktır.

Haklısınız CheckBoxlara sütun numarasına göre değişiklik yapmıştım. Sıralı yaptığımda çalıştı.

Eline yüreğine sağlık şükranlarımı sunarım...

 

[halit3]

Haklısınız CheckBoxlara sütun numarasına göre değişiklik yapmıştım. Sıralı yaptığımda çalıştı.

Eline yüreğine sağlık şükranlarımı sunarım...

İyi çalışmalar