• Web sitemizin SORU-CEVAP bölümünde dosya yüklemek ve dosya indirmek günlük limitlere bağlı olarak ÜCRETSİZ'dir.
    Gizlilik kapsamında, sadece site yöneticilerimizin ve üyenin kendisinin görebileceği ÜCRETLİ ÖZEL DESTEK alanımız mevcuttur.

Çözüldü Listboxta sayfa listeleme

REKLAM

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

nasyarx

Yeni Üye
Kullanıcı
Yaş
39
Versiyon
  1. Excel 2016
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Selamlar,
Listboxta sayfaları tarihlerine göre ve alfabetik listelemek istiyorum. .. Bazı listeleme örneklerini sizlerden isteyeceğim. Yardımcı olur musunuz?
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ekli dosyalar

  • LİSTBOX SAYFA SIRALI LİSTELEME.xlsm
    38.4 KB · Görüntüleme: 7

ÖmerBey

Sadece Ömer
Yönetici
Site Yöneticisi
Versiyon
  1. Excel 2007
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Merhaba,
Sıralama için CheckBox yerine OptionButton daha doğru bir tercih olacaktır.
OptionButton için kodlarınız aşağıdadır.

PHP:
Private Sub OptionButton1_Click() 'Sayfa sırasına göre'
Dim liste(), a As Byte, b As Byte
For Each syf In Sheets
    For a = 0 To ListBox1.ListCount - 1
        If syf.Name = ListBox1.List(a) Then
            ReDim Preserve liste(b)
            liste(b) = ListBox1.List(a)
            b = b + 1
            Exit For
        End If
    Next
Next
ListBox1.List = liste

End Sub

Private Sub OptionButton2_Click() 'Alfabetik sırala'
Dim a As Byte, b As Byte, x As String
For a = 0 To ListBox1.ListCount - 1
    For b = a + 1 To ListBox1.ListCount - 1
        If ListBox1.List(a) > ListBox1.List(b) Then
            x = ListBox1.List(a)
            ListBox1.List(a) = ListBox1.List(b)
            ListBox1.List(b) = x
        End If
    Next
Next
End Sub

Private Sub OptionButton3_Click() 'Alfabetik tersten sırala'
Dim a As Byte, b As Byte, x As String
For a = 0 To ListBox1.ListCount - 1
    For b = a + 1 To ListBox1.ListCount - 1
        If ListBox1.List(a) < ListBox1.List(b) Then
            x = ListBox1.List(a)
            ListBox1.List(a) = ListBox1.List(b)
            ListBox1.List(b) = x
        End If
    Next
Next
End Sub

Private Sub OptionButton4_Click() 'Tarihe göre: Yeniden eskiye'
Dim a As Byte, b As Byte, x As String
For a = 0 To ListBox1.ListCount - 1
    For b = a + 1 To ListBox1.ListCount - 1
        If DateValue("1 " & Replace(Replace(ListBox1.List(a), "I", "ı"), "İ", "i")) < DateValue("1 " & Replace(Replace(ListBox1.List(b), "I", "ı"), "İ", "i")) Then
            x = ListBox1.List(a)
            ListBox1.List(a) = ListBox1.List(b)
            ListBox1.List(b) = x
        End If
    Next
Next
End Sub

Private Sub OptionButton5_Click() 'Tarihe göre: eskiden yeniye'
Dim a As Byte, b As Byte, x As String
For a = 0 To ListBox1.ListCount - 1
    For b = a + 1 To ListBox1.ListCount - 1
        If DateValue("1 " & Replace(Replace(ListBox1.List(a), "I", "ı"), "İ", "i")) > DateValue("1 " & Replace(Replace(ListBox1.List(b), "I", "ı"), "İ", "i")) Then
            x = ListBox1.List(a)
            ListBox1.List(a) = ListBox1.List(b)
            ListBox1.List(b) = x
        End If
    Next
Next
End Sub
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Sayın @ÖmerBey sağ olsun. (y)
Bu konu sayfasını ziyaret edecek tüm üye ve ziyaretçiler için; akla gelebilecek tüm seçeneklere göre "herkese lazım" kodları döktürmüş.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

nasyarx

Yeni Üye
Kullanıcı
Yaş
39
Versiyon
  1. Excel 2016
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

@ÖmerBey,
Harika çözümünüz için Teşekkür ederim. Sağolun, varolun.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst