Listbox.ta veri yoksa, Yoktur diye yazsın.

[İsmail Küçükşengün]

Merhabalar;

Listbox'a verilerin geldiği sayfada veri yoksa, (Listbox boş olacağından)Listbox'un orta tarafında " Henüz Kayıt Yok" şeklinde yazı gelmesi için nasıl kod gereklidir.

Teşekkürlerimle.

 

[Levent Menteşoğlu]

Listboxa veri aldığınız sayfa adını ve aralığını verirmisiniz.

 

[İsmail Küçükşengün]

Listboxa veri aldığınız sayfa adını ve aralığını verirmisiniz.

Sayın Leventm;

ListBox1.RowSource = "raporla!a200:a250"

 

[emrexcel123]

if

koda şunu ekleyin

 

[emrexcel123]

if

koda şunu ekleyin
If Range("a200:a250").Text = "" Then
MsgBox "Henüz Kayıt Yok"
End If

 

[İsmail Küçükşengün]

Sayın emrexcel123;

İlgine teşekkür.

Fakat ben mesaj çıkmasını değil de, Henüz Kayıt Yok yazısının Listbox'a yazılı olmasını istedim.

 

[Korhan Ayhan]

Selamlar,

Ekte örnek bir dosya hazırladım. İncelermisiniz. Umarım faydası olur.

 

[İsmail Küçükşengün]

Sayın Cost Control;

Evet. İstediğim bunun gibi.

Bir de, Henüz Kayıt Yok yazısı, ekteki dosyamda açıkladığım gibi Listbox'un ilk satırında yani baş tarafta değilde, Listbox'un orta kısmında ve ortalı olabilir mi?

Çok teşekkür ederim.

 

[Levent Menteşoğlu]

Userformdaki kodu aşağıdaki ile değiştirin.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 1
ListBox1.ColumnWidths = "200"
If WorksheetFunction.CountA(Sheets("raporla").[A201:A250]) = 0 Then
ListBox1.TextAlign = fmTextAlignCenter
[B][COLOR=blue]For a = 1 To 11
ListBox1.AddItem ""
Next
[/COLOR][/B]ListBox1.AddItem "HENÜZ KAYIT YOK !"
Else
ListBox1.ColumnHeads = True
ListBox1.RowSource = "raporla!A201:A250"
End If
End Sub

 

[ocamsul]

Sn: COST_CONTROL verdiğiniz örneği uyguladım, çok da güzel oldu ancak textBox lar ile yeni kayıt girildiğinde bu liste yenilenip, yeni kayıtları nasıl alır?


Sorun Çözülmüştür arkadaşlar.

 

[İsmail Küçükşengün]

Sayın Leventm;

Teşekkür ederim.

Bir de, Listboxa gelen veriler değil de, Henüz Kayıt Yok yazısı, örneğimdeki gibi küçük harf ve soluk yazı olabilir mi?

 

[Haluk]

Private Sub UserForm_Initialize()
    ListBox1.ColumnCount = 1
    ListBox1.ColumnWidths = "200"
    If WorksheetFunction.CountA(Sheets("raporla").[A201:A250]) = 0 Then
        ListBox1.TextAlign = fmTextAlignCenter
        For a = 1 To 11
            ListBox1.AddItem ""
        Next
            ListBox1.AddItem "henüz kayıt yok !"
            ListBox1.ForeColor = &HC0C0C0
            ListBox1.Enabled = False
        Else
            ListBox1.ColumnHeads = True
            ListBox1.RowSource = "raporla!A201:A250"
    End If
End Sub

 

[İsmail Küçükşengün]

Sayın Haluk;

Evet. İşte bu.

Teşekkürler.

 

[ocamsul]

Bu şekilde de kullanabilirsiniz yazı boyutunu ayarlamak için.

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 1
ListBox1.ColumnWidths = "20"
If WorksheetFunction.CountA(Sheets("raporla").[A2:A25]) = 0 Then
ListBox1.TextAlign = fmTextAlignCenter
For a = 1 To 4
ListBox1.AddItem ""
Next
ListBox1.ForeColor = &H80000003
ListBox1.AddItem "HENÜZ KAYIT YOK !"
ListBox1.Font.Size = 20

Else
ListBox1.ColumnHeads = True
ListBox1.RowSource = "raporla!A2:A25"
End If
End Sub

 

[İsmail Küçükşengün]

Tüm cevap verenlere teşekkürler.