sirkülasyon
Altın Üye
- Katılım
- 10 Temmuz 2012
- Mesajlar
- 2,518
- Excel Vers. ve Dili
- 2021 LTSC TR
- Altın Üyelik Bitiş Tarihi
- 18-06-2026
Kod:
Dim s1 As Worksheet, a As Long
Set s1 = Sheets("Ceza Takip")
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.FullRowSelect = True
With ListView1.ColumnHeaders
.Add , , s1.Range("B1").Value, Range("B1").Width
.Add , , s1.Range("C1").Value, Range("C1").Width
.Add , , s1.Range("D1").Value, Range("D1").Width
.Add , , s1.Range("E1").Value, Range("E1").Width
.Add , , s1.Range("F1").Value, Range("F1").Width
.Add , , s1.Range("G1").Value, Range("G1").Width
.Add , , s1.Range("H1").Value, Range("H1").Width
.Add , , s1.Range("I1").Value, Range("I1").Width
.Add , , s1.Range("J1").Value, Range("J1").Width
.Add , , s1.Range("K1").Value, Range("K1").Width
End With
For a = 2 To s1.Cells(65536, "B").End(xlUp).Row
With ListView1
.ListItems.Add , , s1.Cells(a, "B").Value
.ListItems(a - 1).SubItems(1) = s1.Cells(a, "C").Value
.ListItems(a - 1).SubItems(2) = s1.Cells(a, "D").Value
.ListItems(a - 1).SubItems(3) = s1.Cells(a, "E").Value
.ListItems(a - 1).SubItems(4) = s1.Cells(a, "F").Value
.ListItems(a - 1).SubItems(5) = Format(s1.Cells(a, "G").Value, "#,##0.00")
.ListItems(a - 1).SubItems(6) = s1.Cells(a, "H").Value
.ListItems(a - 1).SubItems(7) = s1.Cells(a, "I").Value
.ListItems(a - 1).SubItems(8) = s1.Cells(a, "J").Value
.ListItems(a - 1).SubItems(9) = Format(s1.Cells(a, "K").Value, "#,##0.00")
If s1.Cells(a, 9).Value = "ÖDENDİ" Then
.ListItems(a - 1).SubItems(7).ForeColor = vbRed
End If
End With
Next a
.ListItems(a - 1).SubItems(7).ForeColor = vbRed
End If
kısmında hata alıyorum sürekli.
Sayfanın 9.sütununda "ÖDENDİ" yazıyor ise Listview' in 7. Sütununda "ÖDENDİ" yazan satır renklensin
Rica etsem yardımcı olabilir misiniz?
Son düzenleme: