sayfa adı değişikliği

[haciayhan]

arkadaşlar, bir hücredeki veriye bağlı olarak, sayfa adının değişmesini veya sayfa adının yanıp sönerek uyarı vermesini istiyorum. Örneğin hücreye 51 yazınca sayfa adı (TAMAMLANDI) olarak değişsin.

 

[YUSUF44]

Hangi hücreye 51 yazınca sayfa adının değişmesini istiyorsunuz? Bu sadece belirli bir hücre ve 51 için mi geçerli olacak yoska başka şartlar da olacak mı?

 

[haciayhan]

örneğin K5 hücresinde şarta bağlı 51 olunca sayfa adı TAMAMLANDI olsun ya da mevcut sayfa adı yanıp sönerek uyarı versin

 

[haciayhan]

Yani K sütununda 51 var ise sayfa adı değişsin

 

[YUSUF44]

Özel mesajla sorduğunuz şarta göre hazırladığım kod aşağıdadır:

Private Sub Worksheet_Change(ByVal Target As Range)
son = WorksheetFunction.Max(5, Cells(Rows.Count, 2).End(3).Row)
If Intersect(Target, Range("B5:G" & son)) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Range("K5:K" & son), "TEBRİKLER") > 0 Then
ActiveSheet.Name = "KAZANDINIZ"
End If
End Sub

Bu kodu ilgili sayfanın kod bölümüne yapıştırmanız gerekir.

Ancak bu kod kullanışlı olmaz çünkü. Diyelim ki ilk sayfada bir veya birden fazla TEBRİKLER oldu ve sayfanın adı KAZANDINIZ olarak değişti, daha sonra sayfa adı KAZANDINIZ olarak kalır. Değiştirmek için ya manuel olarak ya da ayrı bir kodla adın değiştirilmesi gerekir.

Ayrıca diyelim ki bir sayfada ad değişti, başka bir sayfada da aynı kodları kullanarak sayfa adını değiştirmek isterseniz o sayfada KAZANDINIZ adını kullanamazsınız. Çünkü bir excel dosyasında aynı isimli birden fazla sayfa/sekme olamaz.

Sekme adının yanıp sönmesini ben bilmiyorum maalesef.

 

[haciayhan]

Çok teşekkür ederim arkadaşım