vba döngü ile büyüktür küçüktür işlemi

[chakistes]

merhaba arkadaşlar aşağıdaki kodu öğrenci notu 49 dan küçükse notun yanına boşluk bırakıp "-" işareti eklesin 49 dan büyükse + eklemesini istiyorum.

For i = 5 To 18

If Worksheets("sayfa4").Cells(i, 16) > 49 Then
Cells(i, 16).Interior.ColorIndex = 2

Else
Cells(i, 16).Interior.ColorIndex = 3
End If
Next i

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    For i = 5 To 18
        If Worksheets("sayfa1").Cells(i, "P") > 49 Then
            Cells(i, "P").Interior.ColorIndex = 2
            Cells(i, "P") = "'+ " & Cells(i, "P")
        Else
            Cells(i, "P").Interior.ColorIndex = 3
            Cells(i, "P") = "'- " & Cells(i, "P")
        End If
        Cells(i, "P").NumberFormat = "@"
    Next i
End Sub

 

[YUSUF44]

Değeri değiştirmeden hücre biçimi olarak kullanmak isterseniz aşağıdaki gibi deneyin:

For i = 5 To 18
    If Worksheets("sayfa4").Cells(i, 16) > 49 Then
        Cells(i, 16).Interior.ColorIndex = 2
        Cells(i, 16).NumberFormat = "0"" +"""
    Else
        Cells(i, 16).Interior.ColorIndex = 3
        Cells(i, 16).NumberFormat = "0"" -"""
    End If
Next i

 

[chakistes]

teşekkür ederim

 

[Orion1]

49 ise ne olacak!

 

[euphrates55]

49 u 50 yapıyor hocam demek ki