Userforma veri alma yardımı

[muratozmenler]

Açıklamayı excel içindeki istediğim olay adlı sayfada açıkladım kısaca konu, açılışta çıkan userform1 den seçilen yapılacak işler ( userform2) de bugün yapılacak olayları görebilmek

 

[janveljan]

Yapılacak İşleri Bul command butonunun kod kısmına şu kodları eklersen işine yarar.

    ListBox1.ColumnCount = 3
    y = 0
    For X = 1 To 10
        If Cells(X, 2).Value = Date Then
        isadi = Cells(X, 4).Value
        merkez = Cells(X, 3).Value
        ListBox1.AddItem y + 1
        ListBox1.List(y, 1) = merkez
        ListBox1.List(y, 2) = isadi
        y = y + 1
        End If
    Next

 

[muratozmenler]

Evet teşekkür ederim peki bazı veriler uzun olduğu için listboxta yarım kalıyor yer olmasına rağmen yani çok aralıklı yazıyor bunu nasıl ayarlayabilirim tekrardan teşekkürler.....