Soru Listboxtan Kan Gruplarını Süzme ve Sayfaya Kaydetme

[TURKOLOG]

Herkese Merhaba
Ekli dosyada Listboxta olan personelden Checkboxta seçilen kan gruplarının süzülerek listboxa gelmesi için naptıysam olmadı
CheckBoxların biri veya hepsi seçili olabilir . CheckBoxlar seçildikçe seçilen kan grubuna ait verinin süzülerek gelmesi gerekiyor.
Listboxta süzüldükçe VERİ sayfası A:N aralığındaki tüm veri süzülüp gelecek

Listboxta süzülen veri Sayfaya Kaydet butonuna tıklanınca TASARI sayfasına A2 den itibaren kaydedilecek

Ben Combobox ile yapmaya çalıştım olmadı.
Yardımcı olabilecek olan varsa çok sevinirim

 

[ÖmerFaruk]

ADO ile bir çok örnek var. Çok sade ve hızlı bir şekilde çözebilirsin.

 

[TURKOLOG]

ADO ile bir çok örnek var. Çok sade ve hızlı bir şekilde çözebilirsin.

Hocam sorun da bu ya yapamadım

 

[Ziynettin]

Seçilen checkbox adına göre listboxa verilerinizi listeler.

 

[TURKOLOG]

Hocam dosyayı deneyip size bilgi vereyim

 

[ÖmerFaruk]

Sn @Ziynettin beyin yaptığı düzenlemeye ben de ADO yöntemini ekledim.
Formunuzda ToogleButton ekledim, Ado ya da Dictionary yöntemlerinden istediğinizi seçebilirsiniz.
Ado yönteminde listboxa sıralamayı kan grubuna göre yaptım.
İnceleyiniz.

 

[TURKOLOG]

Sn @Ziynettin Bey ve Sn @NextLevel emeğiniz için çok teşekkür ederim . Şu mübarek Ramazan ayında Allah ikinizden de razı olsun. Bilginizin zekatı olsun bunlar inşallah.
Hocalarım listboxta süzülen verinin TASARI sayfası A2 satırıdan itibaren kaydedilmesi için de yardımcı olursanız çok makbule geçer.

 

[TURKOLOG]

Sn @NextLevel Hocam tasarım ayrıca çok güzel olmuş.

 

[ÖmerFaruk]

'Sizin Sayfaya kaydet butonunuza aşağıdaki kodu atayın
'Ben başlıkları VERİ sayfasıyla aynı yaptım
    
Private Sub CommandButton6_Click()
With Sheets("TASARI")
    .Range("A2:I" & .Range("A2").End(xlDown).Row).ClearContents
    .Range("A2:I" & ListBox1.ListCount + 1) = ListBox1.List
End With
End Sub

 

[TURKOLOG]

'Sizin Sayfaya kaydet butonunuza aşağıdaki kodu atayın
'Ben başlıkları VERİ sayfasıyla aynı yaptım
   
Private Sub CommandButton6_Click()
With Sheets("TASARI")
    .Range("A2:I" & .Range("A2").End(xlDown).Row).ClearContents
    .Range("A2:I" & ListBox1.ListCount + 1) = ListBox1.List
End With
End Sub

Hocam emeğinize sağlık veriler aktarılıyor . Sadece 1. satırlara çekilen verilerin başlıkları aktarılmıyor.

 

[ÖmerFaruk]

'Ben başlıkları VERİ sayfasıyla aynı yaptım
yazmıştım bir önceki mesajımda.

Dosyanızın son hali ektedir.

 

[TURKOLOG]

Hocam elinize emeğinize sağlık . Çok teşekkür ederim.

 

[ÖmerFaruk]

EyvAllah