Makro ile, bir hücrenin biçimini, SEÇİLECEK hücreye uyarlama

[ozturk_gs_05]

Arkadaşlar merhaba,
Ben excelde 5 farklı renk gruplandırması yaptığım bir liste var.
Bu listeye sürekli veri eklenmekte.
örneğin ben 5 adet buton ekleyip
İsimlerine yeşil ürünler kırmızı ürünler turuncu ürünler gibi renk ayrımı yaptım.
Ben istiyorum ki SEÇECEĞİM HERHANGİ BİR HÜCREYE UYARLAMASIDIR.
Yani biçim boyacısı kullanmak istiyorum ama
belirli bir hücrenin biçiminin SEÇECEĞİM hücreye uyarlanması.
Olabilir mi. Teşekkürler.

 

[ÖmerFaruk]

Excel sayfanızın N2:N5 aralığında 4 ayrı renge sahip hücre oluşturdum.
Siz farklı hücreler kullanmak isterseniz kodların içindeki ilgili başvuru adreslerini değiştirmelisiniz.
Aşağıdaki kodları VBA penceresinde bir module içine yazın.
Sayfanızda 4 adet buton ya da buton görevi görecek şekil oluşturun.
Her birine istediğiniz makroyu atayın.
Temizleme makrosunu kullanmak isterseniz 5.buton ekleyin.

Sub Renk1()
Selection.Interior.Color = Range("N2").Interior.Color
End Sub
Sub Renk2()
Selection.Interior.Color = Range("N3").Interior.Color
End Sub
Sub Renk3()
Selection.Interior.Color = Range("N4").Interior.Color
End Sub
Sub Renk4()
Selection.Interior.Color = Range("N5").Interior.Color
End Sub
Sub Renk5()
Selection.Interior.Color = Range("N6").Interior.Color
End Sub
Sub RenkTemizle()
Selection.Interior.Color = xlNone
End Sub

 

[ozturk_gs_05]

Excel sayfanızın N2:N5 aralığında 4 ayrı renge sahip hücre oluşturdum.
Siz farklı hücreler kullanmak isterseniz kodların içindeki ilgili başvuru adreslerini değiştirmelisiniz.
Aşağıdaki kodları VBA penceresinde bir module içine yazın.
Sayfanızda 4 adet buton ya da buton görevi görecek şekil oluşturun.
Her birine istediğiniz makroyu atayın.
Temizleme makrosunu kullanmak isterseniz 5.buton ekleyin.

Sub Renk1()
Selection.Interior.Color = Range("N2").Interior.Color
End Sub
Sub Renk2()
Selection.Interior.Color = Range("N3").Interior.Color
End Sub
Sub Renk3()
Selection.Interior.Color = Range("N4").Interior.Color
End Sub
Sub Renk4()
Selection.Interior.Color = Range("N5").Interior.Color
End Sub
Sub Renk5()
Selection.Interior.Color = Range("N6").Interior.Color
End Sub
Sub RenkTemizle()
Selection.Interior.Color = xlNone
End Sub

Bu işime yaradı teşekkürler
Ancak sadece boyama yapıyor çerçeve yazı tipi vs bunları nasıl ekleyebilirim

 

[ÖmerFaruk]

Bir tanesini ben yazayım, diğerlerini de siz benzer şekilde revize edebilirsiniz.

Selection.Interior.Color = Range("N2").Interior.Color
'bunun yerine aşağıdakini yazın '
Range("N2").Copy
Selection.PasteSpecial Paste:=xlPasteFormats

 

[ozturk_gs_05]

Bir tanesini ben yazayım, diğerlerini de siz benzer şekilde revize edebilirsiniz.

Selection.Interior.Color = Range("N2").Interior.Color
'bunun yerine aşağıdakini yazın '
Range("N2").Copy
Selection.PasteSpecial Paste:=xlPasteFormats

Üstad eline sağlık çok teşekkür ederim