Hücreleri otomatik renklendirme

[seyfi38]

Arkadaşlar
Benim isteğim örneğin
B2 hücresi Turuncu yapınca yanındaki hücrelerinde S2 ye kadar
otamatik turuncuya çevrilmesini nasıl yaptırabiliriz

 

[Necdet]

Merhaba,

Sizin sorunuz bir anlamda Koşullu Biçimlendirmeye benziyor ama dediğiniz gibi olmuyor. B2 hücresi dolu, boş yada belirlenen bir değere sahipse Koşullu Biçimlendirme ile yapılabilir.

 

[seyfi38]

Merhaba,

Sizin sorunuz bir anlamda Koşullu Biçimlendirmeye benziyor ama dediğiniz gibi olmuyor. B2 hücresi dolu, boş yada belirlenen bir değere sahipse Koşullu Biçimlendirme ile yapılabilir.

Sayın Necdet Yeşertener kardeşim
Dediğiniz Gibi Hücre dolu Koşullu biçimlendirme ile olabilir ama soru farklı
B2 hücresi Turuncu (C2,D2,E2,F2........S2) TUNUCU OLMASI YAPILABİLİYOR
Ama sayfada tek bir yer de istemiyoruz
B32 hücresi Turuncu ise (C32,D32,E32,F32........S32) TUNUCU OLMASI gerekiyor
B62 hücresi Turuncu ise (C62,D62,E62,F62........S62) TUNUCU OLMASI gerekiyor ki
bu aşağıya kadar gidiyor
ya bunları tek tek seçmek lazım yada
Soldaki hücre rengini otamatik sağdada olması gereken bir formül veya makro olabilir
Düşünceleriniz için teşekkürler

 

[Necdet]

Merhaba,

Örnek dosya ile açıklarsanız anlaşılması daha kolay olur. Ben renklerden pek anlamam şimdi turuncu dediğiniz xl de hangi renktir acaba

 

[seyfi38]

Örnek dosyayı ekliyorum
bence makro çözüm olabilir tam bilemiyorum

 

[Necdet]

Merhaba,

Aklıma şöyle bir çözüm geldi, umarım işinize yarayabilir.
Siz B sütununda herhangi bir hücrenin arkaplan rengini Turuncu yapacağınıza o hücreye 2 kere tıklayın satırı turuncu yapsın.

Turuncu ise ilgili hücre bu seferde rengini beyaz yapsın.

Bu çözüm işinize yararsa aşağıdaki kodların ilgili sayfanın kod bölümünde olmalı

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Target.Interior.ColorIndex = 46 Then
    Range("B" & Target.Row & ":R" & Target.Row).Interior.ColorIndex = xlNone
Else
    Range("B" & Target.Row & ":R" & Target.Row).Interior.ColorIndex = 46
End If
End Sub