Koşullu Sheet rengi ve ismi değiştirme

[sercanyuk]

Merhaba,
Excel 2010 kullanıyorum.Excelde ilgili sheetde a1 ve a4 hücreleri arası yazan yazı her hücre için “OK” olmaz ise sheetin kırmızı renk olarak “error!” yazmasını istiyorum.Bunu excelde acaba nasıl yapabilirim?
İlgilenenlere şimdiden çok teşekekler.

 

[Ömer]

Merhaba,

Yalnız aynı çalışma kitabında birden fazla aynı isimde çalışma sayfa adı olmayacağı için error!1,"error!2...şeklinde düzenledim.

Module kopyalarak çalıştırınız.

Sub Arastir()
Dim i As Integer, say As Integer
Application.ScreenUpdating = False
 
For i = 1 To Sheets.Count
    With Sheets(i)
        say = WorksheetFunction.CountIf(.[A1:A4], "OK")
        .Name = "Sheet" & i
        .Tab.ColorIndex = xlNone
        If say <> 4 Then
            .Name = "error!" & i
            .Tab.ColorIndex = 3
        End If
    End With
Next i
 
Application.ScreenUpdating = True
End Sub

 

[sercanyuk]

İlginiz için teşekkür ederim.Diğer sheetleri değil sadece mevcut sheet'de error yazdırmak için kodu nasıl modifiye etmek gerekir acaba?

 

[Ömer]

Bu şekilde deneyiniz.

Sub Arastir()
Dim i As Integer, say As Integer
Application.ScreenUpdating = False
 
With ActiveSheet
    say = WorksheetFunction.CountIf(.[A1:A4], "OK")
    .Name = Replace(.Name, "error!", "")
    .Tab.ColorIndex = xlNone
    If say <> 4 Then
        .Name = "error!" & .Name
        .Tab.ColorIndex = 3
    End If
End With
 
Application.ScreenUpdating = True
End Sub

.