Soru Seçilen Şeklin Dolgu Renginin Diğerlerinden Farklı Olması

[likaba]

Merhabalar,

Örnekte ki excelde; hangi şekle tıklarsam (belirgin olması adına) o şeklin dolgusu değişip diğerleri aynı dolguda kalacak ya da diğer şekillere göre saydamlığı daha belirgin olacak. Bunu nasıl yapabilirim? Yardımlarınız için şimdiden teşekkür ederim.

 

[likaba]

Merhabalar,

Konu hakkında yardımcı olabilir misiniz?

 

[muygun]

Merhaba;
Bunu ToggleButton ile yapmanız daha uygun olur.
Eki inceleyin.
İyi çalışmalar.

 

[likaba]

Merhaba;
Bunu ToggleButton ile yapmanız daha uygun olur.
Eki inceleyin.
İyi çalışmalar.

Uğraşınız için çok teşekkür ederim.


Renk kodları ile ilgili bir sorum olacaktı
Bende uzun uğraşlar sonucu nette araştırma yapıp henüz yeni ekteki gibi bir çalışma yaptım. Bu çalışma da ana renkleri sadece kullanabiliyorum. Özel renkler ile şekilleri renklendirme nasıl yapabilirim? Örneğin Açık Gri, Koyu Gri vs.

(Gray olarak yazdığımda dolgu rengini Siyah yapıyor)

 

[muygun]

Merhaba;
Ben Ofis 2003 kullanıyorum. Dolayısıyla ancak bunun üzerinden tanımlama yapabilirim.
Siz 2016 ile ilgili renk kodlarını bulmalısınız.
İyi çalışmalar.

 

[likaba]

Merhaba,

Renk kodlarını buldum fakat hepsi rakamlardan oluşuyor. Benim çalışmaya uyduramadım

 

[muygun]

Kodlar (sayısal renk kodu) elinizdeyse;
renklendir makrosunun 2. ve 3. satırındaki;

aktifrenk = 11
pasifrenk = 7

karşılığındaki sayıları düzenleyin

 

[Korhan Ayhan]

Alternatif;

 

[muygun]

Korhan Bey'den net bir çözüm.

 

[likaba]

Sayın Korhan Bey ve Sayın Muygun,

Yardımlarınız için çok teşekkür ederim.

 

[likaba]

Alternatif;

Merhaba Korhan Bey,

Konu ile ilgili son sorum olacaktı. Yardımcı olabilirseniz çok sevinirim.

Sayfayı ya da excel kitabını ilk açtığımda şekillerde herhangi bir seçim yapılmamış olsun. Yani şekillerin hepsi aynı renk (pasif) olsun. Ne zaman seçim yaparsam aktif - pasif senaryosu çalışsın.

 

[likaba]

Uğraşınız için çok teşekkür ederim.


Renk kodları ile ilgili bir sorum olacaktı
Bende uzun uğraşlar sonucu nette araştırma yapıp henüz yeni ekteki gibi bir çalışma yaptım. Bu çalışma da ana renkleri sadece kullanabiliyorum. Özel renkler ile şekilleri renklendirme nasıl yapabilirim? Örneğin Açık Gri, Koyu Gri vs.

(Gray olarak yazdığımda dolgu rengini Siyah yapıyor)

Siz değerli üstatların da katkılarıyla, diğer renkleri oluşturmak için kod bloğunda ki =vbRed olan kısmı =RGB(217, 217, 217) olarak değiştirip tüm renkleri bu şekilde yakalayabildim. Belki faydalanan birileri olur diye yazmak istedim. Tekrardan sizlere çok teşekkür ederim.

 

[Necdet]

Siz değerli üstatların da katkılarıyla, diğer renkleri oluşturmak için kod bloğunda ki =vbRed olan kısmı =RGB(217, 217, 217) olarak değiştirip tüm renkleri bu şekilde yakalayabildim. Belki faydalanan birileri olur diye yazmak istedim. Tekrardan sizlere çok teşekkür ederim.

Merhaba,

Bu tür işlerde renk kodları ile uğraşmaktansa renkleri hücre renginden almak daha avantajlı olabilir.

Korhan bey'in kodlarındaki değişiklik aşağıdadır. M1 Ve M2 hücrelerinin arka plan rengini kullanır.
Canınız sıkıldığınızda bu hücrelerin renklerini değiştirdiğinizde kodlarla uğraşmak zorunda kalmazsınız.

Sub Buton_Renklendir()

    Dim XL_Buton As Object
    
    For Each XL_Buton In ActiveSheet.Shapes
        XL_Buton.DrawingObject.Interior.Color = Range("M1").Interior.Color
    Next

    Set XL_Buton = ActiveSheet.Shapes(Application.Caller)
    XL_Buton.DrawingObject.Interior.Color = Range("M2").Interior.Color
    
End Sub

 

[likaba]

Merhaba,

Bu tür işlerde renk kodları ile uğraşmaktansa renkleri hücre renginden almak daha avantajlı olabilir.

Korhan bey'in kodlarındaki değişiklik aşağıdadır. M1 Ve M2 hücrelerinin arka plan rengini kullanır.
Canınız sıkıldığınızda bu hücrelerin renklerini değiştirdiğinizde kodlarla uğraşmak zorunda kalmazsınız.

Sub Buton_Renklendir()

    Dim XL_Buton As Object
   
    For Each XL_Buton In ActiveSheet.Shapes
        XL_Buton.DrawingObject.Interior.Color = Range("M1").Interior.Color
    Next

    Set XL_Buton = ActiveSheet.Shapes(Application.Caller)
    XL_Buton.DrawingObject.Interior.Color = Range("M2").Interior.Color
   
End Sub

Merhaba Necdet Bey,

İlgilendiğiniz için sizlere de teşekkür ederim. Bahsettiğiniz gibi pratik olmuş.

 

[Korhan Ayhan]

#8 nolu mesajımdaki dosyayı talebiniz yönünde güncelledim. Dosya açılışında bütün butonlar gri renk olacaktır.

 

[likaba]

#8 nolu mesajımdaki dosyayı talebiniz yönünde güncelledim. Dosya açılışında bütün butonlar gri renk olacaktır.

Çok teşekkür ederim Korhan Bey