Formül olmayan hücreyi renklendirme

[zaffer1981]

MERHAHA. Ben şöyle bir şey yapmak istiyorum.
seçtiğim alanda formül bulunmayan hücreleri belirgin hale getirmek istiyorum. ya da renklendirmek,
bu mümkün mü acaba

teşekkürler

 

[zaffer1981]

cevapsız mı bu soru

 

[hlojan]

Bir modüle şunu ekle

Function FGOSTER(Cell As Range) As String
   FGOSTER = Cell.Formula
End Function

Formüllü biçimlendirmeye

=SOLDAN(FGOSTER(A1);1)="="

bunu yaz

 

[zaffer1981]

olmadı maalesef nasıl yapılacağını biraz açıklayabilir misiniz

 

[zaffer1981]

Birde formül bulunan hücreyi değil de formülsüz hücreleri renklendirmek istiyordum

 

[hlojan]

=soldan(fgoster(a1);1)<>"="

 

[bzace]

Merhabalar,
Alternatif;

Biçim yapacağınız aralık A1:A4 aralığı olsun.
Koşullu biçimlendirme ile yeni kural oluşturun.

=BAĞ_DEĞ_DOLU_SAY($A1:$A4)

 

[hlojan]

Örnek Dosya Ektedir

 

[zaffer1981]

Kusura bakmayın metin yazılı hücreler bu kuralın dışında kalsın istiyorum

 

[hlojan]

=EMETİNDEĞİLSE(a1)

 

[zaffer1981]

Yapamadım maalesef. Eklenmiş dosyaları açamıyorum bu arada

 

[hlojan]

inmiyor mu açamadın mı ?

 

[Emir Hüseyin Çoban]

Hücre aralığını seçin 》
Giriş 》bul ve seç (en sağda)
Formüller...

Bu şekilde formül içeren hücreler seçili olacaktır. İstediğiniz biçimlendirmeyi yapabilirsiniz.

.

 

[zaffer1981]

Aslında yapmak istediğim şu idi. Formul olan hücrelere el ile tekrar değer giriyorum. Manuel değer girdiğim hücre renklensin istiyorum sadece.

 

[zaffer1981]

Yani amacım hangi hücrelere müdahale etmişim bir sayfada kolayca o hücreleri görebilmek. örneğin 50 tane hücreyi seçmişim. Bu hücrelerin hepsi de dolu. Ben bu hücrelerden herhangi birisine bir değer girdiğimde bu renklensin istiorum

 

[Ömer BARAN]

Merhaba.
Sayın ÇOBAN yolu göstermiş aslında.
-- Formül içeren hücreler için: Hücre aralığını seçin 》Giriş 》bul ve seç (en sağda) 》Formüller
-- Formül içermeyen hücreler için: Hücre aralığını seçin 》Giriş 》bul ve seç (en sağda) 》Sabitler
şeklinde tür (formül/sabit değer) bazlı seçim işlemini yapabilirsiniz.

Seçili haldeyken renklendirme vs. yapabilirsiniz.

 

[ÖmerBey]

Aşağıdaki kodu ilgili sayfanın kod bölümüne kopyalarsanız belirlediğiniz aralık içerisindeki formül olan hücrelere formül harici giriş yaptığınızda renklenir, formülsüz hücrelere formül girdiğinizde renk silinir.
İlgili aralığı kendinize göre değiştirerek deneyiniz.

Dim frml As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("[COLOR="Red"]A2:Z10[/COLOR]"), Target) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
If Not Target.HasFormula And frml = True Then
    Target.Interior.ColorIndex = 3
ElseIf Target.HasFormula And frml = False Then
    Target.Interior.ColorIndex = 0
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 Then frml = Target.HasFormula Else frml = False
End Sub

 

[zaffer1981]

çok teşekkür ederim cevaplarınız için emeklerinize sağlık. tam istediğim gibi oldu şimdi. tekrar sağolun

 

[zaffer1981]

üstad şöyle bir sıkıntı var iki veya daha fazla dolu hücreyi seçtiğimde hata mesajı geliyor end diyorum sonlandırıyorum o hata mesajını

 

[ÖmerBey]

İlgili kodu şu şekilde değiştirip deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count = 1 Then frml = Target.HasFormula Else frml = False
End Sub