excelde seçili satırı farklı yazı tipiyle gösterme

[TASADAM366]

İyi geceler hayırlı Ramazanlar.
Soracağım soru belki size basit gelebilir ama excelden fazla anladığımı söyleyemem.
Aşağıda verdiğim kod seçili satırı renklendiriyor.veaynı zamanda satırdaki yazıyı da kalınlaştırıyor.Benim istediğim şu.
Bunların yanında seçili satırdaki metinlerin yazı tipi ve boyutu da değişsin.
Standart olarak calibri 11 seçili.Ben satırı seçtiğimde örneğin yazı tipi Tahoma olsun ve boyutu da 12 olsun.Bun yapabilir miyiz acaba?İlginiz için şimdiden teşekür ederim.Saygılarımla.(Not:Office 2010 kullanıyorum.)
Elimdeki Makro Kodu:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Son As Long
Son = [A65536].End(4).Row
If Intersect(Target, Range("A1:MM" & Son)) Is Nothing Then Exit Sub
Range("A1:MM" & Son).Interior.ColorIndex = xlNone
Range("A" & Target.Row & ":MM" & Target.Row).Interior.ColorIndex = 37
Range("A" & Target.Row & ":MM" & Target.Row).Font.Bold = True
Son:
End Sub

 

[Murat OSMA]

Son: satırından önce şu satırları ilave edin;

Range("A" & Target.Row & ":MM" & Target.Row).Font.Name = "Tahoma"
Range("A" & Target.Row & ":MM" & Target.Row).Font.Size = 12

 

[nane]

Son: satırından önce şu satırları ilave edin;

Range("A" & Target.Row & ":MM" & Target.Row).Font.Name = "Tahoma"
Range("A" & Target.Row & ":MM" & Target.Row).Font.Size = 12

Murat bey merhabalar,

Kullanılan hücre Tahoma ya çevriliyor fakat başka hücreye geçişte eski haline dönmüyor. (arial) gibi o şekilde yazabilirmisiniz.
Teşekkürler

Yaba®

 

[Murat OSMA]

Eski hâline dönmesini isteseydiniz dönderirdim. Zaten kodlarınız hazırdı, ilave olarak ne yapmak istediyseniz onların kodlarını verdim.

 

[nane]

Anladım. Ben bunu kendim için istemiştim TASADAM366 ile bir alakası yok. Biliyorsunuz kod yazmayı hala kavrayamadım.
Zahmet olacaksa kalsın.
Sizden geçmişte bir hayli yardım almıştım.
İlginiz için teşekkürler...

İyi çalışmalar
Yb®

 

[Murat OSMA]

Afedersiniz...

Şu şekilde çözebilirsiniz;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim Son As Long
 Son = [A65536].End(4).Row
 If Intersect(Target, Range("A1:MM" & Son)) Is Nothing Then Exit Sub
 Range("A1:MM" & Son).Interior.ColorIndex = xlNone
 Range("A1:MM" & Son).Font.Bold = False
 Range("A1:MM" & Son).Font.Name = "Calibri"
 Range("A1:MM" & Son).Font.Size = "11"
 Range("A" & Target.Row & ":MM" & Target.Row).Interior.ColorIndex = 37
 Range("A" & Target.Row & ":MM" & Target.Row).Font.Bold = True
 Range("A" & Target.Row & ":MM" & Target.Row).Font.Name = "Tahoma"
 Range("A" & Target.Row & ":MM" & Target.Row).Font.Size = 12
Son:
 End Sub

 

[nane]

Ancak bakabildim.
Yardımlarınız için teşekkürler

Yb®

 

[Murat OSMA]

Rica ederim, iyi günler...

 

[TASADAM366]

Sayın Murat OSMA yardımlarınız için çok teşekür ederim.Verdiğiniz makro kodu sorunsuz çalıştı.İyi akşamlar ve hayırlı iftarlar .Saygılarımla

 

[TASADAM366]

Değerli arkadaşlarım.Murat OSMA arkadaşımızn verdiği koda yazı rengini değiştirmeyi de ekledim.İsteyen yararlansın.Saygılarımla
Makro Kodu:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Son As Long
Son = [A65536].End(4).Row
If Intersect(Target, Range("A1:MM" & Son)) Is Nothing Then Exit Sub
Range("A1:MM" & Son).Interior.ColorIndex = xlNone
Range("A1:MM" & Son).Font.Bold = False
Range("A1:MM" & Son).Font.Name = "Calibri"
Range("A1:MM" & Son).Font.Size = "11"
Range("A1:MM" & Son).Font.ColorIndex = "1"
Range("A" & Target.Row & ":MM" & Target.Row).Interior.ColorIndex = 37
Range("A" & Target.Row & ":MM" & Target.Row).Font.Bold = True
Range("A" & Target.Row & ":MM" & Target.Row).Font.Name = "Tahoma"
Range("A" & Target.Row & ":MM" & Target.Row).Font.Size = 12
Range("A" & Target.Row & ":MM" & Target.Row).Font.ColorIndex = 32
Son:
End Sub

Aşağıdaki resimde renk kodları var.

Range("A" & Target.Row & ":MM" & Target.Row).Font.ColorIndex = 32

32 yazan kısmı istediğiniz renk koduyla değiştirisiniz.Kod varsayılan renği siyahtır.O da kodda

Range("A1:MM" & Son).Font.ColorIndex = "1"
satıında belirlenmiştir.

 

[Murat OSMA]

Rica ederim...

kodlardaki herhangi bir (.) nokta işretini silip tekrar koyduğunuzda, yapabileceğiniz diğer özellikleri de görebilirsiniz. Deneme yapa yapa baya yol alırsınız.

Hatırlatma:
String (Metin) olmayan değerleri "" tırnak içerisinde yazmanıza gerek yok.