Text & hücre

[hlojan]

Arkadaşlar text hücre dışına taşarsa uyarı verebilir mi

Yada yazı fontu kırmızı olsun

Böle bi yöntem var mı ?

 

[Korhan Ayhan]

Sayfanızın kod bölümüne uygulayıp deneyiniz.

A sütunundaki hücrelere veri girip hücreyi terk ettiğinizde kod çalışır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    Genislik = Target.ColumnWidth
    Target.EntireColumn.AutoFit
    If Genislik < Target.ColumnWidth Then
        MsgBox "Veri uzunluğu hücre genişliği sınırlarını aştı!" & Chr(10) & _
               "Lütfen kontrol ediniz!", vbCritical
        Target.ColumnWidth = Genislik
    End If
End Sub

 

[hlojan]

Korhan bey " Birleştir ortala " yaptığım hücrede çalışmıyor

Normal hücrede çalışıyor

 

[Korhan Ayhan]

Çalışmaması normaldir. İlk mesajınızda böyle bir detay yok.

Aşağıdaki gibi deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set S1 = ActiveSheet
    Genislik = Range(Target.MergeArea.Address).Width
    Veri = Target.Value
    Set S2 = Sheets.Add
    S2.Cells(1, 1) = Veri
    S2.Cells(1, 1).EntireColumn.AutoFit
    If Genislik < S2.Cells(1, 1).Width Then
        MsgBox "Veri uzunluğu hücre genişliği sınırlarını aştı!" & Chr(10) & _
               "Lütfen kontrol ediniz!", vbCritical
    End If
    S2.Delete
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub