Renklendirme

[1903emre34@gmail.com]

Merhaba,

Rakamla başlayan hesap kodlarınını 2017 ve 2018 yıllardan yanındaki herhangi kelime (DOĞRU, YANLIŞ, vs) yoksa renklendirmek için kod oluşturabiliriz.

 

[çıtır]

Deneyiniz.

Sub Renklendir()
Dim s1 As Worksheet
Dim son1 As Integer: Dim son2 As Integer
Set s1 = Sheets("Sayfa1")
Application.ScreenUpdating = False
son1 = s1.Cells(65335, "B").End(3).Row
s1.Range("B6:B" & son1).FormatConditions.Delete
With s1.Range("B6:B" & son1)
.FormatConditions.Add Type:=xlExpression, Formula1:="=VE(ESAYIYSA(PARÇAAL($B6;3;1)*1);$D6="""";$F6="""")"
       With .FormatConditions(1).Interior
       .PatternColorIndex = xlAutomatic
       .ColorIndex = 6
        End With
        .FormatConditions(1).StopIfTrue = False
        End With
         Application.ScreenUpdating = True
  MsgBox "İşlem Tamam"
End Sub

 

[1903emre34@gmail.com]

Teşekkürler, çalıştı.

 

[çıtır]

Teşekkürler, çalıştı.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.