Yatay tabloyu vba ile KOŞULLU BİÇİMLENDİRME

[Açılın ben mühendisim]

İyi akşamlar arkadaşlar,
elimde yatay bir tablo var bunu koşullu biçimlendirme yapmak İstiyorum. Yalnız kodlarım hata veriyor, nerde hata yaptığımı farkeden varmı? ya da kodlar için başka bir fikri olan?
Yardımcı olursanız mutlu olurum.








Sub Düğme1_Tıklat()


Dim rng As Range

Dim i As Integer

For i = 3 To 14 ' i değeri satır numaramızı verecek 3 ile 14. satırlarda sırayla dolaşacağız.'

For Each rng In Range(“B” & i & “or” & “I” & i)

if rng.Value = Application.WorksheetFunction.Max(Range(“B” & i & or & “I” & i)) Then
rng.Interior.Color = vbGreen

ElseIf rng.Value = Application.WorksheetFunction.Min(Range(“B” & i & “:” & “I” & i)) Then
rng.Interior.Color = vbRed

End If

Next rng

Next i


End Sub

 

[Emir Hüseyin Çoban]

. . .

Sub kod()

Dim rng As Range
Dim i As Integer

For i = 3 To 14
Range("B" & i & ":" & "I" & i).Interior.Pattern = xlNone

For Each rng In Range("B" & i & ":" & "I" & i)

If rng.Value <> "" And _
rng.Value = Application.WorksheetFunction.Max(Range("B" & i & ":" & "I" & i)) Then
rng.Interior.Color = vbGreen

ElseIf rng.Value <> "" And _
rng.Value = Application.WorksheetFunction.Min(Range("B" & i & ":" & "I" & i)) Then
rng.Interior.Color = vbRed

End If

Next rng

Next i

End Sub

. . .

 

[YUSUF44]

Koddaki "or"lar yerine ":" kullanmak sorunu çözüyor mu?

 

[Açılın ben mühendisim]

Çok teşekkür ederim , kodlar çalışıyor ellerinize sağlık