Hücre Yazı Boyutu Hk

[mehce]

Bir sütuna isimleri girdiğim bir çalışma var. Sütun genişliği bazen yetersiz oluyor
sayfa kilitli olduğu için düzenlenemiyor. Bu yüzden yazı boyutunun otomatik olarak küçültülmesini sağlayabilirmiyiz Örneğin 15 karaktere kadar 12 boyutta 20 karaktere kadar 10 boyutta gibi

 

[Korhan Ayhan]

Merhaba,

Sayfanızın kod bölümüne aşağıdaki kodu uygulayın.

"123" sayfa koruma şifresidir. Kendi şifrenize göre düzenleyiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    ActiveSheet.Unprotect "123"
 
    Select Case Len(Target)
        Case 1 To 15
            Target.Font.Size = 12
        Case 16 To 20
            Target.Font.Size = 10
    End Select
 
    ActiveSheet.Protect "123"
End Sub

 

[mehce]

Çok Teşekkürler süper oldu da yazıyı silince Select Case Len(Target) satırında hata veriyor bunu düzeltme imkanımız varmı?

 

[mehce]

Hücrede delete tuşuna bastığınızda Run Time Error 13 veriyor bahsettiğim satır sarı işaretli oluyor bu konuda ya5rdımcı olabilir misiniz lütfen

 

[mehce]

Cevap yok mu?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki şekilde denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    ActiveSheet.Unprotect "123"
 
    Select Case Len(Target)
        Case 1 To 15
            Target.Font.Size = 12
        Case 16 To 20
            Target.Font.Size = 10
    End Select
 
    ActiveSheet.Protect "123"
End Sub

 

[mehce]

Süpersiniz Korhan hocam klavyenize sağlık teşekkürler