Hücre Tıklandığında Büyüyen Yazı

[1Al2Ver]

Merhaba,

Kod, tıklanan hücredeki yazıyı büyütüyor, ancak sayfada mevcut tüm renkleri siyaha çeviriyor,

İşlevini, mümkün ise, renkleri koruyarak yapsın istiyorum,

Teşekkür ederim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son
With [B5:G20]
    Cells.Interior.ColorIndex = xlNone
    Cells.Font.Size = 10
    Cells.Font.ColorIndex = 0
    Cells.Font.Italic = False
End With
If Intersect(Target, [B5:G20]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
If Not IsEmpty(Target) Then
Target.Interior.ColorIndex = 8
Target.Font.Size = 16
Target.Font.ColorIndex = 3
Target.Font.Italic = True
End If
Son:
Application.ScreenUpdating = True
End Sub

 

[yanginci34]

Buyrun;
Ekli dosyayı görüntüle Hücre Tıklandığında Büyüyen Yazı düzenlenmiş.xlsm

 

[1Al2Ver]

Sayın yanginci34 merhaba,

Duyarlığınız ve çözüm için teşekkür ederim.

Saygılarımla.

 

[yanginci34]

Rica ederim kolay gelsin.