Renklendirme yapmak

[northcyprus]

Aşşağıda formüldeki C/O yazısının kırmızı olmasını istiyorum fakat nasıl yapılacağını bilmiyorum yardımcı olurmusunuz???





For i = 5 To 36
If Sheets("sheet1").Cells(i, "C").Value <> "" Then
Sheets("sheet4").Cells(i, "B").Value = "OCC"
Sheets("sheet1").Cells(i, "F").Copy
Sheets("sheet4").Cells(i, "C").PasteSpecial xlPasteValues
Sheets("sheet1").Cells(i, "G").Copy
Sheets("sheet4").Cells(i, "D").PasteSpecial xlPasteValues
Application.CutCopyMode = False
Range("A1").Select
ElseIf Sheets("sheet3").Cells(i, "B").Value <> "" Then
Sheets("sheet4").Cells(i, "B").Value = "C/O"
Else
Sheets("sheet4").Cells(i, "B").Value = ""
End If
Next
Range("A1").Select
End Sub

 

[Orion1]

Merhaba.

Sheets("sheet4").Cells(i, "B").Value = "C/O"

Yukarıdaki satırın altına aşağıdaki satırı koyunuz.

Sheets("Sheet4").Cells(i, "B").Font.ColorIndex = 3

 

[udentr2002]

Örneği inceleyiniz

İnşallah sorunuza yardımcı olur Kodlla değil Koşullu biçimlendirme ile çözebilrsiniz

 

[udentr2002]

özür

aynı anda cevap vermişiz sanırım Sezar üstadımla Sezar hocam kod ile halletmiş zaten saygılarımla

 

[northcyprus]

Merhaba.

Sheets("sheet4").Cells(i, "B").Value = "C/O"

Yukarıdaki satırın altına aşağıdaki satırı koyunuz.

Sheets("Sheet4").Cells(i, "B").Font.ColorIndex = 3

Sayin Sezar yazdığınızı yaptım oldu fakat C/O u sildikten sonra o sütüna ne yazılırsa yazilsin kırmızı oluyor Benim istedigim sildikten sonra orası kırmızı olmasın onu nasıl yapabilirim.

ilginiz için teşekürler..

 

[Orion1]

Merhaba.
For i satırından önce bir yerlerde ClearContents diye bir satır olacak.
Oradaki ClearContents'in yerine Clear yazınız.

 

[northcyprus]

te&#351;ek&#252;rler sayin sezar.
te&#351;ek&#252;rler udentr2002