koşullu renklendirme yapmak,

[arol11]

Selamlar,eklediğim dosyada a1:d300 aralığında sayılar var .Bunları renklendirmem gerekli.Bu konu için yardımcı olurmusunuz.Belki yazmak istemiyorum ama konu şu an benim için oldukça acil.Yinede değerli vaktiniz müsait değilse anlarım.
Çok teşekkürler.

 

[Ömer]

Merhaba,

Linki inceleyiniz..

56 KOŞULA GÖRE BİÇİMLENDİRME

.

 

[arol11]

Slamlar,verdiğiniz link teki dosya üzerinde çalıştım fakat benim sorum değerleri h1 :m5 arlığında buton aracılığı ile değiştirince renkleme yapmak.Dosya ekledim,gözatabilirmisiniz.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub Renklendir()
Dim i As Long, Son As Long
Dim c As Range
Dim j As Integer
Application.ScreenUpdating = False
'----- A:E sütunundaki en son satırı bulmak
For j = 1 To 5
    If Cells(65536, j).End(3).Row > i Then Son = Cells(65536, j).End(3).Row
Next j
'----- Bulunan son satır Son değişkeninde saklandı
Range("A2:E" & Son).Interior.ColorIndex = xlNone
For i = 2 To Son
    For j = 1 To 5
        With Worksheets(1).Range("H1:M" & [M65536].End(3).Row)
        Set c = .Find(Cells(i, j), LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            Cells(i, j).Interior.ColorIndex = c.Interior.ColorIndex
        End If
End With
    Next j
Next i
Application.ScreenUpdating = True
MsgBox "İşlem Tamamdır", vbInformation, "[URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Hücre As Range, Bul As Range, Adres As String
    If Intersect(Target, [H1:M5]) Is Nothing Then Exit Sub
    If Target <> "" Then
    Range("A1:E300").Interior.ColorIndex = xlNone
    For Each Hücre In Range("H1:M5")
        Set Bul = Range("A1:E300").Find(Hücre.Value, LookAt:=xlWhole)
        If Not Bul Is Nothing Then
        Adres = Bul.Address
        Do
        Range(Bul.Address).Interior.ColorIndex = Hücre.Interior.ColorIndex
        Set Bul = Range("A1:E300").FindNext(Bul)
        Loop While Not Bul Is Nothing And Bul.Address <> Adres
        End If
    Next
    End If
End Sub

 

[arol11]

Günaydın,gerçekten çok teşekkür ederim,iyi haftasonu dileğimle.

 

[Sebastian]

Selamlar,eklediğim dosyada a1:d300 aralığında sayılar var .Bunları renklendirmem gerekli.Bu konu için yardımcı olurmusunuz.Belki yazmak istemiyorum ama konu şu an benim için oldukça acil.Yinede değerli vaktiniz müsait değilse anlarım.
Çok teşekkürler.

Sn. Arol11'in yaptığı gibi H1'den M5'e kadarki hücrelerin yanında ki butonları nasıl cıkarıyoruz. ayrıca ben bunu kullanarak girdiğim değerlerin farklı renklerde yanmasını istiyorum. Lütfen yardımcı olur musunuz?