farkı renkteki hücreleri biçimlendirme

[myerer38]

konu ile birçok başlık var ama ben farklı birşey sorucam
yeşil renkteki hücreleri virgülden sonro 3 sıfır ile yap
turuncu renkteki hücreleri virgülsen sonra 2 sıfır yap
mavi hücreleri yüzde birimi yap
....
bu tür uygulamayı nasıl yapa biliriz

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kod ile bu işlemi yapabilirsiniz. Sayfada hücre seçip kodu çalıştırın.

Ayrıca uygulamalı örnek dosya ektedir.

Option Explicit
 
Sub VERİLERİ_DÜZENLE()
    Dim Hücre As Range
 
    For Each Hücre In Selection
        Select Case Hücre.Interior.ColorIndex
            Case 4
                Hücre.NumberFormat = "#,##0.000"
            Case 46
                Hücre.NumberFormat = "#,##0.00"
            Case 5
                Hücre.NumberFormat = "0.00%"
        End Select
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[myerer38]

buton çalışmıyor
birde ben bir kaç örnek için yazmıştım belki farklı 10 tane renk var

 

[Excelmy]

Sayın myerer38

Değerli Korhan Ayhan hocamın cevabı, isteğiniz için yeterli olmuş ancak,
Sizi yönlendirmesi ve alternatif olması düşüncesi ile bir dosya ekliyorum.

 

[Korhan Ayhan]

Merhaba,

Makroyu butona tanımlamayı unutmuşum. Üstteki mesajımdaki dosyayı güncelledim. Tekrar denermisiniz.

buton çalışmıyor
birde ben bir kaç örnek için yazmıştım belki farklı 10 tane renk var

 

[myerer38]

sayın kuman
benim dosyamda zaten renkler var
korhan hocam gönderdiğin örnekte buton sadece üstünde durduğun butonu değiştiriyor
benim istediğim biraz daha basit birşey koşullu biçimlendirmeden yapmaya çalıştım ama beceremedim

 

[Korhan Ayhan]

Merhaba,

Uygulamayı yanlış yapıyorsunuz. Mouse ile birden fazla hücreyi seçip butona basarsanız seçtiğiniz alandaki hücrelerin rengine göre istediğiniz biçimlendirmeler yapılacaktır.

 

[Excelmy]

sayın kuman
benim dosyamda zaten renkler var
korhan hocam gönderdiğin örnekte buton sadece üstünde durduğun butonu değiştiriyor
benim istediğim biraz daha basit birşey koşullu biçimlendirmeden yapmaya çalıştım ama beceremedim

Dosyanız size özel bilgiler içeriyor olabilir ancak,

Benzer bir örneğini buraya eklemiş olsaydınız sonuca ulaşmak için bu kadar mesaj kalabalığına gerek kalmayacaktı.

Örnek dosya olmadan burada alacağınız cevaplar varsayımlar ile hazırlanmış olacak.

 

[Korhan Ayhan]

Merhaba,

Siz dosyanızda 10 farklı renk olduğunu belirtmişsiniz. Bu durumda aşağıdaki kodu kullanarak hücrelerin renk kodlarını tesbit edebilirsiniz.

Sub RENK_BUL()
    If Selection.Cells.Count > 1 Then
        MsgBox "Lütfen tek hücre seçiniz !", vbCritical
        Exit Sub
    End If
    MsgBox "Aktif hücrenin renk kodu ; " & ActiveCell.Interior.ColorIndex
End Sub

Renk kodunu bulmak istediğiniz hücreyi (tek bir hücre) seçip kodu çalıştırın. Daha sonra mesaj kutusunda gördüğünüz kodu not alın. Daha sonra önermiş olduğum makro kodundaki "Case" bloğunu ihtiyacınız kadar çoğaltın.

            Case [COLOR=red]5[/COLOR]
                Hücre.NumberFormat = "[COLOR=blue]0.00%[/COLOR]"

Kırmızı renkli değer yerine not aldığınız renk kodunu yazın. Mavi renkli bölüm yerine uygulamak istediğiniz biçimi yazın. Bu şekilde alan seçip önerdiğim kodu çalıştırırsanız alandaki hücrelerin rengine göre biçimlendirmeler uygulanacaktır.

Not : Koşullu biçimlendirme işleminde istediğiniz şekilde biçimlendirme yapamazsınız.