RGB Onaltılık kodu yazılarak rengi çağırma

[ATEMİ]

Merhabalar;
Herhangi bir hücreye (A1) RGB onaltılık kodu (#696969) yazıldığında hemen yanındaki hücrenin (B1) bu kodun rengi ile boyanması sağlanabilir mi?
Teşekkür ederim

 

[Tevfik_Kursun]

Merhaba,
İdris Serdar beyin renklerle ilgili çalışmalarını inceleyiniz. https://www.excelgurusu.com/
İyi çalışmalar

 

[ATEMİ]

Merhaba Tevfik Bey,
İdris beyin sayfasını inceledim bu konularda çok başarılı harika işler başarmış.
koşullara göre yapılmış renklendirmelerin RGB renk kodlarını bulmak için yapılmış bir çalışması var
ben RGB renk kodunu yazarak rengin gelmesini istiyorum

 

[Merhum İdris SERDAR]

Merhaba Tevfik Bey,
İdris beyin sayfasını inceledim bu konularda çok başarılı harika işler başarmış.
koşullara göre yapılmış renklendirmelerin RGB renk kodlarını bulmak için yapılmış bir çalışması var
ben RGB renk kodunu yazarak rengin gelmesini istiyorum

Bu şekilde bir kod olabilir.

Sub Hucrerenk()
    Range("A1").Interior.Color = RGB(256, 0, 0)
    Range("A2").Interior.Color = RGB(0, 0, 256)
End Sub

.

 

[veyselemre]

A sütununa yazılan hex codunu çevirir.

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Column <> 1 Or .Count > 1 Then Exit Sub
        If .Value = "" Then
            .Offset(, 1).Interior.Color = xlNone
        ElseIf Left(.Value, 1) = "#" Then
            colHex = Right("000000" & Mid(.Value, 2), 6)
            R = Val("&H" & Mid(colHex, 1, 2))
            G = Val("&H" & Mid(colHex, 3, 2))
            b = Val("&H" & Mid(colHex, 5, 2))
            With .Offset(, 1)
                .Interior.Color = RGB(R, G, b)
                .Value = "RGB(" & R & "," & G & "," & b & ")"
            End With
        End If
    End With
End Sub

 

[ATEMİ]

Sayın veyselemre kodu yapıştırdım fakat bir farklılık yok eksik bir şey yapmış olabilir miyim

 

[veyselemre]

Olabilirsiniz, alttaki sayfa isminin üzerinde sağ tıklayıp kodu görüntüle yapıp çıkan kod bölümüne yapıştırın. Ya da dosyanızı ekleyin.

 

[ATEMİ]

Bu şekilde bir kod olabilir.

Sub Hucrerenk()
    Range("A1").Interior.Color = RGB(256, 0, 0)
    Range("A2").Interior.Color = RGB(0, 0, 256)
End Sub

.

Üstadım öncelikle sayfanızdan çok etkilendim elinize emeğinize sağlık tebrik ederim.
cevabınızla ilgili olarak sanırım ben bir hata yapıyorum kodu yapıştırdım ancak sonuç alamıyorum

Olabilirsiniz, alttaki sayfa isminin üzerinde sağ tıklayıp kodu görüntüle yapıp çıkan kod bölümüne yapıştırın. Ya da dosyanızı ekleyin.

Üstadım tam istediğim gibi oldu ilginiz için teşekkür ediyorum

 

[ATEMİ]

A sütununa yazılan hex codunu çevirir.

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Column <> 1 Or .Count > 1 Then Exit Sub
        If .Value = "" Then
            .Offset(, 1).Interior.Color = xlNone
        ElseIf Left(.Value, 1) = "#" Then
            colHex = Right("000000" & Mid(.Value, 2), 6)
            R = Val("&H" & Mid(colHex, 1, 2))
            G = Val("&H" & Mid(colHex, 3, 2))
            b = Val("&H" & Mid(colHex, 5, 2))
            With .Offset(, 1)
                .Interior.Color = RGB(R, G, b)
                .Value = "RGB(" & R & "," & G & "," & b & ")"
            End With
        End If
    End With
End Sub

Sayın veyselemre renk ile birlikte gelen "RGB(105,105,105)" kodun gelmeden sadece ilgili rengin gelmesini sağlayabilir misiniz

 

[veyselemre]

.Value = "RGB(" & R & "," & G & "," & b & ")"
silin

 

[ATEMİ]

.Value = "RGB(" & R & "," & G & "," & b & ")"
silin

Çok teşekkür ediyorum saygılarımla

 

[ATEMİ]

A sütununa yazılan hex codunu çevirir.

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Column <> 1 Or .Count > 1 Then Exit Sub
        If .Value = "" Then
            .Offset(, 1).Interior.Color = xlNone
        ElseIf Left(.Value, 1) = "#" Then
            colHex = Right("000000" & Mid(.Value, 2), 6)
            R = Val("&H" & Mid(colHex, 1, 2))
            G = Val("&H" & Mid(colHex, 3, 2))
            b = Val("&H" & Mid(colHex, 5, 2))
            With .Offset(, 1)
                .Interior.Color = RGB(R, G, b)
                .Value = "RGB(" & R & "," & G & "," & b & ")"
            End With
        End If
    End With
End Sub

Üstadım çok oluyor ama bir sorum daha olacak A sütununa değil de B sütununa kodu yazsam C sütununda renk çıksa

 

[veyselemre]

If .Column <> 2 Or .Count > 1 Then Exit Sub

 

[ATEMİ]

Teşekkür ederim

 

[ATEMİ]

If .Column <> 2 Or .Count > 1 Then Exit Sub

Veysel bey her soruya hızlı ve tatmin edici cevaplar vermeniz daha çok soru sormaya itiyor rahatsız olursanız söyleyin lütfen
Hexadecimal kodu yerine B sütununda kendi belirlediğimiz renk kodlarına ait renklerin aynı şekilde çağırılması söz konusu olur mu

 

[veyselemre]

? mesala ne yazılı b sütununda hangi formatta?

 

[ATEMİ]

Çalışma üzerinde ekte gönderiyorum
B sütunu demiştim ekteki dosyada bu E sütunu olmuş oldu

 

[veyselemre]

Excelde böyle bir renk tanımlama sistemi yok. 0-55 arası colorIndex le kullanabileceğiniz, ön tanımlı renkler var. Color (double) tanımlı sistem var. RGB komutuyla doubla çevrilerek color komutu kullanılabiliyor. Ayrıca color ile kullanılan (vbBlack, vbBlue, vbCyan, vbGreen, vbMagenta, vbRed, vbWhite, vbYellow) gibi sabit tanımlı renkler var. Sizin e sütunundaki 999 gibi bir hazır tanımlı renk sistemi yok. Bunların RGB veya doubla standart bir çevrimi varsa o başka benim bilgim yok.

 

[Merhum İdris SERDAR]

.

Dosyanız ekte.

.

 

[ATEMİ]

.

Dosyanız ekte.

.
[/QUOT
İdris hocam çok teşekkür ederim. Dün sizin sayfanızla epey meşgul oldum ne güzel çalışmalar var öyle taktire şayan doğrusu