• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

4.Koşullu Biçimlendirme olur mu?

M

mavi674

Katılım
2 Nisan 2008
Mesajlar
155
Excel Vers. ve Dili
2003 TÜRKÇE
Selam,
Ofis 2003 kulanıyorum.
Koşullu Biçimlendirme yapıyorum ama en fazla 3 biçimlendirme sınırı var
Acaba 4. koşullu biçimlendirme yapılabilinir mi macro ile mesela....
Şimdiden ilgilenen herkese teşekkürlerimi sunuyorum
İyi günler
 
Selam
Makro ile koşullu biçimlendirme yapabilirsiniz.
 
Selam Korhan bey
linkleri dünden beri inceledim, çok yararlı oldu teşekkürler
Bu doğrultuda bir sorum olacak.
Tablomda otomatik değişken sayılar var.
G5:AK15 arasını kontrol etmek istiyorum
Sorun şu
sayılar değişiyor ama renklenme olmuyor
illa enter ile girince oluyor
Acaba enter a basmadan bu değişen sayıları algılar mı?
Teşekkürler

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Cells.Count > 1 Then Exit Sub
On Error GoTo ws_exit:
Set rng = Application.Intersect(Target, Me.Range("G5:AK15"))

If rng Is Nothing Then Exit Sub
With Target
Select Case LCase(.Value)

Case Is = "1": .Interior.ColorIndex = 33
Case Is = "2": .Interior.ColorIndex = 33
Case Is = "3": .Interior.ColorIndex = 33
Case Is = "4": .Interior.ColorIndex = 33
Case Is = "5": .Interior.ColorIndex = 33

Case Else
.Interior.ColorIndex = xlNone
End Select
End With

ws_exit:
End Sub
 
Kullanılan Private Sub Worksheet_Change(ByVal Target As Range) olayında sayfada elle veri değişimi yapılınca kod devreye girmektedir.

Eğer hücreler formülle güncelleniyorsa aşağıdaki olayı kullanmanız daha uygun olacaktır.

Private Sub Worksheet_Calculate()
 
selam
dediğinizi yaptım olmadı.
makroda da değişiklik gerekiyor galiba
Target hata veriyor.
bu şekilde hücreye veri girişinde çalışacak zannedersem.
Ama ben hesaplamalı olsun istiyorum
5.mesajdaki makroyu bu şekilde değiştirebilir miyiz
 
Forumda verdiğim olayla ilgili örnekler var. Araştırma yaparak denemeler yapabilirsiniz.
 
Selamlar;
Kaç günden beri formdaki örnekleri inceledim çok faydalı şeyler öğrendim ama istediğimi hala oluşturamadım.
Bu bakımdan tekrar yardımlarınızı bekliyorum..

g5:h13 alanında koşullu biçimlendirme var. Ancak 3 koşul da dolu...
İstediğim formüllerle dolu bu alan içerisinde
1-"2" sayılarını,
2-"5 ve 10 arası sayıları ve
3-a1 hücresindeki sayı değeri
formül sonucu çıkan sayılar yukarıdaki koşullara uyunca renklensin
Teşekkürler...
 
Örnek dosya paylaşabilirmisiniz..
 
Selam
örnek dosya
www.dosyaupload.com

Hata indir

Hata
www.dosyaupload.com www.dosyaupload.com

Örneğe göre kraterler:
g7:ak15 alanında sayıların kontrolü yapılacak.
1-"3" rakamlarını sarı,
2-"5 ve 10 arası sayıları yeşil ve
3-ag2 hücresinden sorgulanan rakamı da kırmızı fontu da beyaz olarak renklensin
Şimdiden teşekkürlerimi sunuyorum...
 
AG2 hücresinde bir değer göremedim..

Birde G7:AK15 demişsiniz. Gün satırını da koşula dahil etmişsiniz. Sanki G8:AK15 aralığı olması gerekiyor gibi görünüyor..
 
pardon
G8:AK15 olacak siz doğru yazmışsınız kusura bakmayın
AG2 hücresine de 4 yazmıştım. bu değişebilir sorgulanacak rakam girilecek
 
Paylaştığınız dosyada AG2 hücresi boş görünüyor..

Neyse ben kodu paylaşayım siz kendinize göre gerekli revizeyi yaparsınız..

C++: 
Private Sub Worksheet_Calculate()
    Dim My_Area As Range, Rng As Range
    
    Set My_Area = Range("G8:AK15")
    
    Sheets("İCMAL").Unprotect Password:=""
    
    My_Area.Interior.ColorIndex = xlNone

    For Each Rng In My_Area
        If Rng.Value = 3 Then Rng.Interior.ColorIndex = 6
        If Rng.Value >= 5 And Rng.Value <= 10 Then Rng.Interior.ColorIndex = 4
    Next

    Sheets("İCMAL").Protect Password:=""
End Sub
 
Çok Teşekkürler
koşullu biçimlendirme ile aynı anda kullanamadım.
Artık koşullu biçimlendirmeyi silip sizin kodlu kullanacağım
ellerinize sağlık
 
Cumartesi ve Pazarları
koşullu biçimlendirme ile sarı renklendiği için buraya denk gelen rakamları kod renklendiremiyor.
Herhalde öncelik koşullu biçimlendirmede.
 
Son düzenleme:
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst