Renk Düzenlemesi

[kimfx]

Arkadaşlar herkese merhaba,
bir makro yazdım ama çalıştıramadım, Yardımcı olursanız sevinirim.

Sub Renk_Düzenle()
CommandButton1_Click.BackColor = RGB(250,120,85)
End Sub

CommandButton a tıkladığımda renk değişikliği olması gerekiyor ama hata verdi Fazla anlamadığım için sorunun nerden kaynaklandığını bilmiyorum. Yardımlarınızı bekliyorum. Teşekkürler

Bide CommandButton a tıkladığımda herhangi bir hücre renginide değiştirebilirmiyim.

 

[isakarakus]

kodu şöyle değiştirin


Eskisi: CommandButton1_Click.BackColor = RGB(250,120,85)

Sheets(1).CommandButton1.BackColor = RGB(250, 120, 85)

 

[isakarakus]

bu da hücrenin zemin rengini değiştirir.

a1 hücresinin rengini kırmızı yapıyor.

Range("A1").Interior.ColorIndex = 3

 

[kimfx]

isakarakuş
Sheets(1).CommandBUtton1.BackColor=RGB(250,120,85)
kodu da çalışmadı.

Hücre renginide For Next döngüsü ile haraketli yapmak istiyorum Yani (RGB) kodu ile yapmak istiyorum. Aslında CommandButton1.BackColor=RGB() kodunu çalıştırabilsem hücre için olanını kendim bulurum ama maalesef çamlışmıyor.

 

[danersin]

sn. isakarakus'un verdiği kodlar doğru ve çalışmadı diye birşey sözkonusu değil. Ancak sayfa içine yerleştirdiğiniz commandbutton'ın ismini değiştirdi iseniz koddada bu ismi değiştirmeniz gerekir.

hücre rengini değiştirmek içinde gereken kodu vermiş.
Range("A1").Interior.ColorIndex = 3

 

[isakarakus]

sn.kimfx

Sheets(1).CommandButton1.BackColor = RGB(250, 120, 85)

bu kod 1. sayfada CommandButton1 isminde bir buton olduğu varsayılarak yazıldı.
eğer buton furmda ise,
form ismini kullanarak şu şekilde yazın.

UserForm1.CommandButton1.BackColor = RGB(250, 120, 85)