ListBox1.ListCount verisini sayısını labellerde göster

[işsiz123]

Arkadaşlar merhabar userform üzerinde listbox1 ve label1 label2 var
yapmak istediğim ListBox1.ListCount kaçsa label1'yarısı label2 diğer yarısını ListBox1.ListCount sonuç çiftse oluyor lakin tekse buçuklu oluyor buçuklu olmasını istemiyorum
Örnek
ListBox1.ListCount = 6 ise
label1.caption =3
label2.caption=3
bu oluyor ancak tek olduğunda
ListBox1.ListCount=7
label1.caption =3,5
label2.caption=3,5
yerine
label1.caption =4
label2.caption=3
olsun

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Label1.Caption = Application.RoundUp(ListBox1.ListCount / 2, 0)
Label2.Caption = Application.RoundDown(ListBox1.ListCount / 2, 0)

.

 

[işsiz123]

Teşekkürler Oldu başka bir şeyde aklım takıldı da olur mu acaba
2 listbox olsun Butona Bastıgımızda yarısı listbox1 diğer kalanları listbox2 de olsun

 

[işsiz123]

Konu Güncel

 

[Ömer]

Teşekkürler Oldu başka bir şeyde aklım takıldı da olur mu acaba
2 listbox olsun Butona Bastıgımızda yarısı listbox1 diğer kalanları listbox2 de olsun

Sorunuzu anlayamadım. Daha detaylı açıklayınız.

.

 

[işsiz123]

listbox1 sayfa verilerinin tümünü alıyorum
userform üzerine listbox2 ekleyip buton yardımıyla listbox1 verisinin yarısını listbox2 aldırma
Örnek
userform ilk açıldığında listbox1 de toplam 10 adet veri oldugunu varsayalım listbox2 box butona bastıgımızda listbox1 de 5 adet kalsın diğer 5 tane listbox2 taşınsın
sonuç olarak
listbox1 de toplam 5 adet veri kalsın
listbox5 de toplam 5 adet veri kalsın

 

[Ömer]

Verileri hangi yöntem ile alıyorsunuz?

Örneğin Listbox1 e verileri hangi yöntem ile alıyorsanız kodlarını yazarmısınız.

.

 

[işsiz123]

Private Sub UserForm_Initialize()

With UserForm1.ListBox1
.BackColor = vbYellow ' Zemin Rengi
.ColumnCount = 3 ' Kaç Sütun Görünecek
.ColumnWidths = "30,40,100" ' Sütun Genişlikleri
.ForeColor = vbBlue ' Yazı Rengi
If Sheets("veri").Range("b1") = Empty Then
.RowSource = Empty
Else
.RowSource = "veri!b2:d" & [veri!d65536].End(3).Row
End If
End With
End Sub

bu kodlarla alıyorum

 

[Ömer]

Bu şekilde deneyin.

Private Sub UserForm_Initialize()

    Dim son As Long, a As Long, b As Long

    son = Sheets("veri").Cells(Rows.Count, "D").End(xlUp).Row - 1
    a = Application.RoundUp(son / 2, 0)
    b = Application.RoundDown(son / 2, 0)

    With UserForm1.ListBox1
        .BackColor = vbYellow ' Zemin Rengi
        .ColumnCount = 3 ' Kaç Sütun Görünecek
        .ColumnWidths = "30,40,100" ' Sütun Genişlikleri
        .ForeColor = vbBlue ' Yazı Rengi
        If Sheets("veri").Range("b1") = Empty Then
            .RowSource = Empty
        Else
            .RowSource = "veri!b2:d" & a + 1
        End If
    End With

    With UserForm1.ListBox2
        .BackColor = vbRed ' Zemin Rengi
        .ColumnCount = 3 ' Kaç Sütun Görünecek
        .ColumnWidths = "30,40,100" ' Sütun Genişlikleri
        .ForeColor = vbBlue ' Yazı Rengi
        If Sheets("veri").Range("b1") = Empty Then
            .RowSource = Empty
        Else
            .RowSource = "veri!b" & a + 2 & ":d" & a + b + 1
        End If
    End With
    
End Sub

.