ListBoxta Seçilen Satırlara ekle.....

[omeryılmaz]

Saygı değer Hocalarım

ListBox içersinde seçilerek işaretlenen Malzemelerin hepsinin sonuna ayrı ayrı Q sütununa İlçe - R Sütununa Aile Sağ. Merkezi adı - S Sütununa Aile Hek. - T Sütununa Teslim Tarihini topluca girmesi gerekmektedir.

Konuya ilişkin Örnek Dosya İlişikte olup, şimdiden öneri ve yardınlarınız için şükranlarımı sunuyorum..... Saygılar..

 

[halit3]

Saygı değer Hocalarım

ListBox içersinde seçilerek işaretlenen Malzemelerin hepsinin sonuna ayrı ayrı Q sütununa İlçe - R Sütununa Aile Sağ. Merkezi adı - S Sütununa Aile Hek. - T Sütununa Teslim Tarihini topluca girmesi gerekmektedir.

Konuya ilişkin Örnek Dosya İlişikte olup, şimdiden öneri ve yardınlarınız için şükranlarımı sunuyorum..... Saygılar..

dosyanda ListBox6.RowSource komutu aynı sayfaya değerleri attırmıyor yani tutuyor bu durumda yardımcı bir listbox7 ekledim önce oraya seçilenlerin satır numarasını alıyor daha sonra bu satır numaralarına aktarıyor siz bu durumu kendinize göre yaparsınız listbox7 nesnesini gizlersiniz.

 

[omeryılmaz]

ListeBoxta Süz ve Süzülen Verilere seç ekle

Değerli Ustadlar
Öncelikle Sevgi ve saygılarımı sunuyorum....

İki ComboBoxla İlçe ve Kurum (" O ve P sütununda kayıtlı ) kolonlardan süzüp ListBoxa verileri getirmek ve ListBoxtaki bu verilerin içersinde seçilerek işaretlenen Malzemelerin hepsinin sonuna ayrı ayrı ComboBox9 - 10 -11 deki verileri eklemek

Örnek Dosya ektedir


Yardım ve Önerileriniz İçin Şükranlarımı sunuyorum

 

[halit3]

Değerli Ustadlar
Öncelikle Sevgi ve saygılarımı sunuyorum....

İki ComboBoxla İlçe ve Kurum (" O ve P sütununda kayıtlı ) kolonlardan süzüp ListBoxa verileri getirmek ve ListBoxtaki bu verilerin içersinde seçilerek işaretlenen Malzemelerin hepsinin sonuna ayrı ayrı ComboBox9 - 10 -11 deki verileri eklemek

Örnek Dosya ektedir


Yardım ve Önerileriniz İçin Şükranlarımı sunuyorum

bana kalırsa bu durumlarda en iyisi Listview nesnesi kullanmanız.

 

[omeryılmaz]

ListBoxta verileri süzünce işlem değişiyor
Süzülen verilere nasıl bilgiler eklenir.........

 

[omeryılmaz]

Süzülen Verilerin sonuna seçerek bilgi ekleme

ListBoxta süzme işlemi yapılınca işlem olmuyor..
Sayfadaki malzemeleri İlçe ve Kurum bazında süzüp süzülen liste içinden seçerek, seçilen malzemeleri Aile hekimlerine zimmetlemem gerekmektedir............

Örn: Sayfada Çorlu 1 No'lu Sağlık Ocağına ait 310 kalem malzeme mevcut, bu malzemeleri süzerek listeBoxta aldıktan sonra içinden seçerek 1. malzeme 5. malzeme ........ 1 Nolu Hekime ve 3-7-9-23.üncü malzemeler... 2 No'lu Hekime gibi birçok sağlık ocağına bu işlem uygulanacak.....

 

[halit3]

ListBoxta süzme işlemi yapılınca işlem olmuyor..
Sayfadaki malzemeleri İlçe ve Kurum bazında süzüp süzülen liste içinden seçerek, seçilen malzemeleri Aile hekimlerine zimmetlemem gerekmektedir............

Örn: Sayfada Çorlu 1 No'lu Sağlık Ocağına ait 310 kalem malzeme mevcut, bu malzemeleri süzerek listeBoxta aldıktan sonra içinden seçerek 1. malzeme 5. malzeme ........ 1 Nolu Hekime ve 3-7-9-23.üncü malzemeler... 2 No'lu Hekime gibi birçok sağlık ocağına bu işlem uygulanacak.....

LİSTVİEW İLE ÇÖZÜM BULDUM

dosyana deneme sayfası ekledim buradan formu aç düğmesine tıkla açılan userformdan üste yeşil renkli textbox nesneleri var ilçe ve sağlık ocağı başlıkların üstündeki yeşil renkli textbox nesnesine aradığın krıterlere uygun kelime gir listview nesnesinde buna ait bilgiler süzülerek gelecektir.buradan yazdırmak istediğin satırların çek işaretini işaretle daha sonra ilçe,aile sağlık merkezi,aile hekimi ne ait combobox nesnelerinden gerekli bilgileri seç daha sonra seçili olanları aktar komut düğmesine tıkla

 

[halit3]

Sayın meryılmaz

Tekrar dönmediğinize göre sorunuz çözümlendi galiba

 

[Korhan Ayhan]

Selamlar,

Eğer sorunuzu doğru anladıysam alternatif olarak CommanButton6 kodunuzu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub CommandButton6_Click() 
    Dim X As Long, BUL As Range
    On Error Resume Next
 
    Sheets("Sayfa2").Select
 
    If ListBox6.ListIndex = Empty Then
        MsgBox "Kayıt Düzeltme yapabilmek için listeden Malzeme veya Malzemeleri işaretlemelisiniz!", vbCritical, "UYARI"
        Exit Sub
    End If
 
    If ComboBox9.Text = Empty Then
        MsgBox ("İlçe Adı Boş Bırakılamaz!"), vbExclamation, "Dikkat !"
        ComboBox9.SetFocus
        Exit Sub
    End If
 
    If ComboBox10.Text = Empty Then
        MsgBox ("Aile Sağlığı Merlezi Adı Giriniz!"), vbExclamation, "Dikkat !"
        ComboBox10.SetFocus
        Exit Sub
    End If
 
    If ComboBox11.Text = Empty Then
        MsgBox ("Aile Hekiminin Adı Soyadını Giriniz!"), vbExclamation, "Dikkat !"
        ComboBox11.SetFocus
        Exit Sub
    End If
 
    If TextBox6.Text = Empty Then
        MsgBox ("Teslim Tarihini Giriniz!"), vbExclamation, "Dikkat !"
        TextBox6.SetFocus
        Exit Sub
    End If
 
    For X = 0 To ListBox6.ListCount - 1
        If ListBox6.Selected(X) = True Then
        Set BUL = Range("A:A").Find(ListBox6.List(X, 0))
            If Not BUL Is Nothing Then
            Cells(BUL.Row, "R") = ComboBox9.Text
            Cells(BUL.Row, "S") = ComboBox10.Text
            Cells(BUL.Row, "T") = ComboBox11.Text
            Cells(BUL.Row, "U") = TextBox6.Text
            End If
        End If
    Next
 
    ComboBox13_Change
End Sub

 

[omeryılmaz]

Teşekkür ederim.
Yoğunluğum nedeniyle geri bildirim yapamadım özür dilerim. Saygılar
Müthiş bir çalışma....Elinize yüreğinize sağlık .....