Koşullu biçimlendirme

[patdizz]

Merhaba

Normalde formüllü olan bir hücreye, elle müdahale yapılıp rakam girildiğinde hücreyi boyamak mümkün mü? "Hücre formüllü değilse" gibi bir koşullu biçimlendirme seçeneği var mı?

Teşekkürler

 

[N.Ziya Hiçdurmaz]

Yanıt

Formül olmayan hücreleri boyar

Sub TEST()
Dim SAT, SUT As Byte
For SAT = 1 To 10
For SUT = 1 To 5
Cells(SAT, SUT).Interior.ColorIndex = xlNone
If Not Cells(SAT, SUT).HasFormula Then
Cells(SAT, SUT).Interior.ColorIndex = 6
End If
Next
Next
End Sub

 

[patdizz]

Çok teşekkür ederim Ziya Bey; sanırım makrodan başka yolu yok; yani hücre içinde koşullu biçimlendirme ile halledilemiyor.

 

[hamitcan]

Aşağıdaki şekilde dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Target.HasFormula Then
    Target.Interior.Color = vbRed
    Else
    Target.Interior.Color = xlNone
    End If
End Sub

 

[starmetin]

Aşağıdaki şekilde dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Target.HasFormula Then
    Target.Interior.Color = vbRed
    Else
    Target.Interior.Color = xlNone
    End If
End Sub

çok güzel bir paylaşım geniş tablolarda hangi satırlara müdahale edildiği görmek ve takip açısından teşekkürler üstad..

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak iki farklı çözüm hazırladım.

ÖRNEK_1 isimli dosyada veri doğrulama ile yapılmış çözümü bulabilirsiniz.

ÖRNEK_2 isimli dosyada ise makrolu ile hazırlanmış çözümü bulabilirsiniz.


ÖRNEK_2 isimli dosyada kullanılan kod;

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim RENK As Integer
    If Target.Count > 1 Then Exit Sub
    RENK = Target.Interior.ColorIndex
    If Target.HasFormula Then
    Target.Interior.ColorIndex = 3
    MsgBox "Seçtiğiniz hücrede formül bulunmaktadır !", vbCritical, "Dikkat !"
    Target.Interior.ColorIndex = RENK
    End If
End Sub