Listview koşullu renkledirme

[Cengizhantr06]

Kodum bu listview1 de G hücesi 10 dan küçük ise kırmızıya boyasın

Sub listegoster1()
Dim sh As Worksheet
Dim son As Long
Dim i As Long
Dim x As Byte
Set sh = Sheets("Stoklar")
son = sh.Cells(65536, 1).End(xlUp).Row
With anaform.ListView1
.ListItems.Clear
For i = 2 To son
.ListItems.Add , , sh.Cells(i, 1)
x = x + 1
With .ListItems(x).ListSubItems
.Add , , sh.Cells(i, 2)
.Add , , sh.Cells(i, 3)
.Add , , sh.Cells(i, 4)
.Add , , sh.Cells(i, 5)
.Add , , sh.Cells(i, 6)
.Add , , sh.Cells(i, 7)
.Add , , i
End With
Next i
End With
Set sh = Nothing
End Sub

 

[s.savas]

Kodum bu listview1 de G hücesi 10 dan küçük ise kırmızıya boyasın

Sub listegoster1()
Dim sh As Worksheet
Dim son As Long
Dim i As Long
Dim x As Byte
Set sh = Sheets("Stoklar")
son = sh.Cells(65536, 1).End(xlUp).Row
With anaform.ListView1
.ListItems.Clear
For i = 2 To son
.ListItems.Add , , sh.Cells(i, 1)
x = x + 1
With .ListItems(x).ListSubItems
.Add , , sh.Cells(i, 2)
.Add , , sh.Cells(i, 3)
.Add , , sh.Cells(i, 4)
.Add , , sh.Cells(i, 5)
.Add , , sh.Cells(i, 6)
.Add , , sh.Cells(i, 7)
.Add , , i
End With
Next i
End With
Set sh = Nothing
End Sub

Listview1 deki g sütunu kaçıncı sıraya geliyorsa kod'daki SubItems(8) onu yazın.
Renklendirmenin hangi prosedürde çalışmasını istiyorsanız o prosedüre şunu ekleyin Call renkli

Sub renkli()
On Error Resume Next
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SubItems(8) = >10 Then
For a = 1 To ListView1.ColumnHeaders.Count
    ListView1.ListItems(i).ListSubItems(a).ForeColor = vbRed
    ListView1.ListItems(i).ListSubItems(a).Bold = True
    Next a
End If
Next i
End Sub

 

[Cengizhantr06]

Listview1 deki g sütunu kaçıncı sıraya geliyorsa kod'daki SubItems(8) onu yazın.
Renklendirmenin hangi prosedürde çalışmasını istiyorsanız o prosedüre şunu ekleyin Call renkli

Sub renkli()
On Error Resume Next
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SubItems(8) = >10 Then
For a = 1 To ListView1.ColumnHeaders.Count
    ListView1.ListItems(i).ListSubItems(a).ForeColor = vbRed
    ListView1.ListItems(i).ListSubItems(a).Bold = True
    Next a
End If
Next i
End Sub

dediğinizin aynısını yaptım ama ilk sütün hariç hepsini boyadı
g sütunu 7 ye geliyor subitems(7) yaptım hepini boyadı
sadece 7. sütun boyanacak nerde hata yaptımki

 

[s.savas]

dediğinizin aynısını yaptım ama ilk sütün hariç hepsini boyadı
g sütunu 7 ye geliyor subitems(7) yaptım hepini boyadı
sadece 7. sütun boyanacak nerde hata yaptımki

küçük bir dosya ekleyin.

 

[Cengizhantr06]

küçük bir dosya ekleyin.

tamam oldu ben yanlış yazmışım savaş bey çok teşekkür ederim sağolun

 

[s.savas]

tamam oldu ben yanlış yazmışım savaş bey çok teşekkür ederim sağolun

Önemli değil

 

[Cengizhantr06]

Listview1 deki g sütunu kaçıncı sıraya geliyorsa kod'daki SubItems(8) onu yazın.
Renklendirmenin hangi prosedürde çalışmasını istiyorsanız o prosedüre şunu ekleyin Call renkli

Sub renkli()
On Error Resume Next
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SubItems(8) = >10 Then
For a = 1 To ListView1.ColumnHeaders.Count
    ListView1.ListItems(i).ListSubItems(a).ForeColor = vbRed
    ListView1.ListItems(i).ListSubItems(a).Bold = True
    Next a
End If
Next i
End Sub

Listview1 deki g sütunu kaçıncı sıraya geliyorsa kod'daki SubItems(8) onu yazın.
Renklendirmenin hangi prosedürde çalışmasını istiyorsanız o prosedüre şunu ekleyin Call renkli

Sub renkli()
On Error Resume Next
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).SubItems(8) = >10 Then
For a = 1 To ListView1.ColumnHeaders.Count
    ListView1.ListItems(i).ListSubItems(a).ForeColor = vbRed
    ListView1.ListItems(i).ListSubItems(a).Bold = True
    Next a
End If
Next i
End Sub

Bunun 9.sütun da ödenmedi yazıyorsa nasıl renkli yapabiliriz

 

[s.savas]

Bunun 9.sütun da ödenmedi yazıyorsa nasıl renkli yapabiliriz

Aşağıdaki satırı kod bloğundaki satır ike değiştirin.
If ListView1.ListItems(i).SubItems(9) = "ödenmedi" Then