Boş veya dolu say

[cem yılmaz]

Merhabalar..


Yapmak istediğim option butonda işaretli olan kritere göre dolu olan veya boş olan hücreleri listboxta listelemek istiyorum..

 

[Ayhan Ercan]

Merhaba

"Mühür Bul" butonuna aşağıdaki kodu yazarak deneyiniz...

Private Sub CommandButton1_Click()
ListBox1.Clear
Dim hcr As Range
    For a = 5 To [a65536].End(3).Row
        If Cells(a, 1) = ComboBox1.Value Then
            Set hcr = Cells(a, 1)
            If OptionButton1.Value = True Then
            If hcr.Offset(0, 2) <> "" Then ListBox1.AddItem hcr.Offset(0, 1)
            ElseIf OptionButton2.Value = True Then
            If hcr.Offset(0, 2) = "" Then ListBox1.AddItem hcr.Offset(0, 1)
            End If
        End If
    Next
End Sub

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
Dim i As Long, a As Long, dolu As Boolean
ReDim myarr(1 To 1, 1 To 1)
ListBox1.RowSource = vbNullString
For i = 5 To Cells(65536, "A").End(xlUp).Row
    If Cells(i, "B").Value = Empty And Cells(i, "C").Value = Empty _
    And Cells(i, "C").Value = Empty And Cells(i, "D").Value = Empty _
    And Cells(i, "F").Value = Empty And Cells(i, "G").Value = Empty Then
        dolu = False
        Else
        dolu = True
    End If
    If OptionButton1.Value = True Then
        If dolu = True Then
            a = a + 1
            ReDim Preserve myarr(1 To 1, 1 To a)
            myarr(1, a) = Cells(i, "A").Value
        End If
    End If
    If OptionButton2.Value = True Then
        If dolu = False Then
            a = a + 1
            ReDim Preserve myarr(1 To 1, 1 To a)
            myarr(1, a) = Cells(i, "A").Value
        End If
    End If
Next i
If a > 0 Then ListBox1.Column = myarr

End Sub

 

[cem yılmaz]

Özür dilerim istediklerimi yanlış anlattım galiba bir daha bu sefer örnek vererek anlatayım.

İlk önce personel isimi seçilir.daha sonra option buton2(kullanılmayan mühür) seçilir.İşlemi formül olarak anlatırsam; Combobox1deki isimi a sütununda ara bulunanların B,C,D,E,F,G sütunlarına bak bulduğun boşluklara denk gelen satırlardaki mühür numaralarını (B sütunu) listboxta listele {yani boşluksay}
Aynı işlem option buton1 içinde geçerli sadece farklı olarak kullanılmış olanları listeliyecek.

 

[Ayhan Ercan]

Özür dilerim istediklerimi yanlış anlattım galiba bir daha bu sefer örnek vererek anlatayım.

İlk önce personel isimi seçilir.daha sonra option buton2(kullanılmayan mühür) seçilir.İşlemi formül olarak anlatırsam; Combobox1deki isimi a sütununda ara bulunanların B,C,D,E,F,G sütunlarına bak bulduğun boşluklara denk gelen satırlardaki mühür numaralarını (B sütunu) listboxta listele {yani boşluksay}
Aynı işlem option buton1 içinde geçerli sadece farklı olarak kullanılmış olanları listeliyecek.

2 nolu mesajımdaki kodları denedinizmi?

 

[cem yılmaz]

Ayhan hocam dün akşam yaptığımda çalışmadı fakat şimdi çalışıyor sağolun.Biliyorum biraz konu dışı olabilir ama yukarıdaki işleme ilaveten eklediğim dosayada değişiklik yaptımda şöyleki;

checkbox işaretli ise textboxlar aktif olacak ve ilk seriye aradığım numaranın başını textbox2 ye aradığım serinin son numarasını gireceğim ve buna göre kullanılan veya kullanılmayanları bulabileyim.
checkbox işaretli ise mutlaka seri aralığı girmemi istesin yani biri çalışırken biri çalışmasın

 

[cem yılmaz]

Evren hocam sizi online görünce cevap yazmak istedimde yapmış olduğunuz çalışmaya teşekkür ederim yalnız sizinkisi isimleri listeliyor Evren hocam benim istediğim mühür numaralarını listelemek. 6. mesajımda ki konuda bana yardımcı olabilirseniz sevinirim

 

[cem yılmaz]

Sayın hocalarım yardımlarınızı bekliyorum iyi çalışmalar.

 

[Ayhan Ercan]

.....Biliyorum biraz konu dışı olabilir ama yukarıdaki işleme ilaveten eklediğim dosayada değişiklik yaptımda şöyleki......;

Merhaba sevgili cem yılmaz

Affınıza sığınarak aşağıda vermiş olduğum linkte, 1.Mesajın (sayın Ali'nin mesajı) 4.maddesini okuyabilirmisiniz.?


http://www.excel.web.tr/showthread.php?t=25986

 

[cem yılmaz]

Ayhan hocam beni uyardığınız için size teşekkür ediyorum.Size hiç alınmadım sağolun elinizden geldiği kadar yardımcı olmaya çalışıyorsunuz. benim düşüncem programlama dilini bilmediğim için soruyu parça parça sorarak sonuca ulaşmaktı.Daha önce bir kaç kez başıma gelmişti çünkü mesela işlemi şöyle yapsın böyle uyarı versin şu aktif olsun bu pasif olsun a satırında arasın yoksa c satırına kopyalasın diye karışık bir soru sorarsam kimse bana yardımcı olmaz diye düşünüyordum bende parça parça sorarak cevap alırım diye düşünmüştüm.Tekrar Teşekkür Ederim. Saygılarımla.

 

[Ayhan Ercan]

Ayhan hocam beni uyardığınız için size teşekkür ediyorum.Size hiç alınmadım sağolun elinizden geldiği kadar yardımcı olmaya çalışıyorsunuz. benim düşüncem programlama dilini bilmediğim için soruyu parça parça sorarak sonuca ulaşmaktı.Daha önce bir kaç kez başıma gelmişti çünkü mesela işlemi şöyle yapsın böyle uyarı versin şu aktif olsun bu pasif olsun a satırında arasın yoksa c satırına kopyalasın diye karışık bir soru sorarsam kimse bana yardımcı olmaz diye düşünüyordum bende parça parça sorarak cevap alırım diye düşünmüştüm.Tekrar Teşekkür Ederim. Saygılarımla.

Merhaba,

İşte sıkıntıda burdan geliyor zaten...

Her sorduğunuz sorunun arkasından başka bir soru sormanız durumunda bir önceki sorunuza verilen cevaplar zaman zaman hiç bir işe yaramıyor veya daha açık bir ifade ile söyliyeyim, Örnek olarak bu konu başlığını ele alalım;

İlk sorununuza verilen cevab ile ikinci sorunuza verilecek cevabı birbirine bağlamak gerçekten işi çok karmaşık bir hale getiriyor ve dolayısıyla en başa geçip yeniden bişey yazmaya çalışıyoruz. Bu da ilk mesaja cevap verirken harcamış olduğumuz emeğin ve zamanın boşa gittiğini gösteriyor...

Artık sizin sorularınızın arkasından bir soru daha gelebileceğini varsayarak korkmaya başlıyoruz..

Hatırladığım kadarıyla bir ara Sayın Evren Gizlen hocam size:

"Sizin sorularınızı cevaplamaya çalışırken çok zorlanıyorum"
gibi bir ifade kullanmıştı.

Emin olmanızı isterim ki tamamen yukarda sözü edilen durumlardan kaynaklanan bir stres oluşuyor...

Lütfen bunu bir sitem değil, karşılıklı hoşgörüye dayandırmaya çalışalım..

İşlerinizde başarılar,
Kolay gelsin... k::

 

[cem yılmaz]

Evet Ayhan hocam unutmamışsınız bir ara Sn Evren hocamda bu tür sitemde bulunmuştu kendisi haklıymış hakikatten. İyi dilekleriniz için de size teşekkür ederim.