Kod ile Yazı Tipi Biçimlendirme Sorunu

[Textiler]

Merhabalar,

Ekte yer alan çalışma dosyası içerisindeki kod ile Sayfa1' de yer alan hücre içi karakterlerin yazı tipini değiştirmeye çalışıyorum. Sayfa1 içerisindeki hücrede manuel değişiklik yapmak istediğimde kod çalışıyor ancak Sayfa2' de yapmış olduğum değişiklik Sayfa1' deki hücreyi değiştirmesine rağmen bu defa kod çalışmıyor. Neyi eksik yada yanlış yapıyor olabilirim? Destekleriniz için şimdiden teşekkür ediyorum.

[sahin]

tüm sayfalarda çalışması için sayfa1 in change olayına değil değil çalışma kitabının change olayın akodları yazmanız gerekir örneğiniz ekte

Çalışma Dosyası.xlsm

[Textiler]

Merhaba Şahin Bey,

Sadece Sayfa1' de formül içeren hücrelerin yazı karakterini değiştirmeye çalışıyorum ancak sizin örneğinizde değişiklik yapmış olduğum Sayfa2' yi değiştiriyor maalesef.

[sahin]

yanlış anlamışım yeniden düzenledim

[Textiler]

Şahin Bey,

Çok teşekkür ediyorum, emeğinize sağlık.

[Textiler]

Tekrar Merhabalar,

Çalışma sayfasındaki (formüllerin yer almadığı sayfadaki) çalışma alanının yerini değiştirirsem (Örneğin: F9:J18) kod çalışmayı durduruyor ve formüllerin yer aldığı sayfadaki yazı tipi aynı kalıyor. Acaba nedeni ne olabilir? Tekrar yardımcı olabilirseniz çok sevinirim.

[sahin]

a1: e10 kısıtlı sayfa3 kod bloğundaki

Kod: Tümünü seç

If Intersect(Target, Sayfa3.Range("A1:E10")) Is Nothing Then Exit Sub

bu kodu silerseniz çalışır