renklendirme

[Barons]

merhaba
E ve F kolonlarında veriler var.Eğer E kolonundaki veri "devam" ise F kolonundaki aynı satırdaki verinin kırmızı olması mümkünmüdür.eğer "tamam" ise veri siyah olmalı ancak binlerce veri olduğu için eğer formulu yada koşullu biçimlendirme yerine makro ile yapılması hususunda yardım rica ediyorum.

çok teşekkürler

 

[BG]

Sayın Barons

merhaba
E ve F kolonlarında veriler var.Eğer E kolonundaki veri "devam" ise F kolonundaki aynı satırdaki verinin kırmızı olması mümkünmüdür.eğer "tamam" ise veri siyah olmalı ancak binlerce veri olduğu için eğer formulu yada koşullu biçimlendirme yerine makro ile yapılması hususunda yardım rica ediyorum.

çok teşekkürler

Dosyanız ektedir.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Option Compare Text
Sub Renklendir()
Dim i       As Long
Dim SonSat  As Long
Sheets("Sayfa1").Select
SonSat = [E65536].End(3).Row
Application.ScreenUpdating = False
Range("F2:F" & SonSat).Font.ColorIndex = 1
For i = 2 To SonSat
    If Cells(i, "E") = "Devam" Then Cells(i, "F").Font.ColorIndex = 3
Next i
MsgBox "İşlem Tamam...."
Application.ScreenUpdating = True
End Sub

 

[Barons]

Hocam çok teşekkürler..istediğim gibi olmuş..