For döngüsü ile hücre fontu renklendirme

[kale]

Aşağıdaki makroyu çalıştıramadım. Ne gibi değişiklik yapmam gerekiyor.

For i = 1 To 175
If Range(Cells(i, 4), Cells(i, 6)) = 1 Then
Cells(i, 4).Offset(0, 0).Font.ColorIndex = 5
Cells(i, 5).Offset(0, 0).Font.ColorIndex = 5
Cells(i, 6).Offset(0, 0).Font.ColorIndex = 5
End If
Next i

Seçili hücrelerde -1- rakamı varsa kırmızı renkli olsun istiyorum. Eksik olan nedir bulamadım.

 

[Necdet]

Merhaba,

Neden Koşullu Biçimlendirmeyi denemiyorsunuz?

İlla makro ile olsun istiyorsanız. Aşağıdaki kodları kullanabilirsiniz. Önce hücreleri seçip sonra kodları çalıştırınz.

Sub Renklendir()
 
    Dim Hcr As Range
    
    For Each Hcr In Selection
        If Hcr = -1 Then Hcr.Interior.ColorIndex = 3
    Next Hcr
    
End Sub

 

[Huseyinkis]

Aşağıdaki makroyu çalıştıramadım. Ne gibi değişiklik yapmam gerekiyor.

For i = 1 To 175
If Range(Cells(i, 4), Cells(i, 6)) = 1 Then
Cells(i, 4).Offset(0, 0).Font.ColorIndex = 5
Cells(i, 5).Offset(0, 0).Font.ColorIndex = 5
Cells(i, 6).Offset(0, 0).Font.ColorIndex = 5
End If
Next i

Seçili hücrelerde -1- rakamı varsa kırmızı renkli olsun istiyorum. Eksik olan nedir bulamadım.

Ekteki gibi denermisiniz.

Diğer Mesajı yeni gordum alternatif olsun.

For i = 1 To 175
If WorksheetFunction.CountIf(Range(Cells(i, 4), Cells(i, 6)), 1) > 0 Then
Cells(i, 4).Offset(0, 0).Font.ColorIndex = 5
Cells(i, 5).Offset(0, 0).Font.ColorIndex = 5
Cells(i, 6).Offset(0, 0).Font.ColorIndex = 5
End If
Next i

End Sub

 

[kan-nas]

Sub Button1_Click()

For i = 1 To 175
    If Cells(i, 4) Or Cells(i, 5) Or Cells(i, 6) = 1 Then
    Cells(i, 4).Font.Color = vbRed
    Cells(i, 5).Font.Color = vbRed
    Cells(i, 6).Font.Color = vbRed

End If
Next i

End Sub

Bu da olur gibi..

 

[kale]

Döngülerle yapmayı istedim. İstenen koşul ve biçimlendirmeler daha çeşitli olduğunda, döngüye ihtiyac olacağını düşünüyorum.

 

[kale]

Sayın Huseyınkis. Yazmış olduğunuz döngü çalıştığında satırdaki diğer rakamlarda mavi renkli oldu.

 

[kale]

Sayın kan-nas. Vermiş olduğunuz çözüm hata mesajı verdi. Tekrar bakmanız mümkün mü.

 

[Huseyinkis]

Yazmış olduğunuz döngü çalıştığında satırdaki diğer rakamlarda mavi renkli oldu.

Ekteki gibi değiştirin..

Sub Button1_Click()

For i = 1 To 175
    If Cells(i, 4) = 1 Then
    Cells(i, 4).Font.Color = vbRed
   end if
    If Cells(i, 5) = 1 Then
    Cells(i, 5).Font.Color = vbRed
    end if
    If Cells(i, 6) = 1 Then        
    Cells(i, 6).Font.Color = vbRed
    End If
Next i

End Sub

 

[Necdet]

Bizim kodlar işe yaramadı galiba

 

[kale]

Merhaba,

Neden Koşullu Biçimlendirmeyi denemiyorsunuz?

İlla makro ile olsun istiyorsanız. Aşağıdaki kodları kullanabilirsiniz. Önce hücreleri seçip sonra kodları çalıştırınz.

Sub Renklendir()
 
    Dim Hcr As Range
    
    For Each Hcr In Selection
        If Hcr = -1 Then Hcr.Interior.ColorIndex = 3
    Next Hcr
    
End Sub

Sayın Necdet bey vermiş olduğunuz örnekten esinlenerek aşağıdaki şekilde işlemi gerçekleştirdim. Teşekkür ederim.

For Each Hcr In Range("d1:f115")
If Hcr = 1 Then Hcr.Font.ColorIndex = 3
Next Hcr