Seçili hücrede renk değiştirilmesi

[cavanoos]

Merhaba arkadaşlar;


Seçili olan herhangi bir hücrede,klavyede tanımlanan bir kısayol aracılığı ile dolgu rengini sarı yapabilir miyiz ?

Yardım edebilir misiniz ?

 

[Korhan Ayhan]

Merhaba,

Makro kaydet yöntemini uygulayın. Makroyu kaydetmeye başladığınızda size kısayol tuşu atamanız için bir ekran çıkar. Oraya dilediğiniz tuşu tanımlayıp istediğiniz hücreyi seçip sarı renk verip makro kaydını durdurun.

Örnek olarak ben R harfini kısayol olarak tanımadım ve kaydı durdurdum.

Artık sayfanızda CTRL+SHIFT+R tuşlarına bastığınızda seçili alan sarı renk olacaktır.

Aşağıdakine benzer bir kod oluşması gerekiyor.

Sub Makro1()
'
' Makro1 Makro
' Makro Korhan AYHAN tarafından 20.01.2012 tarihinde kaydedildi.
'
' Klavye Kısayolu: Ctrl+ÜstKrkt+R
'
    With Selection.Interior
        .ColorIndex = 6
        .Pattern = xlSolid
    End With
End Sub

 

[cavanoos]

Korhan Bey;

Teşekkür ederim.Güzel oldu.

Bir başka kısayola da beyaz rengi tanımlamak istiyorum.Renk kodu 0 galiba ama olmadı.Bir bakabilir misiniz ?

Sub Beyaza_Boya()
'
' Makro3 Makro
'
' Klavye Kısayolu: Ctrl+ÜstKrkt+W
'
With Selection.Interior
.ColorIndex = 0
.Pattern = xlSolid
End With
End Sub

 

[Korhan Ayhan]

Merhaba,

Beyaz rengin indeksi 2 dir. Bu renk için aşağıdaki şekilde kullanmalısınız.

Sub Makro1()
'
' Makro1 Makro
' Makro Korhan AYHAN tarafından 20.01.2012 tarihinde kaydedildi.
'
' Klavye Kısayolu: Ctrl+ÜstKrkt+W
'
    With Selection.Interior
        .ColorIndex = 2
        .Pattern = xlSolid
    End With
End Sub

Eğer beyaz renkten kastınız dolgu olmaması ise aşağıdaki şekilde kullanabilirsiniz.

Sub Makro1()
'
' Makro1 Makro
' Makro Korhan AYHAN tarafından 20.01.2012 tarihinde kaydedildi.
'
' Klavye Kısayolu: Ctrl+ÜstKrkt+W
'
    With Selection.Interior
        .ColorIndex = xlNone
        .Pattern = xlSolid
    End With
End Sub

 

[cavanoos]

Korhan Bey;

Saolun.Sorunum çözülmüştür...