Hücre değerine göre renk atayıp desen yapma

[srtnmrc]

Selam. hücre değerlerine göre renk atayıp desen yapmakla alakalı bir örnek vardı gördüğüme eminim ama bulamıyorum. Yapmam gereken rakamlarla hücre kutucukları renklendirip desen çizmek. Yardımcı olabilirseniz çok sevinirim. teşekkürler..

 

[uzmanamele]

Selam. hücre değerlerine göre renk atayıp desen yapmakla alakalı bir örnek vardı gördüğüme eminim ama bulamıyorum. Yapmam gereken rakamlarla hücre kutucukları renklendirip desen çizmek. Yardımcı olabilirseniz çok sevinirim. teşekkürler..

Merhaba

Ek dosyada işinize yarayacak 3 seçenek var, size uygun olanını deneyebilirsiniz.
Sayfa1'de renk koduna bağlı olarak dolgu rengi verebilirsiniz.
Sayfa2'de renk koduna bağlı olarak desen stili verebilirsiniz.
Sayfa3'de koşullu biçimlendirme ile desen stili verebilirsiniz.

Sayfa1 makro kodu

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If Target.Count <> 1 Then Exit Sub
If IsEmpty(Target) Then
Range("B" & Target.Row & ":" & "I" & Target.Row).Interior.ColorIndex = xlNone
End If
If Not IsEmpty(Target) Then
kod = Range("M5:M11").Find(Target, lookat:=xlWhole).Select
renkkodu = Selection.Interior.ColorIndex
Range("B" & Target.Row & ":" & "I" & Target.Row).Interior.ColorIndex = renkkodu
End If
Range("A" & Target.Row + 1).Select
End Sub

Sayfa2 makro kodu

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If Target.Count <> 1 Then Exit Sub
If IsEmpty(Target) Then
Range("B" & Target.Row & ":" & "I" & Target.Row).Interior.Pattern = xlNone
End If
If Not IsEmpty(Target) Then
kod = Range("N5:N11").Find(Target, lookat:=xlWhole).Select
desenkodu = Selection.Interior.Pattern
Range("B" & Target.Row & ":" & "I" & Target.Row).Interior.Pattern = desenkodu
End If
Range("A" & Target.Row + 1).Select
End Sub

Sayfa3 koşullu biçimlendirme formülünü dosyadan kontrol ediniz.

 

[srtnmrc]

teşekkürler uzmanamele, fakat istediğim her hücre ayrı renk koduna göre çalışmalı. yani hücreler küçük kutucuklar olacak ve içine yazdığımız rakama göre renk alıp bütünde bir desen oluşturacaklar. böyle bir çalışma vardı hatta Atatürk silüeti yapmıştı, vardı gördüm ama bulamıyorum..

 

[uzmanamele]

teşekkürler uzmanamele, fakat istediğim her hücre ayrı renk koduna göre çalışmalı. yani hücreler küçük kutucuklar olacak ve içine yazdığımız rakama göre renk alıp bütünde bir desen oluşturacaklar. böyle bir çalışma vardı hatta Atatürk silüeti yapmıştı, vardı gördüm ama bulamıyorum..

Merhaba

Sayfa2'nin kodlarını bu şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B2:I15")) Is Nothing Then Exit Sub
If Target.Count <> 1 Then Exit Sub

If Not IsEmpty(Target) Then
kod = Range("N5:N11").Find(Target, lookat:=xlWhole).Select
desenkodu = Selection.Interior.Pattern
Range(Target.Address).Interior.Pattern = desenkodu
End If
Target.Cells.Offset(1, 0).Select
End Sub

 

[srtnmrc]

teşekkürler yardımların için..