Cengizhantr06
Altın Üye
- Katılım
- 16 Mayıs 2020
- Mesajlar
- 301
- Excel Vers. ve Dili
- Office 365 Türkçe
- Altın Üyelik Bitiş Tarihi
- 18-05-2025
merhaba kodum bu
10gün sayfasında aldığım verileri a4 den a40 a kadar her satıra tümünü boyamak sartıyla renk verebilirmiyiz
listboxda da renkli görünecek
mesala a4 mavi tüm satır
a5 yeşil
a6 kırmızı
Sub listele()
Dim sayfa As Worksheet
Dim ss As Long
Set sayfa = Sheets("10gun")
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 9
ListBox1.ColumnWidths = "100,70,70,70,70,70,70,70,70"
ss = sayfa.Range("A50000").End(xlUp).Row
If ss > 1 Then
ListBox1.RowSource = "10gun!A3:I" & ss
Else
ListBox1.RowSource = "10gun!A3:I2"
End If
End Sub
10gün sayfasında aldığım verileri a4 den a40 a kadar her satıra tümünü boyamak sartıyla renk verebilirmiyiz
listboxda da renkli görünecek
mesala a4 mavi tüm satır
a5 yeşil
a6 kırmızı
Sub listele()
Dim sayfa As Worksheet
Dim ss As Long
Set sayfa = Sheets("10gun")
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 9
ListBox1.ColumnWidths = "100,70,70,70,70,70,70,70,70"
ss = sayfa.Range("A50000").End(xlUp).Row
If ss > 1 Then
ListBox1.RowSource = "10gun!A3:I" & ss
Else
ListBox1.RowSource = "10gun!A3:I2"
End If
End Sub