Soru ListBox'a Alınan Verinin Font Rengi

1Al2Ver

Altın Üye
Katılım
5 Kasım 2007
Mesajlar
4,713
Excel Vers. ve Dili
64 Bit TR - Microsoft Office 365 - Win11 Home
Altın Üyelik Bitiş Tarihi
04-01-2026
Merhaba,

Aşağıdaki kod ile "Veriler" sayfası "S" sütunundan ListBox1'e veri alıyorum,

"Veriler" sayfası "S" sütununda bir çok veri ( kelime-cümle ) kırmızı font rengine sahip, diğerleri siyah.

Renkli olanlar belirli bir sıraya sahip değiller, örnek yanıltmasın,

Acaba verileri renkleri ile birlikte ListBox1'e alabilir miyim ?

Elma Amasya
Marul Antalya
Armut Ankara
Üzüm Manisa

Kod:
Private Sub UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
    Dim a As Long
    a = Sheets("VERİLER").Range("S65536").End(3).Row
    ListBox1.RowSource = "VERİLER!S1:S200" & a
    a = Empty
End Sub
Teşekkür ederim.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Alamazsınız...

Listview kullanmanız daha uygun olacaktır.
 

1Al2Ver

Altın Üye
Katılım
5 Kasım 2007
Mesajlar
4,713
Excel Vers. ve Dili
64 Bit TR - Microsoft Office 365 - Win11 Home
Altın Üyelik Bitiş Tarihi
04-01-2026
Sayın Korhan Ayhan merhaba,

İlginiz için teşekkür ederim,

Saygılarımla.
 
Üst