Makro Kod Yardım !!!

[aligunes]

Sub GunEkle()

Dim i As Long, _
Son As Long, _
c As Range, _
d1, _
d2, _
Deger As Integer

Son = Cells(Rows.Count, "D").End(3).Row
Set c = Range("D").Find("BULUNMAYANLAR", LookIn:=xlValues)
If Not c Is Nothing Then
i = c.Row + 1
Else
Exit Sub
End If

Application.ScreenUpdating = False
On Error Resume Next
For i = i To Son
d1 = Split(Cells(i, "L"), "/")
d2 = Split(d1(1), ")")
Deger = Val(d2(0)) + 1
Cells(i, "L") = d1(0) & "/" & Deger & ")"
Next i
Application.ScreenUpdating = True
MsgBox "Sayılar Arttırılmıştır...", vbInformation, "N.YEŞERTENER --> www.excel.web.tr"

End Sub


Bu makro kodunda excelde bulunan isim listesinde D sutunda isim listem var F sutunda bulunan ör: (14/01) buradaki 01 sayısı butona her bastığımda artacak 01,02,03.....14 olduğunda yazının kırmızı renk olmasını istiyorum. (14/14) sayı eşitlendikten sonra ise butona bastığımda beni uyarmasını istiyorum. yardımcı olursanız sevinirim.

 

[aligunes]

ÖRNEK DOSYA EKTEDİR.

 

[Emir Hüseyin Çoban]

.

Sub kod()


    Range("L:L").Font.ColorIndex = xlAutomatic

    For i = 20 To Cells(Rows.Count, "L").End(3).Row

        If Cells(i, "L") <> "" Then

            veri = Replace(Replace(Cells(i, "L"), "(", ""), ")", "")
            sol = Split(veri, "/")(0) * 1
            sag = Split(veri, "/")(1) * 1

            If sol = sag Then
                Cells(i, "L").Font.Color = vbRed

            Else

                sag = sag + 1
                Cells(i, "L") = "(" & sol & "/" & sag & ")"

                If sol = sag Then
                    Cells(i, "L").Font.Color = vbRed
                End If


            End If
        End If

    Next i

End Sub

.