Birleştir komutu uygulanan hücre içindeki değerin puntosunu değiştirme

[iplikci_80]

Evet.

 

[Korhan Ayhan]

Daha önce önerdiğim kodu modüle uygulayın.

Alttaki kodu ise sayfanızın kod bölümüne uygulayıp deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, Range("G27")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Call Font_Ayarla
Son: Application.EnableEvents = True
End Sub

 

[iplikci_80]

Çok teşekkür ederim.

 

[nongeyikm]

Sn M.Uygun, Sn. Korhan Ayhan,

Ayhı hücre içinde 3. bir veriyi daha fontlayabilir miyiz? Herhangi bir sütun yaparsanız ben düzeltebilirim.

İlk satır 12 size
İkinci satır 10 size
Üçüncü satır 12 size