Font Özelliğine Göre Çalışan Makro

[baydeniro]

Merhaba arkadaşlar. Makroları FONT özelliklerine hassas olarak kullanmak mümkün mü. Örneğin bir makro Font tipi Garamond olanların 3 hücre sağına 2 hücre boyunca H1 hücresindeki formülü kopyalabilir mi ? Örnek dosya ektedir.

 

[Seyit Tiken]

Bu şekilde kendinize uyarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a1]) Is Nothing Then Exit Sub
If Target.Font.Name = "@SimSun" Then MsgBox "Makronuz"
End Sub

 

[baydeniro]

Teşekkürler

Sayın Seyit Tiken yardımınız için çok teşekkürler. Cahilliğimi mazur görün, ben bu kodu nasıl buton bağlayacağımı çözemedim. Bir de A1'in işlevi kopyalanacak hücreye değişecek bir şey mi yoksa A1 bu kodun içinde başlı başına gerekli bir şey mi ?

 

[baydeniro]

Arkadaşlar bu konuda bilgisi olan var mı !!

 

[baydeniro]

Sayın Seyit Tiken yardımınız için çok teşekkürler. Cahilliğimi mazur görün, ben bu kodu nasıl buton bağlayacağımı çözemedim. Bir de A1'in işlevi kopyalanacak hücreye değişecek bir şey mi yoksa A1 bu kodun içinde başlı başına gerekli bir şey mi ?